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Prakata 


Pemrograman kon$uter sudah menjadi kebutuhan penting di era teknologi 
informasi ini. Meskipun paket program komersil sudah banyak tersedia 
untuk membantu menyelesaikan masalah, namun membuat program sendiri 
untuk kebutuhan spesifik tetap diperlukan. Program komersil tidak dapat 
menyelesaikan masalah yang beraneka ragam dan kompleks. 

Saat ini aktivitas menulis program tidak lagi didominasi orang-orang dari 
lingkungan pendidikan komputer dan informatika. Siswa SD, SMP, SMA, 
dan mahasiswa yang bukan berlatar belakang pendidikan komputer banyak 
yang mampa menulis program. Pemrograman bukan pekeijaan yang sulit, 
siapa pun dapat melakukannya asalkan dia mempunyai minat dan motivasi 
untuk belajar. Semakin hari kegiatan memprogram sudah menjadi 
kebutuhan penting banyak orang, mulai dari sekadar hobi sampai kebutuhan 
untuk mendukung studi. Sebagian besar dari mereka memperoleh 
pengetahuan pemrograman dari learning by doing. Memang banyak 
literatur, baik cetak maupun online, yang dapat digunakan sebagai referensi 
belajar pemrograman, tetapi sebagian besar literatur tersebut berisi materi 
bahasa pemrograman atau pemrograman dengan bahasa/kakas tertentu. 
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Memprogram tidak hanya sekadar menulis program yang "asal jadi" dan 
memberikan hasil sesuai yang diharapkan. Memprogram itu perlu 
metodologi agar program yang ditulis a dal ah program yang efektif. Memang 
benar banyak orang yang bisa membuat program, tetapi hanya sedikit yang 
bisa memprogram dengan baik. 

Buku ini menyajikan materi yang lengkap mengenai aJgoritma dan 
pemrograman. Pembaca diajak untuk tidak memfokuskan pada bahasa 
pemrograman, tetapi pada langkah-langkah pemecahan m asal ah. Langkah- 
langkah pemecahan masalah, yang kemudian dinamakan algoritma, adalah 
hal yang paling inti di dalam pemrograman. Algoritma hams independen 
dari bahasa pemrogaraman dan komputer yang mengimplementasikannya. 
Jika algoritma pemecahan masalah sudah dirancang dengan baik, maka 
langkah berikutnya adalah menuliskan algoritma tersebut ke dalam notasi 
bahasa pemrograman. Belajar memecahkan masalah dan menuliskan 
langkah-langkahnya, itulah yang ditekankan di tjalam buku ini. Di dalam 
buku ini Penulis menggunakan notasi pseudocode untuk menuliskan 
algoritma. Notasi ini dibuat sedemikian rupa untuk memudahkan 
pemrogram meneijemahkannya ke dalam bahasa pemrograman. 

Buku ini disusun dari pengalaman penulis mengajar kuliah algoritma 
pemrograman lebih dari 10 tahun, baik di 1 TB maupun di luar ITB. Berbekal 
pengalaman mengajar dan referensi yang cukup banyak (lihat judul-judul 
buku yang dtyadikan referensi di dalam Daftar Pustaka), maka buku ini 
dihadirkan kepada pembaca yang ingin mempelajari pemrograman. Buku ini 
dibagi menjadi 19 Bab. Penjelasan singkat masing-masing bab dipaparkan di 
bawah ini. 

Bab 1, Apakah Algoritma dan Pemrograman Itu?, mengantarkan 
pembaca untuk memahami apa yang disebut algoritma dan apa yang disebut 
pemrograman. Diberikan juga contoh-contoh masalah dalam kehidupan sehari- 
hari dan langkah-langkah pemecahannya (dalam notasi algoritmik deksriprif). 

Bab 2, Struktur Dasar Algoritma, mengenalkan tiga konstruksi (struktur) 
dasar di dalam algoritma, yaitu nmtunan, pemilihan, dan pengulangan. Contoh- 
contoh ketiga konstruksi ini di dalam kehidupan sehari-hari diberikan supaya 
pembaca dapat melihat bahwa algoritma bukan sesuatu yang sulit dipahami. 

Bab 3, Notasi Algoritmik, menjelaskan notasi pseudocode yang 
digunakan di dalam buku ini. Notasi pseudocode mirip dengan notasi di 
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dalam bahasa pemrograman, tujuannya untuk meraudahkan penerjemahan 
algoritma ke dalam bahasa pemrograman. Pada setiap bab nanti diberikan 
tabel translasi dari notasi pseudo code ke notasi bahasa pemrograman 
(dalam buku ini hanya bahasa Pascal dan bahasa C). 

Bab 4, Tipe, Operator dan Ekspresi, menjelaskan tipe data yang dipakai di 
dalam pemrograman, operator yang memanipulasinya, dan cara menuliskan 
ekspresi. 

Bab 5, Runtunan. Di sini pembaca diajak secara mendalam untuk memahami 
stmktur program yang paling dasar, yaitu runtunan. Runtunan adalah deretan 
instmksi yang dikeijakan sesuai uni tan penulisannya. 

Bab 6, Pemilihan, berisi struktur program yang memiliki satu atau lebih 
pilihan aksi yang dilakukan. Notasi if-then, tf-then-else, dan case kita 
gunakan untuk menyatakan konstruksi pemilihan. 

Bab 7, Pengulangan, berisi struktur pengulangan, yaitu sebuah pemyataan 
yang di dalamnya berisi satu atau lebih aksi yang dikeijakan secara berulang- 
ulang. Notasi for, while dan re peat-until di gunakan untuk menyatakan 
konstruksi pengulangan. 1 • . . •. 

Bab 8, Contoh-contoh Pemecahan Masai ah I, berisi pembahasan 
beberapa masalah yang terkait dengan materi pada bab-bab sebelumnya, 
bescrta algoritmanya. 

Bab 9, Pcngantar Pemrograman Modular, mengenalkan konsep 
program yang dipecah menjadi sejumlah modul (atau sub-program). Sub¬ 
program dapat dinyatakan sebagai prosedur atau fungsi. 

Bab io, Prosedur, menyajikan sub-program yang dinyatakan sebagai 
prosedur. Sebuah prosedur pada hakikatnya adalah sebuah program tetapi 
melakukan tugas yang spesifik. Prosedur dapat dipanggil dari program lain 
dengan atau tanpa melewatkan parameter pada saat pemanggilan. 

Bab n, Fungsi, menyajikan sub-program yang dinyatakan sebagai fungsi. 
Sebuah fungsi adalah program yang menghasilkan keluaran yang di gunakan di 
dalam program pemanggil. Fungsi dapat dipanggil dari program lain dengan 
atau tanpa melewatkan parameter pada saat pemanggilan. Di dalam bab inijuga 
dijelaskan kapan menggunakan fungsi dan kapan menggunakan prosedur. 
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Bab 12, Larik, memaparkan tipe data terstruktur yang penting. Larik 
menyimpan data secara tempo rer di dalam memori. Larik a dal ah tipa data 
terstruktur yang sederhana dan banyak dipakai karena data yang disimpan 
di dalamnya dapat diakses hanya melalui indeksnya. 

Bab 13, Contoh-contoh Pemecahan Masalah n, berisi pembahasan 
beberapa masalah yang terkait dengan materi prosedur, fungsi, dan larik. 


Bab 14, Matriks, menyajikan larik dwi-matra, yaitu larik yang yang disusun 
dalam bans dan kolom. Elemen matriks diacu melalui indeks bans dan 
kolomnya. 

Bab 15, Algoritma Pencaritn, menjelaskan algoritma-algoritma dasar yang 
digunakan untuk melakukan pencarian data di dalam larik. Algoritma pencarian 
yang mendasar adalah algoritma pencarian beruntun ( sequential search ) 
dengan beibagai variasinya dan algoritma pencarian biner ( binary search ). 

Bab 16, Algoritma Pengurutan, menjelaskan algoritma-algoritma pengurutan 
data yang fundamental, yaitu bubble sort, insertion sort, dan selection sort. 
Algoritma shell sort diberikan sebagai pengembangan algoritma insertion sort. 
Saat ini ada puluhan algoritma pengunitan, tetapi kita tidak periu mengetahui 
semuanya, cukup hanya beberapa algoritma pengurutan yang mendasar s^ja. 

Bab 17, Arsip Beruntun, menyajikan algoritma pemrosesan data di dalam 
arsip beruntun ( sequential file). Pada dasamya tidak ada konsep yang baru 
di sana, ldta tetap menggunakan tiga konstruksi dasar serta konsep 
pemrograman modular. Perbedaannya dengan larik hanya satu, data yang 
diproses tidak berada di dalam memori utama komputer, tetapi di dalam 
memori sekunder. 

Bab 18, Algoritma rekursif, menjelaskan konsep rekursifitas yang 
membuat program menjadi powerfull dan alami. Ini materi yang agak sulit 
dipelajari, tetapi aplikasinya di dalam pemrograman sangat penting. 

Bab 19, Contoh-contoh Pemecahan Masalah Ill, berisi pembahasan 
beberapa masalah yang terkait dengan materi algoritma pencarian, 
algoritma pengurutan, matriks, arsip beruntun, dan algoritma rekursif. 

Demikianlah paparan ringkas isi buku ini. Mudah-mudahan isi buku ini 
dapat memberikan pencerahan dan pengetahuan kcpada pembacanya. 
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Kata Pengantar 


Duku ini merupakan penggabungan dan dua buah buku terdahulu: 
Algoritma dan Pemrograman dalam Bahasa Pascal dan C (Buku l) dan 
Algoritma dan Pemrograman dalam Bahasa Pascal dan C (Buku2). 
Penggabungan ini dimaksudkan agar materi algoritma dan pemrograman 
dapat dipahami secara menyeluruh dan terintegrasi. Penggabungan ini juga 
sekaligus untuk memperbaiki beberapa kesalahan yang terdapat pada buku 
sebelumnya. 

Cara penyajian materi disusun dalam bahasa yang lebih mudah dipahami; 
setiap pokok bahasan dipertajam pembahasannya. Contoh-contoh pemecahan 
masalah diperbanyak, termasuk soal-soal latihan. Cara terbaik untuk 
mempelajari buku ini adalah dengan mempraktekkannya ( learning by doing). 

Buku ini memuat materi yang lengkap, dimulai dengan konsep dasar 
algoritma, struktur dasar pembangun algoritma (runtunan, pemilihan, 
pengulangan), fungsi dan prosedur, larik (array), matriks, algoritma 
pencarian, algoritma pengurutan, arsip beruntun, dan algoritma rekursif. 

Akhimya, sebagai karya manusia biasa, Penyusun menyadari pasti banyak 
kekurangan dan kelemahan yang terdapat di dalam buku ini. Untuk itu, 
Penyusun terbuka terhadap kritik dan saran dari Pembaca. Jika Anda ingin 
mengirimkan surat, silakan layangkan e-mail Anda ke rinaldi@informatika.oni. 


Wassalam 
Bandung, Agustus 2007 
Penyusun 
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Apakah Algoritma dan 
Pemrograman Itu? 


Pemrograman sudah menjadi kegiatan yang sangat penting di era eknologi 
informasi. Program yang berjalan di komputer desktop, laptop, telepon 
genggam, PDA, dan sebagainya, tidak tercipta begitu saja, ietapi ditulis 
melalui proses analisis dan perancangan yang cermat. Sebuah program 
komputer pada dasamya mengimplementasikan suatu algoritma. Dengan 
kata lain, algoritma adalah idc dibalik program komputer apa pun. Tctapi, 
tahukah Anda apakah algoritma itu? Apakah program? Bab awal ini akan 
mengantarkan pembaca kepada pemahaman yang baik mcngenai algoritma 
dan pemrograman. Bcbcrapa ilustrasi dalam kehidupan schari-hari 
diberikan untuk lebih memperjelas pemahaman kedua istilah ini ini. Pada 
bab-bab selanjutnya pembaca akan mempehyari lebih mendalam dasar- 
dasar menulis algoritma dan pemrograman. 


1.1 Masalah 

Manusia hidup dengan segala masalah yang melingkupinya. Hidup pada 
dasamya adalah serangkaian aktivitas menyelcsaikan masalah. Dalam 
Bahasa Indonesia, istilah lain yang scpadan pengertiannya dengan kata 
"masalah" adalah “persoalan" {problem ). Di dalam buku ini, kita tidak 
membedakan makna kedua istilah ini, olch karena itu kita akan 
menggunakan kedua istilah ini secara bergantian, kadang-kadang kita sebut 
masalah kadang-kadang kita namakan persoalan. Menurut [NEA96J, 

masalah adalah pertanyaan atau tugas yang kita cari jawabannya. 
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Contoh beberapa masalah dalara kehidupan sehari-hari misalnya: 

1. Diberikan setumpuk kartu pasien di sebuah tempat praktek dokter yang 
tersusun acak. Setiap kartu mempunyai nomor registrasi pasien. 
Bagaimana mengurutkan kartu-kartu tadi berdasarkan nomor unit 
pasien sehingga tersusun dengan nomor kecil di atas dan nomor besar di 
bawah (Gambar 1.1)? Jawaban dari masalah ini adalah barisan kartu 
pasien yang sudah terurut dari kecil ke besar. 

2. Diberikan sebuah daftar yang berisi nama-nama mahasiswa baru yang 
diterima di sebuah perguruan tinggi. Daftar tersebut hanya berisi nomor 
peserta ujian yang diterima. Carilah apakah seorang calon mahasiswa 
bam yang nomor peserta ujiannya diketahui terdapat di dalam daftar 
tersebut? Jawaban dari masalah ini adalah M ya" jika nomor tersebut 
ditemukan di dalam daftar, atau “tidak" jika tidak terdapat di dalamnya. 

3. Diberikan daftar nama pejabat bam beserta jumlah kekayaannya. 
Tentukan pejabat mana yang mempunyai kekayaan paling besar? 
Jawaban dari masalah ini adalah nama pejabat yang mempunyai 
kekayaan paling besar. 

Tentu masih banyak lagi masalah yang muncul di bidang pekerjaan 
seseorang. Seorang pustakawan mempunyai masalah dalam mengelola 
daftar buku yang dipinjam, seorang statistikawan mempunyai masalah 
mengolah hasil jajak pendapat, seorang mahasiswa tingkat akhir mempunyai 
masalah dalam menganalisis hasil eksperimen, dan sebagainya. 



Gambar 1.1 Mengurutkan kartu. masalah saharf-harl yang banyak klla temul (Sumbor: 
vvww.lnfodeslgn.com au) 


Beberapa masalah yang muncul di dalam dunia nyata banyak memiliki 
kemiripan substansi. Misalnya masalah mengurutkan tumpukan kartu yang 
tersusun acak secara substansi sama dengan masalah mengurutkan 
sekumpulan nilai ujian agar terurut menaik atau menurun. Begitu pula 
masalah mencari nama pejabat yang mempunyai kekayaan terbesar secara 
substansi sama dengan masalah mencari nama siswa yang meraih nilai ujian 
nasional tertinggi. Oleh karena itu, secara generik kita sering 
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mendeksripsikan raasalah-masalah yang muncul di dunia nyata dengan 
menggunakan beberapa ukuran (parameter), misalnya sebagai berikut: 

1. [Masalah pengurutan] Diberikan sebuah senarai (list) S yang terdiri dari 
n buah nilai bilangan bulat. Bagaimana mengurutkan n buah nilai 
tersebut sehingga terunit secara menaik? 

2. [Masalah pencarian] Tentukan apakah suatu nilai x terdapat di dalam 
sebuah senarai S yang beriri n buah bilangan bulat! 

3. [Masalah mencari elemen terbesar] Diberikan senarai (list) S yang 
terdiri dari n buah nilai bilangan bulat. Carilah elemen terbesar di 
dalam senarai tersebut. 

Setiap masalah umumnya mengandung satu atau lebih parameter yang 
dinyatakan di dalam masalah tersebut. Misalnya pada contoh masalah 
pengurutan di atas, S dan n adalah parameter masalah. Parameter ini di 
dalam pemyataan masalah belum diberi nilai spesifik, dan semua nilai 
parameter merupakan masukan (input) untuk masalah tersebut. Setiap 
pemberian nilai untuk semua parameter masalah dinamakan instansiasi 
masalah (instance of a problem). Jawaban terhadap instansiasi masalah 
disebut solusi [NEA96]. 

Sebagai contoh, instansiasi masalah untuk masalah pengurutan adalah 
S -[15. 4 .8. li, 2, 10 , 191 , n-7 

dan solusinya adalah barisan nilai tenirut S - [2,4,8,10,11,15,19). Gambar 
1.2 memperlihatkan keadaan awalSdan keadaan akhir S sesudah diurutkan. 


Sebelum lerurut: 


15 

4 

8 

11 

2 

10 19 

Setelah terurut: 

2 

4 

8 

10 

11 

15 19 


Qamba r 1.2 Sanaral S yang Plum lemnjt (tat) d an yang audah tenirut ma nalk (bawah). 


1.2 Algoritma 

Untuk masalah dengan instansiasi yang kecil, kita dapat menemukan 
solusinya dengan mudah dan cepat. Bagaimana kalau instansiasi masalah 
berukuran besar? Misalnya pada masalah pengurutan, jika n = 1000 jelas 
tidak mudah mengurutkan data sebanyak itu. Oleh karena itu, kita perlu 
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menuliskan prosedur yang berisi langkah-langkah pengurutan sehingga 
prosedur tersebut dapat ‘dijalankan’ oleh sebuah pemroses (komputer, 
manusia, robot, dan sebagainya) untuk menghasilkan solusi setiap 
instansiasi mas a] ah pengurutan. Kita katakan langkah-langkah pengurutan 
itu untuk memecahkan masalah. Prosedur yang berisi langkah-langkah 
penyelesaian masalah disebut algoritma. 

AJgoritma adalah urutan langkah-langkah untuk memecahkan suatu 
masalah. 

Terdapat beberapa definisi lain dari algoritma - tetapi pada prinsipnya 
senada dengan definisi yang diungkapkan di atas - yang kita kutip dari 
berbagai literatur, antara lain: 

Algoritma adalah deretan langkah-langkah komputasi yang 
mentransformasikan data masukan menjadi keluaran [COR92]. 

Algoritma adalah deretan instruksi yang jelas untuk memecahkan 
masalah, yaitu untuk memperoleh keluaran yang diinginkan dari suatu 
masukan dalam jumlah waktu yang terbatas. [LEV03]. 

AJgoritma adalah prosedur komputasi yang terdefinisi dengan baik 
yang menggunakan beberapa nilai sebagai masukan dan menghasilkan 
beberapa nilai yang disebut keluaran. Jadi, algoritma adalah deretan 
langkah komputasi yang mentransformasikan masukan menjadi keluran 
[COR89I. 

Mari kita tinjau kembali masalah mengurutkan kartu. Jika kita mempunyai 
setumpuk kartu yang beijumlah n - 50 buah, maka secara tradisional 
langkah-langkah yang biasa dilakukan orang kalau mengurutkan kartu 
adalah dengan mencari kartu bemomor terkecil lebih dahulu, lalu letakkan 
pada posisi pertama (atas). Selapjutnya, cari kartu dengan nomor terkecil 
berikutnya, lalu letakkan di bawah kartu pertama. Begitulah, kita mencari 
kartu dengan nomor terkecil ketiga, keempat, dan seterusnya, sampai hanya 
tersisa satu kartu (kalau sudah tersisa satu kartu maka tidak perlu diurutkan 
lagi), dan kita memperoleh tumpukan kartu yang seluruh kartunya sudah 
terurut dari nomor kecil ke besar. Langkah-langkah pengurutan 50 buah 
kartu dapat kita tuliskan sebagai berikut (setiap langkah diberi nomor unit 1, 
2,3, dan seterusnya): 

1. Cari kartu dengan nomor terkedl 

2. Tempatkan kartu tersebut pada posisi paling atas 

3. Cari kartu dengan nomor terkecil berikutnya 

4. Tempatkan karrtu tersebut di bawah kartu pertama 

5. Cari kartu dengan nomor terkedl berikutnya 

6. Tempatkan kartu tersebut di bawah kartu kedua 
••• ••••••••••••••••••••• 


•“1 
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xx. Cari kartu dengan nomor terkecil berikutnya 
xxx.Tempatkan kartu tersebut di bawah kartu ke-48 

(tersisa satu kartu lagi, tetapi tidak perlu diurutkan lagi) 

Perhatikanlah bahwa sebenamya di dalam rangkaian langkah-langkah di 
atas terjadi pengulangan dua langkah penting, yaitu (i) can kartu dengan 
nomor terkecil, dan (ii) tempatkan kartu tersebut pada posisi yang tepat. 
Kedua langkah utama ini diulang berkali-kali sampai hanya tersisa sebanyak 
1 kartu saja (berarti jumlah pengulangan adalah sebanyak n - 50 - 1 ■ 49 
kali). Maka, secara garis besar kita dapat menuliskan langkah-langkah 
mengurutkan n buah kartu sebagai berikut: 

1. Can kartu dengan nomor terkecil di antara kartu yang tersisa. 

2. Tempatkan kartu tersebut pada posisi yang tepat. 

3. Ulangi kembali dan langkah 1 sebanyak n - 1 kali. 

Langkah-langkah yang kita tuliskan di atas itulah yang disebut algoritma. 
Dikatakan bahwa kita telah menspesifikasikan algoritma pengurutan. 
Perhatikan bahwa langkah 1 dan 2 masih perlu lebih dirinci lagi. Bagaimana 
langkah-langkah mencari nomor terkecil? Bagaimana menempatkan nilai 
terkecil pada posisi yang seharusnya, apakah memerlukan proses pertukaran' 
tempat dengan kartu yang lain? Hal ini akan kita bahasa di dalam Bab 2 nanti. 

Dalam kehidupan sehari-hari kita banyak menemukan langkah-langkah 
pengeijaan sesuatu meskipun kita tidak menyebutnya sebagai algoritma: 
"Itu bukan algoritma, tapi cara melakukan sesuatu". Contohnya resep 
membuat masakan (terdapat di dalam tabloid, majalah, atau buku resep 
masakan), panduan praktikum (terdapat di dalam buku modul praktikum), 
cara menggunting pola pakaian (terdapat di dalam majalah wanita), 
langkah-langkah mengaktifkan voucher pulsa ponscl (terdapat di belakang 
kartu prabayar), cara mencari saluran (ditulis di buku panduan TV), cara 
merakit barang elektronik, dan sebagainya. 

Contoh langkah-langkah pengeijaan di dalam resep masakan: 

1. Tuangkan satu gelas santan ke dalam wajan. 

2. Masukkan bumbu-bumbu yang sudah dihaluskan, aduk hingga merata. 

3. Tambahkan garam, merica, dan kecap asin. 

4. Masak dengan api sedang sambil diaduk. 

Contoh langkah-langkah pengeijaan di dalam praktikum kimia: 

1. Siapkan tabung reaksi ukuran 100 cc 

2. Teteskan 50 cc larutan H a So 4 ke dalam tabung. 

3. Campurkan 20 cc larutan NaOH ke dalamnya, aduk hingga tercampur 

merata. i I- 

Contoh langkah-langkah pengisian pulsa kartu prabayar: 

1. Tekan #888 lalu tombol l 
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2. Tekan “2" untuk mulai memasukkan pulsa. 

3. Masukkan 14 digit kartu prabayar 

4. Akhiri dengan menekan tombol # 

Meskipun kita tidak menyebutkan langkah-langkah pengerjaan itu sebagai 
algoritma, tetapi dal am konteks ini semua di atas adalah algoritma. 

Sekarang An da sudah mulai mengerti bahwa sebuah algoritma mengerjakan 
sebuah proses. Secara umum, benda yang mengeijakan proses disebut 
pemroses (processor ). Pemroses tersebut dapat berupa manusia, komputer, 
robot, atau alat-alat mekanik/elektronik lainnya. Pemroses melakukan suatu 
proses dengan melaksanakan atau mengeksekusi algoritma yang 
menjabarkan proses tersebut. Melaksanakan algoritma berarti mengeijakan 
langkah- langkah di dalam algoritma tersebut. Ibu-ibu yang mencoba resep 
suatu masakan akan membaca satu per satu langkah pembuatannya, lalu ia 
mengeijakan proses sesuai yang ia baca. 

Setiap masalah mempunyai algoritma pemecahannya. Tugas kita sebagai 
pemecah masalah (problem solver ) untuk mendeskripsikan langkah-langkah 
penyelesaiannya. Di bawah ini diberikan contoh masalah sederhana dalam 
kehidupan sehari-hari dan algoritma pemecahannya. 

&) Misalkan ada dua buah ember atau bejana yang berisi air (larutan) yang 
berwama, sebut ember A dan B. Ember A berisi air yang berwama merah, 
sedangkan ember B berisi air berwama biro (Gambar 1.3). Volume air di 
dalam kedua ember sama. Bagaimana mempertukarkan isi kedua ember 
itu sedemikian sehingga nantinya ember A akan berisi air berwama biro 
dan ember B berisi air berwama merah. 



Ember A Ember B 


Gambar 1.3 Dua buah amber berisi air yang berbeda wama Ember A berisi air berwama 
merah. ember 8 berisi air berwama blru. 


Penyelesaian: 

Kita tidak bisa langsung mempertukarkan air di dalam kedua ember tadi 
begitu saja sebab cara seperti itu menyebabkan teijadinya percampuran. 
Agar bisa dipertukarkan, kita memerlukan sebuah ember tambahan sebagai 
tempat penampungan sementara. Misalkan tambahan tersebut adalah 
ember C. Dengan menggunakan ember C ini, algoritma mempertukarkan isi 
kedua buah ember adalah seperti algoritma berikut ini: 


m 


T 
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ALGORITMA memperturkarkan iei dua buah ember, A dan B: 

1. tuangkan air dari ember A ke dalan ember C. 

£. tuangkan airdari ember B ke dales ember A. ' * 

3;. tuangkan air darl ember C ke da lam ember B. • : 

Proses pertukaran tersebut diilustrasikan dalam urutan gambar di bawah 
ini: 

Kcadaan awal sebelum pertukaran: 



Embers Ember B Ember C 

Langkah pertukaran: 

l. Tuangkan air dari ember A ke dalam ember C 



Ember A Ember B Ember C 

2. Tuangkan air dari ember B ke dalam ember A 



Ember A Ember B Ember C 


3. Tuangkan air dari ember C ke dalam ember B 



Ember A Ember B Ember C 

Keadaan Akhir Setelah Pertukaran: 



Ember A Ember B Ember C 

2) Masih soal ember ©. EH dalam literatur klasik terdapat persoalan yang 
dinamakan water jug problem. Misalkan An da mempunyai dua buah 
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ember, masing-masing bervolume.5-liter dan 3-liter (gambar 1.4). Anda 
dimint a mcndapatkan air (dari sebuah danau) sebanvak 4 liter dengan 
menggunnkan bantuan hanya kedua ember tersebut (tidak ada peralatan 
lain yang tersedia. hanya kedua ember itu saja yang ada!), terserah 
bagaimana caranya. Anda boleh memindahkan air dari satu ember ke 
ember lain, membuang seluruh air dari ember, dan sebagainya. 
Uaga i ni a n a algori t m a nva? 




5 iitor 


Gombar 1.4 Dua bunh ombor masmgmasing bervolume 5 lilor dan 


Penyvleiaiun: 

Mnsalali ini mcmpunyai banyak keimingkinan penyelesnian. Salali satunyn 

clilulisknn tsubagai herikut: 

ALGOKITMA mendaputken air dengan volume 4 liter. 

1. Iul penuh ember J-liter dengan air. {rather 3-licet he tin I 3 licet 
air) 

2. Tuangkan air dari ember 3-lltnr ke dalam ember 5-liter. (ember 5- 
iicer eakarang borlal 3 liter air). 

1. Tnl panuh ember 1-1 iter dengan air. (ember 3-liter beriai 1 liter 
air) 

4. Tuangkan air dari ember J-liter ke dalam embor 5-liter hlngga 
penuh. { cii dalam ember J-Jiter eakarang tereiea 1 liter air) 

5. Huang aelutuh air dari ember 5-liter, (ember S-litei koaang) 

0. Tuangkan air dari ember 3-liter ke dalam ember 5-liter, (ember 5- 
llter aekarang beriai 1 liter air ) 

7. Iul penuh ember 3-llter dengan air. (ember 3-licer heriei 3 liter 
air) 

0. Tuangkan air dorl ember 3-liter ke dalam ember 5-liter, /ember 5- 
licer aekarang beriai 1 • 3 • 4 Jiter air). 


Hmtnm... temyatu cukup repot juga mendapatkan air 4 liter. Mungldn Anda 
punya langkah penyelesaian yang berbeda, atau mungldn jumlah langkahnya 
lebih sedikit atau lebih panjang dari algoritma. Perhatikanlah di dalam 
algoritma di atas kita tambahkan catatan/komentar di dalam tanda kurung 
kurawal. Komentar ini kelak berguna untuk memahami algoritma. Kita akan 
membicarakan lebih jauh pentingnya komentar pada bab-bab selanjutnya. 
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3) Misalkan seorang pcmuda tiba di tepi scbuah sungai. Pcmuda tersebul 
membawa seckor kambing, seckor srigala, dan sckeranjang sayur. 
Mcreka bermaksud hendak menyeberangi sungai. Pcmuda itu 
mencmukan scbuah perahu kecil di pinggir sungai tetapi saynng hanya 
dapat mcmuat salu bawaan saja sctiap kali mcnycbcrang. Situasinya 
dipersulit dengnn kenyalnan bahwa srigala tidak dapat ditinggal bcrdun 
dcngan kambing (karcna srigala akan mcmangsa kambing) atau kambing 
tidak dapat ditinggal berdua dcngan sckeranjang sayur (karcna kambing 
akan memukan sayur). Hagaimana algoritma si pcmuda menyeberangkan 
scluruh bawaannva itu sebingga mcreka sampai kc sebening sungai 
dcngan sclamat. Tcntu saja hanya si pcmuda ynng bisa mendavung dan 

perahu. 

Keadaan Awal Keadaan Akhir 


Sisi A: P, S, K, Y 


Sisi B: Sisi B: P, S, K, Y 

Garnbnr 1.5 Kendoan aw.il dan keadaan akhir proso* ponyoberangan pomudo (P) dan 
bowaonnyn yang terdiri don Angola (S). kambing (K). dan aokoranjang sayur (Y) Pornhu honyn 
dapat momuol salu bawnan saja pada sotmp kak monyeborang Srtgnla bdnk dapat 
ditinggalkan borsama kambing. begitu pula kambing tidak dapat ditinggalkon borsama sayur. 


Penyclcsaian: 

Misalkan sisi sungai kita namakan A dan sisi sungai seberangnyn kita 
namakan II. Keadaan awalnya, di sisi /\ ada pcmuda ( P ). srigala ( 5 ), kambing 
( K), dan sayur (VO- Keadaan akhir yang kita inginkan adalah di sisi II ada 
pcmuda (P). srigala (S), kambing (AO, dan sayur (P). Gambar 1.5 
mcmperlihatkan keadaan yang dimaksud. 

Algoritma menyeberangkan seluruh bawaan tersebut kita tuliskan seperti di 
bawah ini: 

ALGORITMA menyeberangkan pemuda dan bawaannya: 

{ sisi A: (P.S.K.Y) sisi B: ) 

1. Pemuda menyeberangkan kambing dari cioi A ke sisi B. 

( sisi A: (-,S, K, Y) sisi B: (P.-.K,-) f 

2. Pemuda raenyeberang oendiri dari B ke A. 
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{ siBi A: (P,S,-.Y) sisi B: } 

3. Pemuda menyeberangkan srigala dari sisi A ke sisi B. 

( sisi A: sisi B: (P.S.K,-) ) 

4. Pemuda menyeberangkan kambing dari sisi B ke sisi A. 
( sisi A: (P, -, K, Y) sisi B: (-,S} 

5. Pemuda menyeberangkan sayur dari sisi A ke sisi B. 

f Bisi A: Bisi B : (P.S.-.Y) ) 

6. Pemuda menyeberang oendiri dari B ke A. 

{ aiBi A: (P.-.K,-) slBl B: (-.S.-.Y) ) 

3. Pemuda menyeberangkan kambing dari sisi A ke sisi B. 
( si oi A: sisi B: (P.S.K, Y) ) 


1.3 Sejarah Algoritma 

Algoritma atlalah janlmuj ilmu komputcr atau infonnatika. Banyak cabang 
dari ilmu komputcr yang diacu dalam terminologi algoritma, misalnya 
algoritma pcmtcan ( routing ) pcsan di dalam jaringan komputer, algoritma 
brensenham untuk menggambar garis lurus (bidang grafika komputer), 
algoritma Knutb-Moms-Pratt untuk incncari suatu pola di dalam teks 
(bidang information rctrirvel), dan scbagainya. 

Ditinjau dari asal usul kata, kata “algoritma" scndiri mcmpunyai sejarah 
yang cukup an eh. Kata ini tidak muncul di dalam kamus Webster sampai 
akbir tahun 1957. Orang hanya menemukan kata algorism yang berarti 
proses menghitung dengan angkn Arab (KNU 73 J- Anda dikatakan algorist 
jika Anda mcnggunakan angka Arab. Para ahli bahasa bcrusaha menemukan 
asal kata algorism ini namun hasilnya kurang mcmuaskan. Akhirnya para 
ahli sejarah matematika menemukan asal mula kata tersebut. Kata algorism 
berasal dari narna penulis buku Arab yang terkcnal, yaitu Abu Ja’far 
Muhammad ilmu Musa al-Khuwarizmi (al-Kliuwarizmi dibaca orang Barat 
menjadi algorism). Al-Khmvarizmi (lihat perkiraan wajahnya pada Gambar 
1.6, diambil dari www.iescarrus.com) menulis buku yang beijudul Kitab al 
jabar wal-muqabala, yang artinya "Buku pemugaran dan pengurangan" 
(The book of restoration and reduction). Dari judul buku itu kita juga 
memperoleh akar kata “aljabar" (algebra). Perubahan dari kata algorism 
menjadi algorithm muncul karena kata algorism sering dikelirukan dengan 
arithmetic, sehingga akhiran -sm berubah menjadi -thm. Karena 
perhitungan dengan angka Arab sudah menjadi hal yang sudah biasa/ 
lurnrah, maka lambat hum kata algorithm berangsur-angsur dipakai sebagai 
nietodc perhitungan (komputasi) sccara umum, sehingga kehilangan makna 
aslinyn [PAR95]. Dalam bahasa Indonesia, kata algorithm diserap menjadi 
“algoritma". 
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Gambur 1.6 (a) Sv> <• ,< v,.i|nh nl-Khuivarirmi, (b) al-Khuwanzmi dalam r,f.buanp®fangko 


Puda tnhun 1950, kata aigoritma pcrtama kali digunakan pada "aigoritma 
Euclidean" {Euclid's algorithm). Euclid, seorang matcmatikawan Yunani (lahir 
pada tahun 350 M), dalam bukunya yang beijudul Element mcnulfekan 
langkah-langkah uniuk mcncmukan peinbagi bersama terbesar {common 
greatest divisor atau ged), dan dua buah bUangan bulat, m dan /1 IKNU73J 
(lentu saja Euclid tidak menyebut metodenya itu sebagai aigoritma, bam di 
abad modemlah orang-orang menyebut metodenya itu sebagai “aigoritma 
Euclidean"). Pembagi bersama terbesar dari dua buah bilangan bulat tak- 
negatif adalah bilangan bulat positif terbesar yang liabis membagi kedua 
bilangan tersebut 

Misalnya, m = 80 dan n = 12. Semua faktor pembagi 80 adalah 
1. 2, 4. 5.8. io, 16, 20,40, 8o, 

dan semua faktor pembagi 12 adalah 
1. 2,3.4.6,12, 

maka 90/(80,12) = 4. Langkali-langkah mencari gcd{ 80, 12) dengan aigoritma 
Euclidean sebagai berikut: 

80 dibagi 12 hasilnya = 6. sisa = 8 (atau: 80 = 6 -12 + 8) 

12 dibagi 8 hasilnya = 1, sisa = 4 (atau: 12 = 1 • 8 + 4) 

8 dibagi 4 hasilnya = 2, sisa = 0 (atau: 8 = 42 + 0) 

Ksrena pembagian yang terakhir menghasilkan 0, maka sisa pembagian 
terakhir sebelum o, yaitu 4, menjadi 90/(80,12). Jadi, gcd{ 80,12) = 
90/(12,8) = gcd{ 8,4) = 90/(4,0)= 4. Proses mencari ged dari 80 dan 12 juga 
dapat diilustrasikan dalam diagram berikut: 
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80 = 6 12 + 8 



8 = 2 4 + 0 


Terdapat beberapa vcrsi algoritma Euclidean, sal ah satu versinyn ditulisknn 
di hawah ini. 

ALGORITMA Eucliodnn: 

(Dibcnkan du« nu«/i bilangan bulat tak-negalit a dan n (m 2 nl. 
Algoritma Buclidaan aencari pambagl beraama terboaar, ged, dart kodua 
bi lang.tn rfvaebuc, yal tu bllangan bulat poaltit torbotiar yang habit 
membagi m dan n. j 

1. Jlk.i n • 0 mak* 

m niUlah juv.ibmuiyai 
atop. 

totapi Jlkn n * 0. 
lanjutkan k*» lungkah 2. 

2. Oagilah in dnngan n dan mioalkan x octal ah nlnony/i, 

1. Ounti niUl m dongan nilai xi dan nlloi n dongnn nllal r, lalu ulnruj 
kembnll k«* langkah 1. 


Dengan menggunnkan algoritma Eucliedan ini, kila dapat menghitung ged 
clari dua buah bilangan bulal sembarang secara sistemalis. 

Contoh-contoh algoritma yang sudah dijelaskan di alas member! dun pesan 
penling. Pertama, sebunb algoritma harus benar. Kedua, algoritma hams 
berhenti, dan setelah berhenti. algoritma memheri basil yang benar. 
Menurut Donald E. Knuth dalam bukunya yang beijudul 77 *c Art of 
Computer Programming [KNU 73 J. sebuah algoritma harus mempunyai 
limn ciri pendng: 

t. Algoritma harus berhenti setelah mengerjakan sejumlah langkah 
terbatas. Sebagai contoh, tinjau kembali algoritma Euclidean. Pada 
langkah i, jika n - o, algoritma berhenti. Jika n * o, maka nilai n sclalu 
berkurang sebagai akibat langkah 2 dan 3, dan pada akhimya nilai n = o. 
Program yang tidak pemah berhenti mengindikasikan bahwa program 
tersebut berisi algoritma yang salah. 

2. Sctiap langkah hams didcfinisikan dengan tepat dan tidak berarti-dua 
( ambiguous ). Pcmbaca hams mengerti apa yang dimaksud dengan “m 
dan it adalah bilangan bulat tak-negatif. Contoh lainnya, pemyataan 
“bagilah p dengan sejumlah beberapa buah bilangan bulat positiP dapat 
bennakna ganda. Berapakah yang dimaksud dengan “berapa"? 

Algoritma menjadi jelas jika langkah tersebut ditulis -bagilah p dengan 
to buah bilangan bulat positif. 
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3. Algoritma memiliki nol atau lebih masukan {input). Masukan ialah 
besaran yang diberikan kepada algoritma untuk diproses. Algoritma 
Euclidean mempunyai dua buah masukan, m dan n. 

4. Algoritma mempunyai nol atau lebih keluaran (output). Keluaran dapat 
berupa pesan atau besaran yang memiliki hubungan dengan masukan. 
Algoritma Euclidean mempunyai satu keluaran, yaitu m pada langkah 1, 
yang merupakan pembagi bersama terbesar dari kedua masukannya. 

5. Algoritma hams sangkil ( effective). Setiap langkah hams sederhana 
sehingga dapat dikeijakan dal am sejumlah waktu yang masuk akal. 


1.4 Program dan Pemrograman 

Algoritma bam efektif jika dijalankan oleh sebuah pemroses (processor ). 
Pemroses itu bisa manusia, komputer, robot, mesin, dan sebagainya. Pemroses 
membaca setiap instmksi di dalam algoritma lalu mengerjakannya. Menumt 
[GOL88), suatu pemroses hams: 

1. Mengerti setiap langkah dalam algoritma, 

2. Mengerjakan operasi yang bersesuaian dengan langkah tersebut. 

Kita memfokuskan pemroses algoritma adalah komputer. Komputer adalah 
alat bantu untuk menjalankan perintah-perintah di dalam algoritma yang 
telah "dimasukkan" ke dalamnya. Agar komputer mengerti perintah yang 
dimaksudkan, maka perintah tersebut harus ditulis dalam bahasa yang 
dipahami olehnya. Oleh karena itu, algoritma hams ditulis dalam bahasa 
khusus, yaitu bahasa komputer. Algoritma yang ditulis dalam bahasa 
komputer dinamakan program. Bahasa komputer yang digunakan dalam 
menulis program dinamakan bahasa pemrograman. Orang yang 
membuat program komputer disebut pemrogram, dan kegiatan 
merancang dan menulis program disebut pemrograman. Di dalam 
pemrograman ada aktivitas menulis kode program, kegiatan ini dinamakan 
coding. 

Salah satu dari sekian banyak bahasa pemrograman, dan akan kita pakai di 
dalam buku ini, adalah bahasa Pascal. Program 1.1 di bawah ini adalah 
contoh sebuah kode program dalam bahasa Pascal. Program tersebut 
melakukan pengurutan sekumpulan nilai ujian mahasiswa. Data nilai ujian 
mahasiswa dibaca dari papan ketik (keyboard), lalu diurutkan dari kecil ke 
besar, dan akhimya basil pengurutan ditampilkan di layar peraga (monitor). 
Untuk sementara, Anda tidak perlu memikirkan bagaimana membuat 
program ini, karena materi seperti inilah yang akan Anda pelajari di dalam 
buku algoritma dan pemroraman. Jadi, sabarlah dulu. 

program PENGURUTAN; .» 

( Program untuk isen guru tkan nilai ujian aejualab aahaaiava ) 
oonat 

NraakB O 1000; { j uni at makoimum data ) 
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var 

Nilai i array[1..Nmaka] of integer; { cempat mcayinpan data ) 
j.k.temp, M, Imako t integer; 

begin 

(baca data nilai u Jlan N orang cuhaajsva) 
roadIN); 

for j:-l to N do 
readln(Nilai ljJ) , 

fendCor) 

furutkan data dongan langkah-lar.gkah berikut:) 
for Js-1 to H-l do { ulangi aobanyak N - 1 kali ) 
begin 

(carl nilai terbeoar ) 

Imakoi-j; 

for ki-j »1 to N do 

if Nilai(k| > Nilai (j) then 
Inuikst-k; 
fondlef 
(emit or) 

(tempatkan nilai torborrar pada poalai yang topat ) 
temp:-NilaiIj]/ 

Nilai h) :-Nilai IlmaknJ ; 

Nilai (Imako] t-tamp; 
and: ftor) 

( tII11 Ilka n nilai yang audah toruruti ) 
tor j i-l to II do 

wrltolnlMilal(jlJ; 
fondtor} 

ond. 

Program 1.1 Program i»>iuiuruliBn mini upon N orong mohnsiswa 


Secnra gnris besar koinputer tersusun alas empat komponen utama: piranti 
masuknn, piranti keluaran, unit pcmroscs utama, dan memori (Gambar 1 . 7 )• 
Unit pcmroscs utama (Central Processing Unit - CPU) adnlali “otak" 
komputer, yang berfungsi mengerjakan operasi-operasi dasar seperi operasi 
perbandingan, operasi perhitungan, operasi membaca, dan operasi mcnuUa. 
Memori adalah komponen yang berfungsi menyimpan atau mengingat-ingat. 
Yang disimpan di dalam memori adalah program (berisi operasi-operasi 
yang akan dikerjakan oleh CPU) dan data atau informasi (sesuatu yang 
diolah oleh operasi-operasi). Piranti masukan dan keluaran ( I/O devices) 
adalah alat yang memasukkan data atau program ke dalam memori. dan alat 
yang digunakan komputer untuk mengomunikasikan basil-basil 
aktivitasnya. Contoh piranti masukan antara lain papan ketik (keyboard), 
pemindai (scanner), tetikus (mouse), joystick, dan cakram (disk). Contoh 
piranti keluaran adalah lavar peraga (monitor), pencetak (printer), perajah 
(plotter), dan cakram. 
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Mekanisme kerja keempat komponen di atas dapat dijelaskan scbagai 
berikut. Mula-mula program diinasukkan ke dalam memori komputer. 
Ketika program dieksekusi (execute), setiap perintah di dalam program yang 
telah tersimpan di dalam memori dikirim ke CPU. CPU mengeijakan 
opernsi-operasi yang hersesuaian dengan perintah tersebut. Bila suatu 
perintah di dalam program meminta data masukan. maka data dibaca dari 
pirnnti masukan, lain dikirim ke CPU untuk operas! yang memerluknnnya. 
Bila program menghasilkan keluaran. maka kcluaran tersebut ditulis ke 
piranti keluaran (inisalkan dengan mencetaknya ke layar peraga). 




Gambar 1.7 Komponenkomponen ulama komputor Komputer tordiri atas Unit Pomrosos 
Utama. Momorl Piranti Masukan. dan Piranii Keluaran 


1.5 Belajar Memprogram dan Belajar 
Bahasa Pemrograman 

Belajar memprogram tidak sama dengan belajar bahasa pemrograman. 
Belajar memprogram berarti mempelajari metodologi pemecahan masalah, 
kemudian menuliskan nlgoritma pemecahan masalah dalam notasi tertcntu 
(LIF.96]. Sedangkan belajar bahasa pemrograman berarti belajar memakai 
suatu bahasa komputer. aturan tata bahasanva, instniksi-instruksinyn, tala 
cara pengoperasian compilcr-n ya. dan memanfaatknn instmksi-instruksi 
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tersebut untuk membuat program yang ditulis hanya dalam bahasa itu saja 
[LIE96]. 

Di dalam pemrograman, kita lebih menekankan pada pemecaban masalah, 
sementara menulis kode program a dal ah akti vitas terakhir. Mula-mula kita 
pildrkan rancangan pemecahan masalah tan pa bergantung pada bahasa 
pemrograman yang digunakan atau komputer yang menjalankan program 
itu nanti. Rancangan tersebut berisi urutan langkah-langkah pencapaian 
solusi yang biasanya ditulis dalam notasi-notasi deskriptif (notasi ini nanti 
kita namakan notasi algoritmik). Karena belajar memprogram yang baik 
bukanlah belajar membuat program “yang penting hasilnya benar", tetapi 
perlu dipikirkan membuat program dengan menggunakan skema yang 
benar. Hal ini, akan membuat program yang kita buat dapat bersih dari 
kesalahan yang timbul pada waktu eksekusi. 

Bila rancangan pemecahan masalah sudah dibuat dengan skema yang benar, 
maka rancangan tersebut siap dikodekan ke dalam bahasa pemrograman 
agar program bisa dieksekusi oleh komputer. Di sinilah perlunya kita belajar 
bahasa pemrograman. Ada banyak bahasa pemrograman yang tersedia saat 
ini, tetapi desain pemecahan masalah harus dapat diteijemahkan ke dalam 
bahasa apa pun. 

Hingga saat ini terdapat puluhan bahasa pemrograman. Kita dapat 
menyebutkan antara lain bahasa rakitan (assembly), Fortran, Cobol, Ada, 
PL/I, Algol, Pascal, C, C++, Basic, Prolog, USP, PRG, bahasa-bahasa 
simulasi seperti CSMP, Simscript, GPSS, Dinamo, dan masih banyak lagi. 
Belakangan juga muncul bahasa pemrograman bam seperti Java dan C#. 
Berdasarkan tujuan aplikasinya, bahasa pemrograman dapat digolongkan 
menjadi dua kelompok: 

1. Bahasa pemrograman bertujuan khusus ( specific purpose 
programming language). Yang termasuk kelompok ini adalah Cobol 
(untuk terapan bisnis dan administrasi), Fortran (aplikasi komputasi 
ilmiah), bahasa assembly (aplikasi pemrograman mesin), Prolog 
(aplikasi kecerdasan buatan), bahasa-bahasa simulasi ( Simscript ), dan 
sebagainya. 

2. Bahasa pemrograman bertujuan umuni ( general purpose 
programming language) yang dapat digunakan untuk berbagai 
aplikasi. Yang termasuk kelompok ini adalah bahasa Pascal, Basic, dan 
C, C++. 

Tentu saja pembagian ini tidak benar-benar kaku. Bahasa-bahasa bertujuan 
khusus tidak berarti tidak bisa digunakan untuk aplikasi lain. Cobol misalnya, 
dapat juga digunakan untuk terapan ilmiah, tetapi tentu kemampuannya 
sangat terbatas. Yang jelas, bahasa-bahasa pemrograman yang berbeda 
dikembangkan untuk bermacam-macam kegunaan yang berbeda pula. 
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Berdasarkan “kedekatan" bahasa pemrograman apakah Icbih condong ke 
bahasa mesin atau ke bahasa manusia, inaka bahasa pemrograman juga 
dapat dikelompokknn atas dua macam: 

1 . Bahasa tingkat rendali. Bahasa jenis ini dirancang agar setiap 
instruksinya langsung dikeijakan oleh kompuler, tanpa harus melalui 
penerjemah (translator). Contohnya adalah bahasa mesin ( machine 
language). Bahasa mesin adalah sekumpulan kode bincr (o dan 1). 
Setiap perintuh dalam bahasa mesin langsung “dimengerti" oleh mesin 
dan langsung dikeijakan. Bahasa tingkat rendah bersifat primitif, sangat 
sederhana, dan relatif sulit dipahami manusia. Bahasa assembly 
dimasukkan ke dalam kelonipok ini karena notasi yang dipakai dalam 
bahasa ini merupakan l>entuk "manusiawi" dari bahasa mesin, dan 
untuk melaksanakan instmksinya masili dipcrlukan penerjemahan (oleh 
assembler) ke dalam bahasa mesin. Bahasa tingkat rendah mcmpakan 
bahasa pemrograman generasi pertama yang pemah ditulis orang. 

a. Bahasa tingkat tinggi. Bahasa jenis ini membuat program incnjadi 
lebih mudah dipahami, lebih “manusiawi", dan Icbih dekat ke bahasa 
manusia (bahasa Inggris tcmtama). Kclcmahannya, program dalam 
bahasa tingkat tinggi tidak dapat langsung dilaksanakan oleh kompuler. 
la pcrlu ditcijcrnahkan terlebih dahulu oleh scbuah translator bahasa 
(yang disebut kompilator atau compiler) ke dalam bahasa mesin 
sebclum akhimya dieksekusi oleh CPU. Tahapan pemrograman dan 
pelaksanaan program oleh komputcr digambarkan pada Gambar 1.8. 
Contoh bahasa tingkat tinggi adalah Pascal, PL/I, Ada, Cobol, basic, 
Fortran, C, C++, dan sebagainya. 



Operas! 

(baca, lulls, hrtung. perbandingan. dsb) 


Gambar 1.8 Tahapan pelaksanaan program oleh kompuler. 
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Sebenamya batasan penggolongan bahasa pemrograman itu tidak selalu 
jelas. Pengertian tentang apa yang dimaksud dengan bahasa tingkat tinggi 
seringkali berbeda pada beberapa penulis. Ada penulis yang mendefinisikan 
bahasa tingkat tinggi dari sudut pan dang kemudahan pemakaiannya serta 
orientasinya yang lebih dekat ke bahasa manusia. Les Goldschlager [GOL88] 
menuliskan spektrum bahasa mulai dari bahasa tingkat tinggi ( Pascal , Ada, 
PL/I, Cobol), bahasa tingkat menengah (Bahasa Assembly, Basic, Fortran), 
sampai bahasa tingkat rendah (bahasa mesin). Kita tidak mendebatkan 
perbedaan cara pengelompokan bahasa pemrograman itu di sini, karena 
buku ini tidak membahas spesifikasi bahasa pemrograman tetapi, sekali lagi, 
belajar mem program! 


1.6 Notasi Algoritmik 

Di dalam upabab 1.5 sudah kita nyatakan bahwa notasi algoritmik dibuat 
independen dari spesifikasi bahasa pemrograman dan perangkat kerns 
komputer yang mengeksekusinya. Notasi algoritmik ini dapat diterjemahkan 
ke dalam berbagai bahasa pemrograman. Analoginya seperti resep membuat 
kue. Sebuah resep dapat ditulis dalam bahasa apapun, bahasa Inggris, 
Perancis, Indonesia, Jepang, dan sebagainya. Apa pun bahasa resep, kue 
yang dihasilkan tetap sama, sebab algoritmanya sama (dengan catatan 
semua aturan pada resep diikuti). Mengapa bisa demikian? Karena setiap 
juru masak (yang merupakan pemroses) mampu melakukan operasi dasar 
yang sama, seperti mengocok telur, menimbang berat gula, dan sebagainya. 
Jadi, resep membuat kue tidak terikat pada bahasa dan juru masak yang 
mengeijakannya. 

Demikian pula halnya komputer. Meskipun setiap komputer berbeda 
teknologinya, tetapi secara umum semua komputer dapat melakukan 
operasi-operasi dasar dalam pemrograman seperti operasi pembacaan data, 
operasi perbandingan, operasi aritmetika, dan sebagainya. Perkembangan 
teknologi komputer tidak mengubah operasi-operasi dasar itu, yang berubah 
hanyalah kecepatan, biaya, atau tingkat ketelitian. Pada sisi lain, setiap 
program dalam bahasa tingkat tinggi selalu diterjemahkan kedalam bahasa 
mesin sebelum akhimya dikerjakan oleh CPU. Setiap instruksi dalam bahasa 
mesin menyajikan operasi dasar yang sesuai, dan menghasilkan efek netto 
yang sama pada setiap komputer. 

Yang perlu dicatat adalah bahwa notasi algoritmik bukan bahasa 
pemrograman, sehingga siapa pun dapat membuat notasi algoritmik yang 
berbeda. Hal yang penting mengenai notasi tersebut adalah ia mudah dibaca 
dan dimengerti. Selain itu, meskipun notasi algoritmik bukan notasi baku 
sebagaimana pada notasi bahasa pemrograman, namun ketaatasasan 
terhadap notasi perlu diperhatikan untuk menghindari kekeliruan. 
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Di bawah ini kita kemukakan beberapa notasi yang digunakan untuk menulis 
algoritma. Masalah yang dijadikan contoh ilustrasi adalah menghitung 
pembagi bersama terbesar dengan algoritma Euclidean flihat kembali Bab 
1 . 2 ). 


1. Notasi 1 : menyatakan langkah-langkah algoritma dengan untaian 
kalimat deskriptif. 

PgOggAH Euclidean 

Dlberikan due buab bilangan bulat tak-negatif m dan n fm in). 

Algoritma Euclidean mmncari pembagi bexeama tcrboear. gcd, dari kedua 
bilangan tereebut, yait u bilangan bulat poeltlf terbeear yang liable 
membagl m dan n. 

ALG0R1TOA: 

1. Jiku n - 0 tnalta 

n adalah jawabannya/ 
atop. 

Cetapi jlki n» 0, 
lanjuCkan ke langkah 2 . 

2. Bag 1 lab n dengan n dan ml Balkan r adalah alaanya. 

3. Oantl nllal n dengan nllai n dan nllal n dangan nllol r. lalu ulong 
kembali ke langkah 1 . 

Dengan notasi bergaya kalimat ini, deskripsi setiap langkah dijelaskan 
dengan bahasa yang gamblang. Proses diawali dengan kata keija seperti 
■baca’, ‘hitung', 'bagi', 'ganti*, dan sebagainya, sedangkan pemyataan 
kondisional dinyatakan dengan 'jika ... maka ...'. Notasi ini baik buat orang 
awam, tetapi terdapat kesukaran menerjemahkannya langsung ke dalam 
notasi bahasa pemrograman. 

2 . Notasi II : menggunakan bagan-alir ( flowchart ) 

Pada masa awal perkembangan komputer, ilmuwan menspesifikasikan 

a oritma sebagai bagan-alir (flowchart), yang mengekspresikan algoritma 
agai sekumpulkan bentuk-bentuk geometri (seperti persegi panjang, 
lingkaran, jajaran genjang, bentuk-intan, dan sebagainya) yang berisi 
langkah-langkah komputasi. Kotak empat persegi panjang menyatakan 
proses, sedangkan pemyataan kondisional dinyatakan dengan bentuk intan 
C diamond ). Bagan-alir populer pada awal era pemrograman dengan 
komputer (terutama dengan bahasa Basic, Fortran, dan Cobot)- Bagan-alir 
tidak banyak digunakan lagi saat ini karena ia cenderung tidak praktis 
dikonvcrsi ke bahasa pemrograman, namun beberapa algoritma sederhana 
masih sering digambarkan sebagai bagan-alir. Bagan-alir mengambarkan 
aliran instruksi di dalam program secara visual. Notasi algoritmlk dengan 
diagram alir cocok untuk masalah yang kedl, namun tidak cocok untuk 
masalah yang besar karena membutuhkan berlembar halaman kertas. Selain 
itu, pengonversian notasi algoritma ke notasi bahasa pemrograman juga 
cenderung relatif lebih sukar. 
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Keterangan: 

a. MOD adalah operator pembagian bilangan bulat yang mcnghasilkan sisa 
hasil pembagian. Contohnya, 9 MOD 2-1 karena 9 dibagi 2 = 4 dan 
memberikan sisa = 1. 

b. Di dal am diagram alir di atas ditambahkan instruksi pembacaan nilai m 
dan n. 


3. Notasi III : menggunakan pseudo-code 

Para ilmuwan komputer lebih menyukai menuliskan algoritma dalam notasi 
yang lebih praktis, yaitu notasi pseudo-codt Pseudocode (pseudo artinya 
semu atau tidak sebenamya) adalah notasi yang mirip dengan notasi bahasa 
pemrograman tingkat tinggi, kbususnya (paling Bering) bahasa Pascal dan C. 
Lebih tepatnya pseudo-code adalah campuran antara bahasa alami dengan 
bahasa pemrograman. Namun, tidak seperti bahasa pemrograman yang 
direpotkan dengan tanda titik koma (semicolon), indeks, format keluaran, 
aturan khusus, dan sebagainya, maka sembarang versi pseudo-code da pat 
diterima asaDcan perintahnya tidak membingungkan pembaca [UU85]. Jadi, 
tidaklah mengherankan jika banyak ilmuwan komputer tidak menyepakati 
suatu pseudo-code tertentu, bahkan mereka cenderung membuat "dialek" 
pseudo-code dengan style mereka sendiri. Keuntungan menggunakan notasi 
pseudocode adalah kemudahan mengonvereinya-lcbih tepat disebut 
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mentranslasi-ke notasi bahasa pemrograman, karena terdapat 
korcspondensi antara setiap pseudo-code dengan notasi bahasa 
pemrograman. Korespondensi ini dapat diwujudkan dengan tal>el translasi 
dari notasi algoritmik ke notasi bahasa pemrograman apa pun. 


Pseudo-code yang digunakan di dalam buku ini banyak diadopsi dari bahasa 
Pascal, namun tidak benar-benar mematuhi semua sintaks Pascal. Algoritma 
Euclidean jika kita tulis dengan menggunakan notasi pseudo-code adalah 
seperti di bawah ini: 

PROOftAM Kucl Idvan 

Piojr.im untuk mencari ged dari dua buah bllangsn bulat tak-ncgatll m 
dan n 2 n/. g cd dari m dan n adalah bil&ngan bulat poaitif terbauar 
yang hahia membagi a dan n. 

DRIOARAfll; 

m, n i Integer { bllangan bulat yang nkan dicarl pbt-nya/ 

r i in tege r { maa haail bag 1 / 


ALQORITMAi 

road(m,n) (min) 

while n / 0 do 

r ♦- m HOD n ( hi lung oioa haail pembagian ) 
m ♦- n 
n *- r 
endwhile 

{ kondlal uclaual pangulnngam n - 0 , «aka qal(n,n) - m ) 


write(m) 


Kata-kata yang digarisbawahi menyntakan kata-kata penting ( keywords ) 
yang nantinya berpadanan dengan kata penting path bahasa komputer yang 
dipilih untuk mcntranslasikan algoritma tersebut. Kalimat yang dinpit 
dengan pasangan kurung kurawal ({ dan }) menyatakan komentar. 
Komcntar berguna untuk lebih memperjelas instruksi yang dituliskan. 
Peubah yang digunakan di dalam algoritma dituliskan pada hagian 
Dcklara.si, sedangkan Inngkah-langkah penyelesian masalah dinyatakau 
pada bagian Algoritma Data masukan yang diperlukan algoritma dibaca 
dengan perintah input, sedangkan keluaran algoritma ditulis dengan perintah 
output. Karakter H «-" menyatakan bahwa nilai di sebclah kanannya diiisikan ke 
dalam peubah di sebelah kirinya. Kata-kata Iain seperti while , integ er, dun lain- 
lain akan dijekiskan di dalam Bab 3. 


1.7 Pemrograman Prosedural 

Algoritma berisi urutan langkah-langkah penyelesaian masalah. Ini berarti 
langkah-langkah di dalam algoritma menyatakan proses yang prosedural. 


Bob 1 - Apnkah Algoritma dan Pemrograman Hu? 


r 21 
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Definisi prosed ur menurut Kamus Besar Bahasa Indonesia (KBBI): 


Prosedur : 1. tahap- t ah a p kegialan untuk menyelesaikan suatu aktivitas; 

: 2. metode langkah demi langkah secara eksak dal am 
memecahkan suatu masalah (KBBi 1988). 

Pada pemrograman prosedural, program dibedakan antara bagian data 
dengan bagian instruksi. Bagian instruksi terdiri atas runtunan ( sequence) 
instruksi yang dilaksanakan satu per satu secara berurutan oleh sebuah 
pemroses. Alur pelaksanaan instruksi dapat berubah karena adanya 
pencabangan/kondisional. Data yang disimpan di dalam memori dimanipulasi 
oleh instruksi secara be run tun. Kita katakan bahwa tahapan pelaksanaan 
program mengikuti pola beruntun atau prosedural. Paradigma pemrograman 
seperti ini dianamakan pemrograman prosedural. Bahasa-bahasa tingkat 
tinggi seperti Cobol, Basic, Pascal, Fortran, dan C mendukung kegiatan 
pemrograman prosedural, karena itu mereka dinamakan juga bahasa 
prosedural. 

Selain paradigma pemrograman prosedural, paradigma pemrograman yang 
populer saat ini adalah pemrograman berorientaai objek ( Object 
Oriented Programming atau OOP). Pada paradigma ini, data dan instruksi 
dibungkus ( encapsulation) menjadi satu. Kesatuan ini disebut kelas (class) 
dan instansiasi kelas pada saat run-time disebut objek (object). Data di 
dalam objek hanya dapat diakses oleh instruksi yang ada di dalam objek itu 
saja. 

Paradigma pemrograman yang lain adalah pemrograman fungsional, 
pemrograman deklaratif, dan pemrograman konkuren. Buku ini 
hanya menyajikan paradigma pemrograman prosedural saja. Paradigma 
pemrograman yang lain di luar cakupan buku. 


Soal Latihan Bab 1 

1. Tuliskan bebcrapa contoh algoritma yang lain dalam kehidupan sehari- 
hari. Tuliskan juga beberapa contoh langkah di dalam algoritmanya. 

2. Tiga pasang suami istri yang sedang menempuh peijalanan sampai ke 
sebuah sungai. Di situ mereka mcnemukan sebuah perahu kecil yang 
hanya bisa membawa tidak lebih dan dua orang sedap kali 
menyeberang. Penyeberangan sungai dirumitkan oleh kenyataan bahwa 
para suami sangat pence mb uru dan tidak mau meninggalkan istri-istri 
mereka jika ada lelaki lain. Tulislah algoritma untuk menunjukkan 
bagaimana penyeberangan itu bisa dilakukan. 
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3. Misalkan terdapat dua buah ember, masing-masing mempunyai volume 
5 liter dan 3 liter. Tuliskan algoritma untuk memperoleh air sebanyak 1 
liter dengan hanya menggunakan kedua ember tersebut. 

4. Tiga buah cakram yang masing-masing berdiameter berbeda 
mempunyai lubang di titik pusatnya. Ketiga cakram tersebut 
dimasukkan pada sebuah batang besi A sedemikan sehingga cakram 
yang berdiameter lebih besar selalu terletak di bawah cakram yang 
berdiameter lebih kedl (Gambar 1.5). Tulislah algoritma untuk 
memindahkan seluruh cakram tersebut batang besi B; setiap kali hanya 
satu cakram yang boleh dipindahkan, tetapi pada setiap perpindahan 
tidak boleh ada cakram yang lebih besar berada di atas cakram kecil. 
Batang besi C dapat dipakai sebagai tempat peralihan dengan tetap 
memegang aturan yang telah disebutkan. 


/ 

* t 

3 

_ 



5. Pada peristiwa pemilihan kepala desa (kades), setiap warga yang 
mempunyai hak pilih memilih satu di antara 4 calon kades. Kartu suara 
memuat foto dan nomor unit kades. Warga mencoblos calon kades yang 
dipilihnya, lalu memasukkan kartu suara ke dalam sebuah kotak. Setelah 
pemungutan suara usai, kegiatan selanjutnya adalah menghitung jumlah 
suara untuk masing-masing calon. Untuk menghitungnya, panitia tidak 
menggunakan tabel cayley seperti yang biasa dilakukan orang, tetapi 
menyediakan empat buah kotak kosong (yang merepresentasikan 4 
calon kades). Satu per satu kartu suara diambil dan dibaca. Setiap kali 
kartu suara berisi coblosan nomor satu, maka sebutir batu kecil 
dimasukkan ke dalam kotak 1. Begitu pula setiap kali kartu suara berisi 
coblosan nomor dua, maka sebutir batu kecil dimasukkan ke dalam 
kotak 2. Hal yang sama juga dilakukan untuk kartu yang berisi coblosan 
nomor 3 dan empat. Demikian seterusnya sampai semua kartu suara 
habis dibaca. Akhimya, jumlah batu di dalam setiap kotak menyatakan 
jumlah suara yang diraih oleh setiap calon kades. Tulislah algoritma 
untuk menghitung jumlah suara untuk masing-masing calon kades 
dengan metode perhitungan yang unik ini. Asumsikan bahwa semua 
suara adalah sah (tidak ada golput). 

6. Di manakah letak kesalahan algoritma menjalankan sepeda motor 
berikut ini: 


Bab 1 - Apakah Algoritma dan Pemrograman Itu? 
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ALGORITHM monjalonkan aepcda motor: 

1 . Hidupkan otarter 

2. Mooukkon kunci kontak. 

3. Tekan gigi 1. 

4. Pcrbcuar gaa 

5. Jalan. 


24 
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2 


Struktur Dasar Algoritma 


Bab 2 ini akan menjelaskan konsep-konsep dasar algoritma, meliputi 
bcberapa istilah yang sering dipakai dalam pemrograman dan struktur dasar 
pembangun algoritma. Untuk menjelaskan konsep dasar itu, kita mengambil 
contoh-contoh sederhana yang terdapat dalam kehidupan sehari yang 
mudah dimcngerti. 


2.1 Pernyataan 

Sebuah algoritma merupakan dcskripsi langkah-langkah pelaksanaan suatu 
proses. Setiap langkah di dalam algoritma dinyatakan dalam sebuah 
pernyataan ( statement) atau istilah lainnya instruksi. Sebuah pernyataan 
berisi aksi ( action ) yang dilakukan. Bila sebuah pernyataan dieksekusi oleh 
pemroses, maka aksi yang bersesuaian dengan pernyataan itu dikeijakan. 

Sebagai contoh, mlsalkan di dalam algoritma ada pernyataan berikut: 

Tulls 'Hallo, world* 

maka pernyataan tersebut menggambarkan aksi menulis pesan •HeJ lo, world -. 
Pernyataan 

Kallkan a dengan 2 

menggambarkan aksi mengaiikan a dengan 2 dan hasil perkalian disimpan 
di dalam peubah a lagi. 


Bab 2 - Struktur Dasar Atgoritma 
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Pemyataan 

Jika bulan . 'Januari' na*a eulla ;<*>jualah hari - 31- 

Terdiri dan dua aksi, yaitu membandingkan nilai variabel bulan dengan 
* januarl'.dan aksi tulis pcsan • jumlah hari - 31 ' jika perbandingan itu 
benar. 

Di dalam algoritma terdapat beberapa jenis pemyataan, seperti pemyataan 
ekspresi, pemyataan pemilihan, pemyataan pengulangan, pemyataan 
prosedur, pemyataan gabungan, dan sebagainya. Semua jenis pemyataan 
tersebut akan kita bah as nanti. 


2.2 Konstruksi Dasar 

Algoritma berisi langkah-langkah penyelesaian suatu masalah. Langkah- 
langkah tersebut dapat berupa runtunan aksi, pemilihan aksi, dan 
pengulangan aksi. Ketiga jenis langkah tersebut membentuk konstruksi 
suatu algoritma. Jadi, sebuah algoritma dapat dibangun dari tiga buah 
konstruksi atau struktur dasar, yaitu runtunan (sequence), pemilihan 
( selection), dan pengulangan (repetition) (Gambar 2.1). 



Runtunan PamJUhan Paoflulangan 

Gambar 2.1 Tlga konstruksi dasar algorilma Sstlap parsegi panjang malambangkan 
pamyalaan. Anak panah monunjukkan aflran Instruksl 


Gambaran ringkas masing-masing konstruksi dasar tersebut akan dyelaskan 
pada upa-bab di bawah ini. Pembahasan lengkap mengenai masing-masing 
konstruksi diberikan di dalam Bab 4,5, dan 6. 


2.2.1 Runtunan 

Sebuah runtunan terdiri dari satu atau lebih pemyataan, setiap pemyataan 
ditulis dalam satu baris atau dipisahkan dengan tanda titik koma. Tiap 
pemyataan dikeijakan secara berurutan (sekuensial) sesuai dengan 


a 
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urutannya di dalam teks algoritma, yaitu sebuah instruksi dilaksanakan 
setelah instruksi sebelumnya selesai dilaksanakan. Urutan instruksi 
menentukan keadaan akhir algoritma. Bila urutannya diubah, maka basil 
akhimya mungldn juga berubah. Runtunan satu atau lebih pemyataan 
dinamakan pemyataan-gabungan ( compound statements ). 

Perhatikan runtunan lima buah pemyataan yang dilambangkan dengan si, 
S2, S 3 , S 4 , dan ss berikut: 

si 

82 

S3 

84 

SS 

Mula-mula pemroses melaksanakan pemyataan si. Pemyataan S2 
dilaksanakan setelah pemyataan si selesai. Selanjutnya, pemyataan S 3 
dilaksanakan setelah pemyataan S2 selesai. Demikian seterusnya sampai 
pemyataan terakhir S 5 dilaksanakan. Setelah pemyataan S 5 selesai 
dilaksanakan, algoritma berhenti. 

Sebagai contoh pertama, tinjau kcmbali algoritma mempertukarkan isi dua 
buah ember A dan B di dalam Bab 1: 

ALGORITMA mcraporturkurkan iai dua buah ombor, A dan Bi 

1. Tuangkan a&r dart amber A ko dalaa oabar C. 

2. Tuangkan air darl aabar a ka dalaa amber A.. 

3. Tuangkan air darl ember C ka dalaa ember B. 

Algoritma di atas adalah sebuah runtunan yang terdiri atas tiga buah pemyataan. 
Tiap pemyataan akan dieksekusi dalam urutan yang sama sebagaimana tertulis di 
dalam teks algoritma tersebut. Hasil akhir algoritma ini adalah: ember A berisi air 
dan ember B semula, dan ember B berisi air dari ember A semula. 

Algoritma pertukaran is! dua buah ember memberikan inspirasi bagaimana 
mempertukarkan nilai dari dua buah peubah (variabcl). Misalkan peubah A 
berisi nilai 8 dan peubah B berisi nilai 5. Kita ingin mempertukarkan nilai A 
dan B sedemikian sehingga A bemilai 5 dan B bemilai 8. Kalau Anda 
menulis algoritmanya seperti ini: 

Maoukkan nilai A ke dalaa B 
Maaukkan nilai B ka dalam A ‘ 

maka hasilnya A = 8 dan 8 = 8, tidak teijadi pertukaran karena algoritmanya 
salah. Agar pertukaran keduanya benar, maka kita memerlukan peubah 
bantu, misalnya C, sehingga algoritmanya menjadi: 
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Masukkan nilai A ke dalam C 
Masukkan nilai B ke dalam A 
Manukknn nilai C ko dalam B 


Ilustrasi ketiga pemyataan ini ditunjukkan pada Gamhar 2.2. 


Sebelum pertukaran: 

|8J 1 _I 

l_5_ 1 

A 

C 

B 

Proses pertukaran: 

1 _1 

uu 

I 5 | Masukkan nilai A kc dalam C 

A 

c 

B 

LsJ 

UJ 

1 _| Masukkan nilai B kc dalam A 

A 

c 

B 

UU 

1 _1 

1 8 | Masukkan nilai C kc dalam B 

A 

c 

B 

Setelali pertukaran: 

UU 

A 

1 _1 

c 

UU 

B 


Gnmbnr 2.2 Prosos moroportuknrVnn mint A dan B dengan monggunnknn poubnh bonlu C 


2.2.2 Pemilihan 

Adakalanyn sebuah instniksi dikerjakan jika kondisi tcrtcntu dipcnulii. 
Misalkan kendaraan Anda tiha di pcretnpalan yang ada traffic light. Jika 
lampu traffic light sekarang benvnma mernh, maka kendaraan Anda hams 
berhenti. Langkah ini kita tulis dalam pemyataan l>erikut: 

jiko lampu traffic light berwnna mernh, maka berhenti 

Pemyataan di atas dapat dilulls dalam pernyataan-pemilihan ( selection- 
statement ), atau disebut juga pernyataan-kondisional, sebagai berikut: 
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if kondisi then 
aksi 

Dalam bahasa Indonesia, if berarti “jika" dan then artinya “maka"; kondisi 
adalah pcrsyaratan yang dapat bemilai benar alau salah; aksi sesudah kata 
then hanya dilaksanakan apabila kondisi bemilai benar. Sebaliknya, apabila 
kondisi bemilai salah, maka aksi tidak dilaksanakan. Perhatikan bahwa kata 
yang digarisbawahi, if dan then , merupakan kata kunci ( keywords ) untuk 
stniktur pemilihan ini. 

Dolam kehidupan sehari-hari, kita sering menuliskan pclaksanaan aksi bila 
suatu pcrsyaratan dipenuhi. Misalnya: 

If air di dalam ketcl mendidih then 
matikan api kompor 

if ouhu ruangan di atao SO "C then 
bunyikan alarm tanda bahaya 

if mobil ruaak then 
nalk angkot 

if x habio dibagl 2 then 

tulio bahwa x bllangan gnnap 


dan Iain-lain sebagainya. 

Struktur pemilihan if-then hanya memberikan satu pilihnn aksi bila kondisi 
(pcrsyaratan) dipenuhi (bemilai benar), dan tidak membcri pilihnn aksi lain 
bila kondisi bemilai salah. Bentuk pemilihan yang lebih umuni ialah 
mcmilih satu dari dua buah aksi bergantung pada nilai kondisi nya: 

if kondlmi then 

Akil 1 

Mkal 2 


else artinya "kalau tidak". Bila kondisi terpenuhi, aksi I akan dlkeijakan, 
tetapi kalau tidak (yaitu kondisi salah), aksi 2 yang akan dikcijukan. 
Misalnya pada pemyataan berikut: 

If Umpu A nya Id than 
token tombol me rah 
el Be 

token tombol blm 


Jika lampu A menyala, maka aksi tekan tombol incrah dilakukan, 
sebaliknya, aksi tekan tombol biru dilakukan bila lampu A tidak menyala. 

Contoh lainnya adalah menentukan nilai terbesar dari dua buah bilangan 
bulat, x dan y (andaikan x r y): 
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it x > y then 
tulis nilai x 
else 

tulio nilai y 


Menentukan apakah bilangan bulat x menipakan bilangan genap atau ganjil: 

if x habia dibagi 2 then 
tulia "genap" 
elec 

tulia "ganjil" 


Apabila pilihan aksi yang akan dilakukan lebih dari dua buah, maka struktur 
pemilihannya menjadi lebih remit, seperti pada contoh berikut (pemilihan 
bersarang atau nested-if ): 

if lampu traffic light berwana morah then 
berhenti 
oloe 

If lAmpu traffic light borvana kuning then 
jalan hati-hatl 

oloe 

jalan toruo 


Perhatikunlah baliwa penggunaan indentasi (rongak kosong) mcmbuat 
algoritma menjadi lebih mudah dibaca. Tanpa indentasi, algoritma inungkin 
menjadi sulit dibaca, misalnya jika algorima di atas ditulis seperti ini: 

if lampu traffic light berwana morah then 
hentikan kendaraan anda 

oloe if lampu traffic light berwana kuning then 
jalan dongan hati-hatl elne 
jalan teruo 


Contoh lain tentang pcntingnyn penggunaan indentasi adalah pada 
pemilihan bersarang untuk menentukan bilangan terbesar dari tiga buah 
bilangan: x, y, dan z: 

if x > y then 

if x * a then 

tulia x ocbagal bilangan terbeoar 
elae 

tulio : ocbagal bilangan terbeaar 
K y > x than 

tulia y nebagal bilangan terbeaar 

filf 

tulia x nebagal bilangan terbonar 


Bayangkan betapa sulitnya memahami algoritma di atas jika ia ditulis seperti 
di bawah ini: 
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if x > y then 
if x > s then 

tullo x scbagal bilangan terbesar 
else tulis z aebagai bilangan terbesar 
elne if y > z then 
tulis y aebagai bilangan terbeoar 
clBQ tuliD z sebagai bilangan terbeaar 

Tentu saja masalah menentukan bilangan terbesar untuk empat bilangan 
atau lebih mempunyai struktur pemilihan bersarang yang makin rumit. Pada 
bab tentang larik (array), kita akan helajar cara menentukan nilai terbesar 
dari sekumpulan nilai. 

Kelebihan struktur pemilihan terletak pada kemampuannya yang 
memungkinkan pemroses mengikuti jalur aksi yang berbeda berdasarkan 
kondisi yang ada. Tanpa stniktur pemilihan. kita tidak mungkin menulis 
algoritma untuk permasalahan praktis yang demikian kompleks. 


2.2.3 Pengulangan 

Salah satu kelebihan komputer adalah kemampuannya untuk mengerjakan 
pekeijaan yang sama berulang kali tanpa kenal lelah. Ini berbeda dengan 
manusia yang cepat lelah bila mengerjakan pekeijaan yang sama bcrulang- 
ulang. Tidak hanya lelah, tetapi juga cepat bosan. 

Bagaimana menuliskan sebuah kalimat yang sama sebanyak loo kali? 
Mungkin pada waktu duduk di sckolah dasar, Anda pernah dihukum oleh 
Bapak/lbu guru dengan menuliskan sebuah kalimat yang sama sebanyak 
100 kali, misalnya knrena Anda nakal atau tidak membuat PR. Misalkan 
kalimat yang hams ditulis sebanyak 500 kali adalah seperti ini: 

Soya borjanji tidak akan nakal dan malaa lagl 

Bagaimana jika kita menuliskan algoritmanya seperti ini: 

ALGORITMA tulin kalimat SOO kali? 

1. Tullo "Saya borjanji tidak akan nakal dan malaa Jagi“ 

2. Tullo “Saya borjanji tidak akan nakal dan malaa lagl- 

3. Tullo "Saya borjanji tidak akan nakal dan malaa log!' 

99. Tullo -Saya borjanji tidak akan nakal dan malaa lagi m 

100. Tullo 'Saya borjanji tidak akan nakal dan malaa lagi- 


Hmm, tentu saja algoritma di atas tidak elegan, karena instruksi 

Tullo “Saya berjanji tidak akan nakal dan malaa lagl' 
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harus ditulis dalam algorilma sebanyak 100 kali! Supaya kita tidak perlu 
mcnuliskan aksi yang sama berkali-kali, kita dapat menggunakan notasi 
pcngulangan. Di dalam algoritma terdapat banyak notasi pcngulangan yang 
bisa digunakan, antara lain repeat N times, for, repcat-until, dan while. 

Dengan notasi pertama, repeat N times (yang artinya: ulangi sebanyak N 
kali), maka algoritmanya dapat kita tulis menjadi: 

ALGORITMA tulie kalimae 100 kali: 
re peat 100 times 

Tulin *5aya berjanji tidak akan nakal dan malam lagt m 


Stniktur pengulangan ini dapat ditulis secara umum dengan pemyatnan- 
pcngulangan: 

repeat N times 
akal 

yang artinya: aksi diulang dikerjakan sebanyak N kali. 

Stniktur pcngulangan yang mirip dengan repeat N times ad a I ah/on 

for pencacah pengulangan dari 1 aampai M do 

akal 

yang artinya: aksi dilakukan sebanyak hitungan cacah pcngulangan, yaitu 
dari l sampai N (yaitu sebanyak N kali). Pencacah pengulangan dapat di-sef 
tidak hanya mulai dari 1. tetapi juga dari sembarang nilai yang lain. Contoh 
masalah penulisan too kalimat dengan notasi for menjadi: 

ALGORITMAi 

for 1 dari 1 aampal 100 do 

Tulle ‘Saya berjanji tidak akan nakal dan melee Ugf 


i adalah pencacah pengulangan yang mencacah pengulangan dari 1 sampai 
loo. Lebih lanjut mengenai notasi ini dapat Anda temukan di dalam Bab 7. 

Stniktur pengulangan yang ketiga adalah repeat-until (repeat artinya 
“ulangi" dan until artinya “sampai" atau “hingga") yang mempunyai bentuk 
umum sebagai berikut: 


repeat 

aksi 

until kondisi 

yang artinya adalah pcngulangan aksi dilakukan hingga kondisi 
(persyaratan) berhenti terpenuhi. Contoh masalah penulisan kalimat 100 
kali dengan notasi repeat-until menjadi: 
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ALGORITMA tulle kallaat 100 kail: • ; - . I . = 

g&Btg ..... :ii tr 

Tull* ’Saya berjanji tidak aJean nakal. dan mala* :UM W 
until sudah 500 kali ' ’ 

Contoh yang bagus untuk menjelaskan penggunaan stmktur repeat-until 
adalah pada masalah mencari data alamat dan nomor telepon raahasiswa 
tertentu, di mana data yang diketahui adalah NIM (Nomor Induk 
Mahasiswa) mahasiswa tersebut. Misalkan data pribadi mahasiswa disimpan 
di dalam sebuah tabel. Tabel terdiri atas kolom {field) NIM, Nama, Alamat, 
dan Nomor Telepon (lihat Tabel 2.1). Setiap bans di tabel kita sebut satu 
entry. Kita asumsikan tabc! sudah berisi sejumlah data mahasiswa (tabel 
berisi minimal satu entry data). 


Tabel 2.1 

Tabel data maheaiawa 


NIM 

Nama 

Alamat 

' Telepon ' 

13599001 


Jt Mawar 31A 

2504321 

13599009 

Rusli Nasution 

Jl. Dago 231 

2503456 

• •• 

• es 

see 

• ee 

13599087 

liamidnh Tanjung 

Jl. Pelesiran 24 

2519038 


Secara tradisional, kalau kita mencari informasi dari sebuah tabel, maka cara 
yang lazim kita lakukan adalah membaca setiap entry tabel satu per satu, 
mulai dari entry bans pertama, terns ke bawah, sampai data yang dicari 
ditemukan atau seluruh entry tabel sudah habis ditelusuri. Algoritma 
pencarian seperti itu sebagai berikut: 

tlnjau entry pertaua dl dalam tabcl 

if NIM pada entry tabel aama dengan HIM yang dicari then 
. aerbil Alamat dan Telepon dari HIM tereebut 

•1H 

tlnjau entry berlkutnya dl dalaei tabel 

if NIH pada entry tabel aama dengan NIM yang dicari then 
arabil Alamat dan Telepon dari HIM tersebut 
el*e 

tlnjau entry berlkutnya di dalam tabel 
if NIM pada entry tabel sama dengan NIM yang dicari then 
’ ambil Alamat dan Telepon dari NIM tersebut 

SiSS , 

tlnjau entry berlkutnya dl dalam tabel 
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Algoritma di atas mengandung kelemahnn karcna pemmgram tidak tahu 
kapnn hams bcrhenli inenullskan pcrnyataan kondisional. Dengan kata lain, 
pemrogrmn tidnk tabu berapa kali pcmyntaan 

It NIM pad., entry tnbel uar-a dengan NIM yang dicari then 
.iinbii Aloaat dnn Telcpon dnri NIM toraobut 
cl we 

tlnjau entry- borlkutnya dl dftlaa tabel 

harus ditulis sampai data yang dicari ditemukan. Tidak seperti pada struktur 
repeal N times atau for yang jumlab pengulangan aksi sudah diketahui 
sebelum pengulangan ciiluksanakan, maka kita da pat menggunakan slruktur 
rcpeal-until jika jumlab pengulangan tidak diketahui di awal. Pengulangan 
aksi dilakukan sampai ditemukan entry dari NIM yang dicari atau akhir 
label sudah terlampatii. Algoritma pencarian data mabasiswa di dalam tabel 
dengan struktur rcpeal-until menjadi seperti dibawah ini: 

AUGOK3TKA pen^axUn data dl dalam tnbel 

baca MX yang dicari {au aaikan NJM • X ) 

tlnjau entry partnma tabol 

iqp oot 

If MIX pad* o'ttry tdtel oama dengan X then 
tulln Alnmat dan Telepon dart MX X torsebut 
Oine 

tlnjau entry borlkutnya dl datum tabel 
until HIM yang dicurl ,.udah ditemukan atau okhlr tabel nud..h terlnmpnul 

Struktur pengulangan yang tcrakhir adolali while (while artinva “sclngi" atau 
-selnma"): 

vhi 1 e koiulisi do 
aksi 

vang artinva adnlah selama kmulisi (persyarntan) pengulangan masih beiinr, 
maka aksi dikeijnkan. PerlKtloannya dengan repeat-until, jika pada repeut- 
until kondisi pengulangan dicvaluiuti di akhir, maka pada while-do koiulisi 
pengulangan dlevahisi di awal pengulangan. 

Mnsnlah pencarian data di d.dam tabel dapat juga ditulis mcnggunnknn 
struktur while-do ditunjukkan pada Algoritma 2.3 berikut: 

AUXJRITMA p- neari..n data di dalatr. tabel 

bflca MM yang dicari (niaaJkan NIK • X j 
tlnjau entry portama tabel 

while MM yang dicari belum ditemukan d*n akhir tabel belum 
torlanpaul do 

If NIM pada entry tabel aanui dengan X then 
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arabil Alamat dan Telepon dari HIM tersebut 
else 

Clnjau entry berlkutnya dl dalan tabel 

Kapan menggunakan repeat N times, for, repeat-until, dan while ? Lebih 
lanjut mengenai struktur pengulangan dapat Anda pelajari di dalam Bab 7. 


Soal Latihan Bab 2 

1. Tulislah algoritma (dalam notasi kalimat deksriptif) untuk memperoleh 
informasi nomor telepon berdasarkan data alamat (nama jalan dan 
nomomya) kepada nomor penerangan lokal (108) PT Telkom. Algoritma 
hams menjelaskan proses bila (a) nomor 108 sibuk, (b) alamat yang 
diberikan penelepon belum mempunyai sambungan telepon. 

2. Dua buah algoritma (GOL88] di bawah ini menjelaskan sikap yang hams 
dilakuknn bila menemui lampu pengatur lalu lintas (traffic light) di jalan 
ray a: 

(1) if era//ic light menyala then 

it lampu merah then 
berhenti 
Sli! 

jalan 

(2) if traffic light menyala then 

it lampu merah then 
berhenti 

else 

Jslan 


Pada keadaan apa kedua algoritma di atas menggambarkan perilaku 
yang berbeda? Algoritma mana yang Anda anggap lebih memuaskan? 

3. Sebuah tabel terdiri atas kolom SIM, Nama, Alamat, dan Nomor 
Telepon. Tabel tersebut sudah berisi data utama sekumpulan mahasiswa 
di sebuah Perguman Tinggi. Misalkan seorang mahasiswa pindah kos 
sehingga alamat dan nomor teleponnya hams diubah. Tuliskan 
algoritma (dalam notasi kalimat deskriptif) untuk mengubah kolom 
Alamat dan Nomor Telepon dari mahasiswa dengan NIM tertentu. 

4. Algoritma di bawah ini membagi sekantung permen secara adil kepada 3 
orang anak dengan cara memberikan satu permen kepada tiap anak 
secara bemlang-ulang: 
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repeat 

berlkan uatu perraen kepada anak portama 
berikan oatu pettr.cn kepada anak kcdua 
berlkan natu permen kepada anak kctlga 
until kantung pormon kooong 


Pada keadnan bagaimana algoritma tersebut gagal? 
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3 


Notasi Algoritmik 


Algoritma berisi deskripsi langkah-langkah penyelesaian masalah. Langkah- 
langkah penyelcsaian tersebut dapat kita tuliskan dalam notasi algoritmik 
sembarang, asalkan ia mudah dibaca dan dipahami. Tidak ada notasi yang 
standar untuk menuliskan algoritma sebagaimana pada notasi bahasa 
pemrograman. Setiap orang boleh saja mendefinisikan notasi algoritmiknya 
sendiri. Hal ini bukan persoalan karena notasi algoritma tidak sama dengan 
kode program komputer. Program komputer adalah implementasi algoritma 
dalam notasi bahasa pemrograman tertentu. Bab 3 ini akan membahas 
mengenai notasi algoritmik yang digunakan di dalam buku ini. 


3.1 Pseudo-code 

Notasi algoritmik yang baik adalah notasi yang mudah dibaca dan mudah 

C ditranslasikan ke dalam notasi bahasa pemropaman. Notasi algoritmik 
pa pseudo-code mempunyai korespondensi dengan notasi bahasa 
pemrograman sehingga proses peneijemahan dari pseudo-code ke kode 
program menjadi lebih mudah. 

Tidak ada aturan baku membuat pseudo-code. Tidak seperti bahasa 
pemrograman yang direpotkan dengan tan da titik koma ( semicolon ), indeks, 
format keluaran, kata-kata khusus, dan sebagainya, sembarang versi pseudo¬ 
code dapat diterima asalkan notasinya bisa dipahami. 

(1) Sebuah perayataan dalam notasi deksriptif: 

tulia nilai X dan Y ..._u.. J-l-L 
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maka pseudo-code- nya dalam notasi algoritmik mungkin ditulis sebagai: 

write (X,Y) V« 


Notasi write berarti nilai x dicetak ke piranti keluaran. Dengan notasi 
algoritmik, kita tidak terlalu mempersoalkan format tampilan keluaran, 
misalnya apakah hasil penulisan antara x dan y dipisah dengan spasi atau 
dengan koma, apakah x dan y dicetak di dalam bans yang sama atau tidak, 
apakah x dan y dicetak pada koordinat tertentu di layar, dan sebagainya. 
Bila x dan y berisi nilai bertipe bilangan nil (memakai titik desimal) kita juga 
tidak mempersoalkan berapa angka di belakang koma, dan sebagainya. Hal- 
hal teknis semacam ini barulah kita pikirkan pada saat translasi notasi 
algoritmik tersebut ke notasi bahasa pemrograman. Dengan cara seperti ini, 
kita telah membuat notasi algoritmik teriepas dari hal-hal teknis seperti 
yang terdapat pada bahasa pemrograman. 

Notasi algoritmik dalam bentuk pseudo-code sebaiknya mudah 
ditranslasikan ke dalam notasi bahasa pemrograman pada saat coding. 
Notasi write di dalam algoritraa berkoresponden dengan write atau 
wrltoin dalam bahasa Pascal, printf dalam bahasa C, writs dalam bahasa 
Basic, atau write dalam bahasa Fortran. Selain itu, pada beberapa bahasa 
pemrograman seperti Pascal dan C, antara setiap instruksi dipisahkan 
dengan tanda ( semicolon). Jadi, translasi write (X) ke dalam masing- 
masing bahasa tersebut adalah (dengan asumsi bahwa piranti kcluarannya 
adalah layar) sebagai berikut: 

Algoritmik: 

write (X.Y) ■ . 

Bahasa Pascal: 

wrlte(X,Y)| -v? . ' 

Bahasa C: 

'%d-V'x;V)‘i.. • r ' ’ '*••/ /"‘V 

Bahasa Basic: 

hritii x’.y .... ... * *' * •• •*•;*••* *;— y; ;• 

Bahasa Fortran: 

Perhatikan bahwa seriap bahasa mempunyai cara yang berbeda da)am 
menulis perintah penulisan. Bahasa C misalnya, mengharuskan pemakalan 
penentu-format (seperti “%d" pada contoh di atas) untuk nilai yang dicetak. 
Penentu format "%d n berarti pada field tersebut nilai yang akan dicetak 
bertipe bilangan bulat). 
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(2) Sebuah pemyataan dalam notasi dekriptif: 
ieikan nilai X ke dalam rain 

maka pseudo-code-nya dalam notasi algoritmik menjadi: 

min «— X 

Notasi berarti mengisi ( assign ) peubah ( variable) min dengan nilai x. 
Translasi notasi V dalam bahasa Pascal adalah dalam bahasa C 
adalah dalam bahasa Basic adalah dan dalam bahasa Fortran juga 
Jadi, translasi min*-x ke dalam masing-masing bahasa tersebut adalah: 

Algoritmik: 

min «- X i 

Bahasa Pascal: 

min !■ X; 

Bahasa C: 

min - X; 

Bahasa Basic: 

min - X 

Bahasa Fortran: 

min - X 


3.2 Struktur Teks Algoritma 

Dua buah algoritma sederhana diberikan untuk mengilustrasikan teks 
algoritma seperti apa yang dipakai di dalam buku ini. 

(l) Algoritma pertama adalah untuk mencetak tulisan: 

Hello, world 

Algoritma Hello world hampir selalu ditemukan pada buku-buku bahasa 
pemrograman. Pelajaran pemrograman dan buku-buku bahasa pemrograman 
sering memulai contoh program pertamanya dengan memberikan contoh 
bagaimana mencetak "Hello, world" ke layar. Program "Hello, world " 
pertama kali dikemukakan oleh Brian W. Kemighan, yaitu seorang penemu 
Bahasa C[KER88J. 
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Algoritma untuk menulis “Hello, world": 
PROGRAM HelloHorld 

? Program untuk mencetak •Hello world • 
Matiuknn: * 

Keluaran: string •Hello, world ' 

) 

DEKLARASI 

/ tldak Ada ) 

ALGORITMA. 

writ* CHello. world-) 

Algoritma 3.1 Moncolak -Hello world* 


(2) Algoritma kedua adalah program untuk mencetak tabel konversi suhu 
dalam dcrajat Fahrenheit (F) dan suhu ekivalennyn dalam dcrajat 
Celcius (C)dcngan mcnggtmoknn minus 
c - 5/9 IP • 32 ) 

Data musukail ada’nh suhu awal (x) dan suhu akhir (y). Tabel keluaran 
meinuaf suhu mulai dan x sainpai 17 F dengan kenaikan sebesar step. 
Misnlnya jika x ■ o, y « 100, dan step » 20, tabel yang ingin dihasilkan kira- 
kira seperti di hawah ini: 


0 

- 17.8 

20 

- 6.7 

40 

AA 

60 

156 

80 

26.7 

IOO 

378 


Maka, algoritma untuk mencetak tabel konversi Fahrcnheit-Celcius sebagai 
berikut: 

PROGRAM FahrenheitColcluo 

f Program untuk mencotflk tabel Fahrenheit-Celcluu dari x sampai y 
dengan kenaikan noobaar atop. 

Nnoukan: ouhu awal, suhu akhlr. step 
Keluaran: tabel konversi au/iu dalam C dan F 

) 

Dt’KLARAS I 

F. C x real 

x, y. ntep : integer 

ALGORITMA: 

rcad'x, y. step) 

F «- x 

while PS y do 

~C - 5/9 •' (P - 32) 
writelF. C) 
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F 4- F » Dtep 
endwhile 

Algorllma 3.2 Mencolak label konversi Fahrenheit-Cetaus 


Dengan memperhatikan kedua contoh algoritma sederhana di atas, maka 
teks algoritma selalu disusun oleh tiga bagian (blok), yaitu: 

1. bagian judul (header), 

2. bagian deklarasi (declaration), 

3. bagian algoritma. 

Kctiga bagian terscbut secara umum ditunjukkan dalam notasi algoritmik 
pada Algoritma 3.3. 

PROGRAM Nama Program 

Ponjelaean tentang algoritma, yang berisi uralan aingAat mangcnal 
nuiaalah apa yang akan diecleealkan, termaouk naaukan dan koluarannya ) 

DEKLARASI 

( actinia nama yang dipakai, neliputi nama tipo, nama konatanta. nama 
prut>,ih, nama proordur dan nama lungsJ diumimkan di oini l 

ALGORITMA: 

l bcvlai langkah-langkah pvnyeleoalan maoalah) 

Algorllma 3.3 SlruMur loks nlgonlma 


Pada sctiap bagian sangat dianjurkan mcnullsknn komentar untuk 
mempetjelas maksud dari pernyataan. Komentar adalah kalimat yang diapit 
oleh pnsangan tanda kumng kurawal ('{' dan Komentar membuat 
algoritma lebih mudah untuk dibaca dan dipahami. Di dalam program 
komputer, komentar tidak dieksekusi, hanya dilewati saja. 

Penjelasan masiug-masing bagian di dalam teks algoritma diberikan pada 
upa-bab di bawah ini. 


3.2.1 Bagian Judul 

Judul adalah bagian yang terdiri atas nama program dan penjelasan 
(spesifiknsi) tentang program terscbut. Judul dtawali dengan kata kunci 
program dan nama program X. Kata program ini bukan menyatakan 
program dalam bahasa komputer, tetapi menyatakan bahwa kita sedang 
menulis algoritma untuk program pemecahan masalah. 

Nama program sebaiknya singkat namun cukup menggambarkan apa yang 
dilakukan oleh program. Di bawah nama program sebaikya disertai dengan 
penjelasan singkat tentang apa masalah diprogram dan apa masukan dan 
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keluarannya. Dua contoh program terdahulu mempunyai judul sebagai 
berikut: 

PROGRAM HelloWorld r --rr. . .. 

( Program untuk itoncetak - Hello, world * 

Naeukan program ini tidak ada. Keluarannya adalah tullean 'Hello, 
world' tercet ak di layer. 

} ' . \ • '• 

PR OGRAM FahrcnhcltCelclua •' I '• ^ , 

~f~Program untuk mencetak tabel Pahrenheit-CelciuB darix aaopai y 
dengan kenaikan aeheaar step. Maoukan program ini adalh auhu aval,, 
auhu akhir, step, dan keluarannya adalah tabel konveroi auhu dalam C 
dan F 

} ... " f : . r ... « • - ; • y 


3.2,2 Bagian Deklarasi 


Bagian ini digunakan untuk mengumumkan semua nama yang dipakai di 
dalam algoritma bescrta propertinya (misalnya tipe). Nama tersebut dapat 
berupa nama konstanta, nama peubah, nama tipe, nama prosedur dan nama 
fungsi. Semua nama yang dipakai di dalam algoritma harus dikenali sebelum 
mereka digunakan. Bagian deklarasi mungkin kosong jika tidak ada 
penggunaan nama. Program HelloWorld mengandung bagian deklarasi yang 
kosong, sedangkan program PahrenheitCelciue berisi deklarasi nama- 
nama peubah yang digunakan di dalam program beserta tipenya sebagai 
berikut: 

DEKLARASI i 1 ! : ‘ "l ‘ P* 1 • '* -! - * ‘1 

P, ; .jC « real .• • . . ;• ,... r: 

x,.y, step i In teger . , < . .s.u i! ■ .1 : 

P, c, x, y, dan »tep adalah nama-nama peubah yang digunakan di dalam 
bagian algoritma. Nama-nama peubah ini bescrta tipenya harus diumumkan 
di bagian deklarasi sebelum mereka digunakan. Penjelasan lebih lanjut 
mengenai nama dan tipe akan diberikan di dalam Bab 4. 


Contoh-contoh deklarasi yang lain (deklarasi nama konstanta, nama tipe, 
nama peubah, nama prosedur dan fungsi) adalah seperti di bawah ini: 


DEKLARASI 

fname konstanta J . , . 

• const NPeg - 100 ( jumlah pegawai ) 
conet phi - 3.14 ( nilai n . 




type Titik .^ record f koordlnat 'titlk di bidang karteoian ) 

< xi integer . ( abate ) 

' * • " y» Integer otdinat ) •• • " : ’»'• 


( name peubah (variable) ) , 
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C : char ( karakter yang dibaca } 

0 s Tie 14c ( titik dal an koordlnat karteaianf 

ketemu i boolean { keadaan haail pencarian} 

FUNCTION Apakah A( input c : char ) -* boolean 
{ Mengembalikan nllai true bila c adalab karaktar 'Aacau 
false bila aebellknya } 

PROCBDURB Tukar( Input / output A i Integer , input / output B i Integer ) 
''f Mempertukaxkan nilai A dan B. • Parameter A dan fi eudah terdefinloi 
i nilalnyai Set slab portukaran. A berial nilai B aemula,. B beriai • 
nilai A aemula.) 

Npeg dan phi adalah nama konstanta, Titik adalah nama tipe, c, q, dan 
ketemu adalah nama pcubah, Apak«h_A adalah nama fiingsi, dan Tukar 
adalah nama prosedur. 

Oleh karena nama adalah satu kesatuan leksikal, maka nama tidak boleh 
mcngandung spasi, tanda baca (sepcrti titik, koma, dan scbagainya), 
operator (sepeirti +, dan scbagainya). Karakter garis bawah dapat 
digunakan untuk mengganti spasi. Jadi, menuliskan nama fiingsi sebagai 

ApukahA 

adalah benar, tetapi 

Apakah A .. 

salah karena mengandung spasi. 

Selain spasi, kita juga tidak membedakan huruf besar (kapital) dan huruf 
kecil di dalam notasi algoritmik kita. Namun, pada bahasa pemrograman 
yang case sensitive seperti bahasa C, huruf besar dan huruf kecil adalah dua 
karakter yang dianggap berbeda. 


3.2.3 Bagian Algoritma 

Inilah bagian inti dari sebuah program. Bagian ini berisi instruksi-instruksi 
pemecahan masalah dalam notasi pseudo-code. 

Program HelloWorld mengandung bagian algoritma yang hanya berisi satu 
bans instruksi saja: 

ALGORITMA: 

write ("Hello, world*) , ... ... .... • 

Program Pahrenheitcelcius mengandung bagian algoritma yang berisi 
beberapa bans instruksi: 
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ALG0R1TMA: 

read(x, y. step) 

F t- x 

w hile F S y do 

C - 5/9 • (F - 33) 
write(F. C) 

F ♦” F • atep 
endwhile 


Unluk sementara ini, Anda tidak perlu memikirkan lerlalu scrius pseudo¬ 
code seperti write , while , dan lambang Anda akan mempelajari 
pseudo-code lebih mendalam di dalam bab-bab sclanjutnya. 


3.3 Translasi Notasi Algoritmik ke 
Bahasa Pascal dan C 

Teks algorithm merupakan desain penyelesaian masalah. Agar dapat 
dieksekusi oleh komputer, algoritma harus diteijemahkan teriebih dnhulu kc 
dalam notasi bahasa pemrograman. Peneijemahan dari notasi algoritmik kc 
notasi bahasa pemrograman dinamakan translasi. 

Di dalam buku ini. notasi algoritma hanya akan ditranslasi kc dalam bahasa 
Posad dan bahasa C saja. Bahasa Pascal dipilih karena ia rclatif mudali 
dibaca, notasinya mirip dengnn bahasa Inggris standard. Bahasa C dipilih 
knruna bahasa ini powerfiiU, notasinya ringkas, dan dipakai sccara Inns di 
dalam industri perangkat lunnk. 

Buku ini tidak bertujuan mengajarkan Anda bahasa Pascal dan C, tetapi 
mengajarkan earn mcnctjcmahkan notasi algoritmik kc dalam bahasa Pascal 
dan C. Jika Anda bclum pernah bclajar bahasa Pascal atau C. sebaiknya 
Anda perlu membaca buku-buku tentang kedua bahasa tersebut. 

ALGORITMIK: 

P ROGRA M Hama Pi og ram 

f Ponjalaaan tanting algoritma. yang be rial uraian oingkat m ttngenai 
nutoal/th Apa yang akan diaelroaikan. a pa nsukan dan kaluarannya J 

DEKLARA3I 

( **nua nama yang dipakai, mpllputi nama ripe. nan* konatanta. natna 
peubah, nama prooodut dan nama fungai diumumkan di alni } 

ALGORITMA: 

I berial langkah-langkah ponyeleaaian maaalahf 
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PASCAL: 


progran N. inu Program; 

( Pen j elation tentang algoritma. yang beriai uraian eingkat m engenai 
maaalah apa yang akan dioeleoaikan. apa nuiukan dan keluarannya } 

(• DEKLARASI •) 

(conat) 

( oemua nama tetapan dan harga tetapannya didefinieikan di ami I 
[typal 

( oemua nama tlpe bentukan didefenioikan di oini} 

IvarJ 

{ oemua nama peubah global dldefiniotkan di mini } 

( deklaraoi proaodur dan fungai ditulia di oini ) 

{• AtXJORITNAi •> 

bag in 

< oemua inacrukai program dituliokan di oini) 
and. 


C: 

/* PROGRAM Nama Program •/ 

/• Penjolanan tentang jigoricna. yang berloi uraian alngka t mengonni 
maaalah apa yang akan dlaoleoaikan, apa aaukan dan keluarannya •/ 

/- DBKLARA8I •/ 

/• oemua nama yang penggunaannya global didofiniolkan di oini •/ 
/• purvarupa prouedur dan lungai dtdetinloikan di oini •/ 

/* ALGOR ITMAi •/ 

I 

/• di nini jug a mungkin ada DBKLARAS1 lokal •/ 

/• oemua inacrukai program dituliakan di oini •/ 

) 


Beberapa hal pooling yang hams dikctahui dari bahasa C adalab: 
l. Bahasa C bersifai case sensitive. Ini lwrarti bahasa C membedakan 
humf bosar (kapital) dongan bumf kecil. Nama yang ditulis dengan 
bumf bosar dianggap borbeda kalau ia ditulis dengan humf kecil. 
Misalnya, 

n tidak sama dengan n 

naraa_orang tidak sama dongan NAMA_0RAH3. Nana_orang. 

Nama_Orang 

HitKar tidak sama dongan hitkar 

Hal ini berboda dongan bahasa Pascal. Pascal tidak membedakan nama 
yang ditulis dalam humf bosar atau humf kecil. Jadi. 
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n sama saja dengan n 

nama_orang sama Saja dengan NA*1A_0RANG atau Nama_ORANQ 
HitKar sama saja dengan hitkar 

2. Dalam bahasa C, deklarasi yang didefinisikan sebelum kata mainO 
adalah deklarasi global, artinya semua naraa yang didefinisikan di dalam 
deklarasi global dikenal di selumh bagian program, termasuk di dalam 
fungsi atau prosedur yang ada di dalam program itu. Apabila deklarasi 
didefinisikan di dalam mainO, maka nama di dalam bagian deklarasi 
(disebut deklarasi lokal) hanya dikenal oleh program utama saja, tetapi 
tidak dikenal oleh fungsi atau prosedur. 

3. Dalam bahasa C, komentar ditulis di antara "/*" dan Sedangkan 
dalam bahasa Pascal komentar dapat ditulis di antara dan atau di 
antara M (- dan 

Untuk mengilustrasikan cara mentranslasi, berikut ini kita< berikan contoh 
translasi program Helloworld dan program Pahrenheitcelciue dalam 
notasi Pascal dan C. Kita sengaja tidak menghilangkan kata “DEKLARASI" 
dan kata "ALGORITMA" di dalam kode program Pascal dan C, agar 
pembaca tidak kehilangan ‘jejak’ dalam proses translasi. Kita menuliskan 
kata “DEKLARASI" dan kata "ALGORITMA" sebagai komentar saja. Anda 
boleh membuangnya jika itu dianggap merepotkan. Cara-cara mentranslasi 
setiap notasi algoritma akan dijelaskan pada setiap bab yang membahas 
notasi tersebut. 


ALGORITMIK: 

1. Program mencetak Hello World 

PROORAH HoiloMorld 

{ Program untuk mencetak "Hello world*. Maeuken program ini tidak ada. 
Keluarannya adalah tulisan 'Hello, world• tercetak di layer. ) 

DEKLARASI 

( tidak ada ) 

ALGORITMA 1 

write ("Hello, world") 


2. Program konversi suhu Fahrenheit-Celcius 

PROGRAM PahrenhcltCelciua 

{ Program uncuA mencetak tabcl Fahrenheit-Celciua dari x aanpai y 
dengan kenalkan aebeear atep. Ha auk an program ini adalh suhu aval, 
suhu akhir, atep, dan keluarannya adalah tabcl konverei suhu dalam C 
dan F 
} 
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DBKLARAS1 

F. C « real 

x, y. otep i integer 

ALGORITMAi 

rend(x, y. ntop) 

P 4- x 

while F S y do 

C - 5/9 • (P - 32) 
write IF. C) 

F «- F « otop 
endwhile 


PASCAL: 

i. Program mencetak Hello World 

program HvlloWorldj 

I Program untuk nwncota* •Hello worid-. MnnuJren proa;.im inj ride* «id4. 
K<-Ju«rrtnn>v» AdaJah culiaan 'Hello, uorld * torewta* di Inynr. 

<• DBKLARAB 1 •) 
l tldak .idn ) 

begin 

(• ALOORlTHAi •/ 

write("Hollo, world')* 

•ad. 


2. Program konversi suhu Fahrenheit-Celcius 

PROGRAM FnhranholtColciuai 

I Program untuk mencetak Label Fahrenheit -Cel etna dan x oampal y 
dengan keaaikan oebeear at op. Hauukan program ini adalah auhu aval, 
auhv akhir. mop, d.in keluatannya ad.ilnh Label konvoroi auhu dalam C 
dan F } 

(• DUKLARAS 1 •) 

var 

F. C : real; 

x. y. step i integer; 

begin 

<• ALGOR 1 TKA: •/ 
rend(x); 
read(y)* 
read(otep); 

F X; 

while P *- y do 
begin 

C." 5/9 • (F - 32)j 
writeln(F, » *, C)» 

K !- P • ntop; 
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end; 

end. 


C: 

/• PROGRAM Hal JohorId •/ 

/• Program uncuk mencetak "Hello world". Kasukan program ini tidak 
ada. Keluarannya adalah tuliaan * Hello. world ' tercetak di layar.•/ 

nlncludo <atdio.h> 
nelnO 

I 

/• DBKLARAS1 •/ 

/• tidak ada •/ 

/• ALQORUMAi •/ 

printf(“Hello, world - ); 

1 


/• PROGRAM Fahrenheit Cel duo •/ 

/• Program untuk mencatmk rebel Fahrenheit-Celciuo dan x oampai y 
dangan kenaikan aebeoar step. Naaukan program ini adalah auhu aw.tl , 
ouhu nkhir. atop, dan keluarannya adalah tabel konveroi *uhu dalam C 
dan F •/ 

Hinclude <ntdlo.h> 

hU(I 

( 

/• DKKLARASl •/ 

float V, C ; 
lnt x, y. iitep; 


/• ALOORlTMAi •/ 

acanfCId', tx); 
ncdiif I"ld“. 4y) i 
ecanf(*ld*, fcotcp ); 

P • x; 

while IP <• y) 

< 

C • (5.0/9.0) • IP - 32)| 
printf(*%3.Of 16.If \n, P. C); 
P • P ► otep; 


Kctcrangan: Pemyntaan 

cincludo <8tdlo.h> 
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adalah pemyataan untuk melibatkan {include) pustaka standar yang berisi 
operasi masukan/keluaran (operasi baca dan operasi tulis). Pustaka 
masukan/keluaran ini terdapat di dalam file header scdio.h. Di dalam 
Bahasa C terdapat sejumlah file header yang mungkin diperlukan jika 
program menggunakan beberapa fungsi standar (salah satu fungsi standar di 
dalam program di atas adalah printf)- 


3.4 Kompilator Bahasa Pascal dan C 

Lihatlah kembali Gambar 1.8 di dalam Bab 1 mengenai tahapan pclaksanan 
program oleh komputer. Program sumber (source program) dalam bahasa 
pemrograman harus dikompilasi terlebih dahulu oleh program khusus yang 
disebut kompilator {compiler). Kompilasi program bertujuan memeriksa 
kebcnaran sintaks (tata bahasa) program, kemudian, jika ddak ada 
kesalahan, program diteijemahkan ke dalam bahasa mesin sehingga siap 
dieksekusi. 

Saat ini terdapat cukup banyak kompilator bahasa Pascal dan bahasa C. 
Pada era komputer 16-bit, kompilator bahasa Pascal dan bahasa C yang 
populer adalah Turbo Pascal dan Turbo C. Sekarang kedua kompilator ini 
relatif sudah jarang digunakan sejak digunakannya sistem operasi Windows 
dan UNIX (termasuk Linux). 

Saat ini, kakas {tool) pengembangan program berbasis GUI {Graphical user 
Interface) yang populer digunakan adalah Borland Delphi, Visual C, 
Borland C++, dan sebagainya. Borland Delphi adalah kakas pengembangan 
program yang berbasis pada bahasa Pascal Object, sedangkan Visual C dan 
berbasis pada bahasa C. Kedua kompilator ini masih dapat digunakan untuk 
mengompilasi program Pascal dan C. 

Sejak diberlakukannya kehamsan menggunakan software legal (sebagai 
konsekuensi diberlakukannya UU No 19/2002 tentang HaKI (Hak Kckayaan 
Intelektual), maka kita hams mengeluarkan biaya yang cukup besar untuk 
membeli kakas pengembangan program yang berlisensi. Namun, bukan 
berarti tidak ada cara yang murah untuk tetap bisa memprogram. Di internet 
terdapat beberapa kompilator bahasa Pascal dan bahasa C yang dapat 
diunduh {download) secara gratis, misalnya Free Pascal (untuk bahasa 
Pascal) dan GCC untuk (untuk bahasa Q. 

Free Pascal adalah kompilator Pascal 32-bit. Ia tercedia untuk prosesor Intel 
x86, Motorola 680x0, dan PowerPC (dari 1.9.2). Sistem operasi yang dapat 
digunakan untuk mengoperasikan Free Pascal adalah Linux, FreeBSD, 
NetBSD, MacOSX, DOS, Win32, OS/2, BeOS, SunOS {Solaris), QNX, dan 
Classic Amiga. Anda dapat men -download kompilator Free Pascal dari 
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www . £reepascal. org . Tersedia banvak pilihan kompilator Free Pascal yang 
dapat Anda download (baik versi standar maupun versi yang lengkap). 
Instalasilah kompilator Pascal ini ke koniputer Anda. Program Pascal dapat 
dikompilasi dari prompt DOS (Disk Operating System ) atau dari IDE 
(Integrated Development Environment) yang disediakan oleh Free Pascal 
ini. 

GCC (GNU C compiler) adalah kompilator freeware untuk bahasa C. 
Kompilator ini dapat disertakan bersamaan pada instalasi sistcm opcrasi 
Linux. Kita dapat men -download GCC dari internet untuk di-instalasi padn 
sistcm opcrosi selain Linux (sepcrti Window atau DOS misalnya). Informnsi 
mengenai kompilator GCC dapat dilihat di htt p://gcc.gnu.org . Anda juga 
dapat mon-download GCC dari situs web tersebut, lain menginstalasinya di 
komputer Anda 

(u) Mengonipilaii Program dengan Free Pascal 

Program dalam bahasa Pascal tcrlcbih dahulu disunting dengan editor 
Icks. Free Pascal sendiri menyediakan editor yang menyatu dengan IDE 
[Integrated Development Environment). IDE ini mirip dengan IDE 
pada kompilator Turbo Pascal 7kc atas Qihat Gambar 3.1). 



C ••• 


Gambar 3.1 IDE pada Free Pascal 
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Suntinglah program Pascal Hello, world, lalu simpan kode programnya 
ke dalam berkas dengan nama Hello.pas. Kompilasi program tersebut 
dari IDE. Jika tidak ada kesalahan sintaks di dalam program, maka 
kompilasi program berlangsung sukses. Run program dari IDE, maka 
basil running program akan tampak di layarseperti ini: 

Hello, world 

Selain dari IDE, program Pascal juga dapat dikompilasi dari prompt 
DOS. Pindahkan direktori Anda ke C:/pp/bin/win 32 , lalu kompilasi 
program Hello.pas yang disimpan di direktori ini dengan mengetikkan 
perintah berikut dari prompt: 
ppc 386 Hello.pas 

Jika tidak ada kesalahan sintaks di dalam program, maka kompilasi 
program berlangsung sukses, dan kompilator menghasilkan executable 
file yang berupa berkas biner bemama Hello.exe. Run executable file 
ini dengan mengetikkan 
Hello 

dari prompt, maka running program akan membcrikan hasil yang sama 
sepcrti dari IDE di atas. 

Selain di lingkungan DOS atau Windows, Free Pascal juga dapat 
dioperasikan di lingkungan Linux. Cara mengompilasi program Pascal di 
Linux sama seperti mengompilasi dari prompt DOS di atas (ppc 386 
nama_file.pas). 

(b) Mengompilasi Program dengan GCC 

GCC tidak menyediakan editor teks seperti halnya FreePascal, tetapi kita 
dapat menggunakan editor teks biasa seperti Notepad, Ultra Edit, atau 
editor yang tersedia pada sistem operasi Linux seperti vi, joe, dan 
sebagainya. Pelajari cara menggunakan editor-editor ini. Program 
sumber disimpan di dalam berkas dengan ekstensi “.c". Misalnya 
program C Hello, world disimpan dengan nama Hello.c. Kompilasi 
berkas Hello.c ini dengan mengetikkan command line: 

gcc Hello.c 

dari prompt [prompt Linux atau prompt DOS) Jika tidak ada kesalahan 
sintaks di dalam program, maka kompilasi program berlangsung sukses, 
dan kompilator menghasilkan executable file yang berupa berkas biner 
bemama a. out. dan Anda mengetikkan perintah 

a.out 
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dari prompt, maka hasil running program akan tampak di layar seperti 
ini: 

Hello, world '/ rr *" 


Catatan: 

Jika nama executable file yang kita inginkan sama dengan nama 
berkasprogram, maka kompilasiprogram Hello.csebagai berikut: 

gcc Hello.C -o Hello.out 
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E 

Tipe, Operator, dan 
Ekspresi 


Program komputer pada dasamya memanipulasi objek (data) di dalam 
mcmori. Peubah ( variable ) dan konstanta (constant) adalah objek data 
dasar yang dimanipulasi di dalam program. DekJarasi daftar peubah 
digunakan untuk menyatakan tipe peubah. Operator menspesifikasikan 
operasi apa yang dapat dilakukan terhadap peubah dan konstanta. Ekspresi 
mengombinasikan peubah-peubah dan konstanta untuk menghasilkan nilai 
baru. 


. Tipe sebuah objek menentukan himpunan nilai yang dapat dimilikinya dan 
operasi yang dapat dilakukan pada objek tersebut. Nilai-nilai yang dicakup 
oleh tipe tersebut dinyatakan di dalam ranah ( domain) nilai. Opcrasi-operasi 
(beserta operator) yang dapat dilakukan terhadap tipe tersebut juga 
didefinisikan. 

Tipe data dapat dikelompokkan menjadi atas dua macam: tipe dasar dan 
tipe bentukan. Tipe dasar adalah tipe yang dapat langsung dipakai, 
sedangkan tipe bentukan dibentuk dari tipe dasar atau dari tipe bentukan 
lain yang sudah didefinisikan sebelumnya. 


4.1 Tipe Dasar 

Tipe dasar sudah dikenal dalam kehidupan sehari-hari. Tipe ini sudah ada 
sejak zaman dahulu (predefined data type). Kita hampir setiap hari 
berbicara tentang angka-angka dan karakter. Dalam dunia pemrograman, 
yang termasuk ke dalam tipe dasar adalah: bilangan lojik, bilangan bulat, 
karakter, bilangan nil, dan string. Tiga tipe dasar yang pertama disebut juga 
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tipe ordinal karena setiap konstanta nilainya dapat ditransformasi ke 
sualu nilai integer. 


4 . 1.1 Bilangan Lojik 

Nama Tipe 

Nama tipe bilangan lojik adalah boolean (diambil dari nama seorang 
matematikawan Inggris, George Boole). 

Ran ah Nilai 

Bilangan lojik hanya mengenal dua buah nilai: benar (true) atau salah 
(false). Istilah “bilangan" pada “bilangan lojik” dikarenakan kita dapat 
menyatakan “benar" dengan angka 1 dan "salah" dengan angka o (atau 
sebaliknya, bergantung konvensi yang kita buat). 

Konstanta 

Karena ranah nilai tipe boolean hanya beranggotakan dua buah nilai, maka 
konstanta (constant) yang terdapat pada tipe ini adalah true dan false 

Operasi 

Operasi-operasi yang dapat dilakukan terhadap tipe boolean dikenal dengan 
operasi logika atau operasi boolean. Operasi logika menghasilkan nilai 
true atau false. Operator logika yang umum digunakan untuk operasi logika 
adalah: not, and, or, dan xor. 

Jika a dan b adalah peubah (variable) yang beitipe boolean, maka hasil 
operasi a dan b dengan keempat operator boolean tersebut diberikan oleh 
masing-masing tabel (yang disebut tabel kebenaran - truth table) berikut: 


• 

not a 

true 

falaa 

false 

trua 


a 

-b- 

« gad b 

a or b 

a xor b 

true 

trua 

true 

trua 

falae 

trua 

falaa 

falaa 

trua 

trua 

falae 

trua 

falaa 

trua 

true 

falae 

falaa 

falaa 

falsa 

falae 


Cara mengingat hasil operasi dengan operator boolean sangat mudah. 
Ingatlah bahwa operasi dengan operator and hanya akan bemilai benar bila 
a dan b keduanya bemilai benar. Operasi dengan operator qi hanya akan 
bemilai salah bila a dan b keduanya bemilai salah. Sedangkan operasi 
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dengan operator xor akan bemilai benar bila a dan b saling berlawanan nilai 
kebenarannya. 

Contoh operasi logika: misalkan X, Y, dan Z adalah peubah bertipe boolean, 
AT bemilai true , Y bemilai false , dan Z bemilai true , maka: 


Oporeei logika 

Basil 

(X and X) or Z ; 

true. 

X and (Y or Z) .. 

true 

not (X and Z) 

false 

(Y jeor Z) and Y . 

false 


4.1.2 Bilangan Bulat 


Bilangan bulat sudah umum digunakan dalam kehidupan sehari-hari. 
Bilangan bulat adalah bilangan yang tidak mengandung pccahan dcsimal, 
misalnya 34,8,1203, o, -17,3456789290b dan sebagainya. 

Nama Tipe 

Nama tipe bilangan bulat adalah integer. 


Ran ah Nilai 

Secara teoritis, tipe bilangan bulat mempunyai ranah nilai yang tidak 
terbatas. Rentang nilainya adalah dari minus tidak berhingga sampai plus 
tidak berhingga. Tctapi, di dalam komputer tipe integer mempunyai ranah 
nilai yang terbatas. Ranah nilai tipe integer pemrograman bergantung pada 
mesin (komputer) dan kompilator yang digunakan. Pada kompilator Pascal 
yang digunakan pada komputer 16-bit, rentang nilai integer 16-bit adalah 
dari -32768 sampai +32767. Kompilator ini menyediakan empat macam tipe 
untuk integer, yaitu byte, shortint, word, integer, dan longint. Rentang nilai 
untuk kelima tipe tersebut adalah: 


Tipe 

byte 
shortint 
word 
Integer 
longint 


Rontang nil.! 


7oi 


t 


0 .. 2SS 
-128 .. 127 
0 .. 85535 
-32788 .. 32787 
-2147483848 .. 2147483847 


l/nalgnad 8-bit 
Signed 8-bit 
Unsigned 18 -bit 
Signed 18-bit 
Signed 32-bit 


Dalam bahasa C, hanya ada dua macam tipe untuk integer yaitu char dan 
int. Tipe char berukuran l byte, sedangkan int adalah tipe integer yang 
secara tipikal mencerminkan ukuran alami dari integer pada kebanyakan 
mesin. Selain dua tipe tersebut, terdapat beberapa macam qualifier yang 
dapat diterapkan pada tipe int, yaitu short dan long, sehingga kedua tipe ini 
dapat divariasikan menjadi short int dan long int. Qualifier short dan 
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long memberikan panjang yang berbeda pada tipe int; int normalnya 
berukuran yang natural pada mesin tertentu. short umumnya 16-bit, long 
32 bit, dan int salah satu dari 16-bit atau 32-bit. Tiap-tiap kompilator bahasa 
C bebas memilih ukuran integer yang cocok untuk perangkat kerasnya 
dengan batasan hanya pada short dan int paling sedikit 16-bit, long paling 
sedikit 32-bit, short tidak lebih panjang dari int, dan int tidak lebih 
panjang dari long. Qualifier signed dan unsigned dapat digunakan pada 
char dan int. Qualifier signed menyebabkan nilai integer yang dipakai 
dapat bertanda negatif, sedangkan unsigned menyebabkan nilai integer 
selalu positif atau nol [KER88]. Ekivalensi antara tipe integer di dalam 
kompilator Turbo Pascal dan kompilator Turbo C dinyatakan dalam tabel 
berikut: 


Pascal 

Rantang nilai 

c 

byte 

0 .. 255 

unsigned char 

shortint 

-128 137 

signed char 

word 

0 .. 65535 

unsigned int 

Integer 

-32768 .. 32767 

int, short int 

longint 

-214748364* .. 2147483647 

long Int 


Sebagai contoh, misalkan dua buah peubah X dan Y masing-masing 
dideklarasikan bertipe byte dan integer dalam bahasa Pascal: 

var 

X 1 byte 1 
Y 1 integer; 

Dengan mendeklarasikan X bertipe byte sedangkan Y bertipe integer, maka 
peubah X tidak dapat dioperasikan untuk nilai-nilai di atas 255 atau di 
bawah o. Begitu juga peubah Y tidak dapat manampung nilai di atas 32767. 
Pemilihan implementasi bilangan bulat ke dalam tipe-tipe integer yang 
berbeda lebih disebabkan pada faktor penghematan memori. Sebagai 
contoh, tipe word hanya membutuhkan 2 byte memori, sedangkan integer 
membutuhkan 4 byte memori. 

Tipe bilangan bulat adalah tipe yang memihki ketcrurutan. Ini artinya, bila 
sebuah nilai bilangan bulat diketahui, nilai sebelumnya {predecessor ) dan 
nilai sesudahnya ( successor ) dapat ditentukan. Contohnya, predecessor dari 
8 adalah 7, sedangkan succeso^nya adalah 9. Secara formal keterurutan itu 
didefinisikan sebagai berikut: jika a adalah peubah bertipe bilangan bulat, 
inaka predecessoria) = a- 1, dan successor{a) = a + 1. 

Konstanta 

Konstanta nilai bertipe bilangan bulat hams ditulis tan pa mengandung titik 
desimal. Contoh beberapa konstanta bertipe bilangan bulat misalnya: 

78 -14 7654 0 5 9999 
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Operasi 

Operasi yang dilakukan terhadap bilangan bulat ada dua macam, yaitu 
operasi aritmetika dan operasi perbandingan. Operator yang 
digunakan pada masing-masing operasi disebut operator aritmetika dan 
operator perbandingan (atau operator relasional). 


a. Operasi Aritmetika 

Operasi aritmetika terhadap bilangan bulat dengan sembarang operator 
aritmetika menghasilkan nilai yang bertipe bilangan bulat juga. Operator 
aritmetika yang didefinisikan pada bilangan bulat adalah: 


♦ 



(tambah) 

(kurang) * 

(kali) 

(bagl) 

(alaa haail bagi) 


Operator div (dix ■ divide) adalah operator bagi yang memberikan hasil 
pembagian berupa bilangan bulat, sedangkan mod (mod - modulo) 
memberikan sisa hasil bagi. 


Contoh-contoh operasi aritmetika bilangan bulat beserta hasil 
operasi nya: 


3 ♦ 

10 

87 

- 31 

5 • 

10 

10 

)lv 3 

10 

nod 3 

30 

div 5 

20 

aod 5 


(haaili 13) 
(haaili SO 
(haail: SO) 
(haail: 3) 
(haaili 1 ) 
(haail: 4) 
(haail: 0 ) 


Objek yang dioperasikan disebut operand. Misalnya pada operasi a ♦ b, 
masing-masing a dan b adalah operand, sedangkan adalah 
operatomya. Semua operator di atas membutuhkan dua buah operand 
dalam pengoperasiannya. sehingga mereka disebut juga operator 
bincr. Khusus untuk operator", ia juga merupakan operator uncr, 
karena ia dapat dioperasikan dengan satu buah operand, misalnya -10, 
-17, dan sebagainya. 

b. Operasi Perbandingan 

Operasi perbandingan terhadap bilangan bulat dengan salah satu 
operator relasional menghasilkan nilai boolean (true atau false). 
Operator perbandingan untuk bilangan bulat adalah: 

< (lebih kecil) 

£ (lobih kecil atau eama dengan) 

> (lebih besar) 

2 (lebih beaar acau aana dengan) 

- (aana dengan) 

1 (Cidak aaraa dengan) 
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Contoh operasi perbandingan: 

3 < 8 

(Crue) 

74 » 101 

(false) 

9 s 9 

(true) 

9 < 9 

(fmlmm) 

17 - 17 

(true) 

(24 div })*I 

(fmlmm) 


4.1.3 Bilangan Riil 

Bilangan riil adalah bilangan yang mengandung pecahan dcsimal, misalnya 
3.65, 0.0003, 29.0, 2.60240000E-6, .24, dan lain-lain. Semua konstanta 
bilangan riil haru^mengandung (litik). Konstanta “18" dianggap sebagai 
bilangan bulat, tetapi - i8.o" dianggap sebagai bilangan riil. Bilangan riil 
dapat juga dituliskan dengan notasi E yang artinya perpangkatan sepuluh. 
Misalnya, 2.60240000E-6 artinya 2.60240000 x 10*. Baik tipe bilangan 
bulat maupun tipe bilangan riil, keduanya dinamakan juga tipe numerik 
(numeric = angka). 

Nama Tipe 

Nama tipe bilangan bulat adalah real (beberapa literatur menyebutnya 
floating-point ) 

Runnh Nilai 

Sebagaimana halnya pada tipe bilangan bulat, secara teoritis tipe bilangan 
riil memiliki ranah nilai yang tidak terbatas. Rentang nilainya adalah dari 
minus tidak hingga sampai plus tidak hingga. 

Di dalam komputcr, tipe real mempunyai rentang nilai yang terbatas, 
bergantung pada processor dan kompilator yang digunakan. Di dalam 
kompilator Pascal misalnya, tipe real dapat direpresentasikan ke dalam 
empat macam tipe, yaitu real, single, double, dan extended. Rentang nilai 
positif untuk keempat tipe tersebut adalah: 


Tip* Rentang 111 lei Format 

real 2.9 n IP ** .. 1.7 ■ 10" 6 bytm 
single 1.5 ■ 10** .. 3.4 u 10 H * 4 bytm 
double 5.0 « 10* ,M .. 1.7 h 10 m • byte 
nxtonded 9.4 * 10'**** .. 1.1 « 10 4,M 10 byte 


Di dalam bahasa C, hanya ada dua tipe untuk bilangan riil, yaitu float dan 
double; float adalah bilangan riil berpresisi tunggal ( single-precision ), 
sedangkan double adalah bilangan riil berpresisi ganda ( double-precision ). 
Qualifier long dapat digunakan untuk menghasilkan ukuran tipe bilangan 
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nil yang berbeda; long double menspesifikasikan tipe bilangan nil yang 
berpresisi-extended. 


Konstanta 

Setiap konstanta yang bertipe bilangan nil harus ditulis dengan tanda titik 
desimal. Contoh konstanta bertipe bilangan nil misalnya: 

0.78 -14.2376 7.654000+88 ,.0.0 .5. ,.99.0.. 


Operas! 

Seperti pada tipe bilangan bulat, operasi yang dilakukan terhadap bilangan 
nil ada dua macam, yaitu operasi aritmetika dan operasi perbandingan. 
Operator yang digunakan pada masing-masing operasi disebut operator 
aritmetika dan operator perbandingan. 


a. Operasi Aritmetika 

Operasi aritmetika terhadap bilangan riil dengan sembarang operator 
aritmetika menghasilkan nilai yang bertipe bilangan riil juga. Operator 
aritmetika yang berlaku pada bilangan riil adalah: 


(tambah) 

(kurang) 

(kali) 

(bag!) 


Umumnya bahasa pemrogramanan membolehkan operasi campuran 
(mixed operation ), yaitu operasi aritmetika dengan salah satu operand- 
nya bertipe bilangan riil sedangkan operand lainnya bilangan bulat. Jika 
salah satu operand bertipe riil dan operand yang lain bertipe bilangan 
bulat, maka operand bilangan bulat akan otomatis dikonversi ke 
bilangan riil. 


Contoh-eontoh operasi aritmetika bilangan riil: 


6.4 ♦ 5.7 
8.0 - 2.8 
10.0/3.0 
10/2.S 
7.2 + 0.5 


(haalli 12 . 1 ) 

(haalli 5.2) 

(haalli 3.331.;.) 

(haalli 4.0 —» operasi bilangan campuran) 
(haall> 3.6) 


b. Operasi Perbandingan 

Operasi perbandingan terhadap bilangan riil dengan salah satu operator 
relasional menghasilkan nilai boolean (true atau false). Operator 
perbandingan untuk bilangan riil adalah: 

< (lebih kecll) 

S (lebih kecll atau dengan) 

> (lebih beear; 

2 (lebih beear atau eama dengan) 

a (tidak eana dengan) 
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Contoh-contoh operasi perbandingan: 

0.003 < 0.3 (hasilt false ) 

8.0 2 5 (hasil: true) 

3.0 * 3.5 (haslli true) 

Perhatikanlah bahwa kita tidak mengenal perbandingan kesamaan dua 
buah bilangan nil dengan operator Hal ini dikarenakan bilangan nil 
tidak dapat disajikan secara eksak di dalam komputer. Misalnya, 1/3 
tidak sama dengan 0.33333, sebab 1/3 = 0.33333... (dengan angka tiga 
yang tidak pemah berhenti), begitu juga 2/3 tidak sama dengan 
0.666666666. Karena alasan ini maka operator dianggap tidak ada 
untuk bilangan nil, sehingga operasi kesamaan dua buah nilai nil tidak 
kita definisikan. 


4.1.4 Karakter 

Yang termasuk ke dalam karakter adalah semua huruf abjad, semua tanda 

baca, angka 'o', Y.'9’, dan karakter-karakter khusus seperti ' A \ 

*#', *<a>\ dan sebagainya. Karakter kosong (null) adalah karakter yang 
panjangnya nol, dan dilambangkan dengan 

NamaTipe 

Nama tipe untuk karakter adalah char. 

Ranah Nilai 

Ranah karakter adalah semua hunif di dalam alfabet Ca'./z', 'A’./Z'), angka 
desimal (0..9), tanda baca V,'?’, V, dan lain-lain), operator aritmetik 
(*+’, */'), dan karakter-karakter khusus seperti ('$*, dan 

lain-lain). Daftar karakter baku yang lengkap dapat dilihat di dalam buku- 
buku yang memuat tabel ASCII. 

Konstanta 

Konstanta karakter harus diapit oleh tanda petik tunggal. Contoh konstanta 
karakter misalnya: 

•h' 'Y* •• • 'p* *9' '0* •$• 

Hati-hati menuliskan bahwa ‘9’ adalah karakter, tetapi 9 adalah integer ! 
Operasi 

Operasi yang dapat dilakukan pada tipe karakter adalah operasi perbandingan. 
Operator perbandingan yang berlaku untuk tipe karakter adalah: 

« (sama dengan) 

* (tidak sama dengan) 

< (lebih kecil) 

> (lebih baser) 

a (lebih besar etau sama dengan) 


» r 


Algontma dan Pemrogreman 


http://www.pakteguh.com 




Seperti halnya pada tipe bilangan bulat, tipe karakter juga mempunyai 
keterurutan (successor dan predecessor ) yang ditentukan oleh cara 
pengodeannya di dalam komputer, misalnya pengodean ASCII. Karena 
adanya keterurutan tersebutlah maka kita dapat mendefinisikan operator <, 
>, dan £ pada tipe karakter. Operasi dengan operator perbandingan 
menghasilkan nilai boolean. Misalnya, bila a dan b adalah peubah bertipe 
karakter, maka operasi a < b akan menghasilkan nilai benar atau salah 
bergantung pada keterurutan harga a dan b pada sistem pengodeannya. 


Contoh: 

•a* • 'a* 

(haail i 

erae) 

•v - *f 

(haaili 

false) 

.y. * * y* 

(haaili 

true) 

< •** 

(haoili 

cnia) 

'0' > T 

(haaili 

false) 


4.1.5 String 

String adalah untaian karakter dengan panjang tertentu. String sebenamya 
bukan tipe dasar mumi karena ia disusun dari elemen-elemen bertipe 
karakter. Namun, karena tipe string sering dipakai dalam pemrograman, 
maka string dapat diperlakukan scbagai tipe dasar. 

Nama Tipe 

Nama tipe string adalah string. 

Ranah Nilai 

Ranah nilai untuk tipe string adalah derctan karakter yang telah didefinisikan 
pada ranah karakter. 

Konstanta 

Semua konstanta string harus diapit oleh tanda petik tunggal. Contoh- 
contoh konstanta string misalnya: 

*EANDUHO’ 

'ganaoha' 

•Jl. Pahlawan Ho. If 
• Jurusan Toknik Inforwatika* 


' ABCD765' 

'K7685302' 


String kosong (null) adalah string yang panjangnya nol, dan dilambangkan 
dengan Dengan kata lain, string kosong sama dengan karakter kosong. 
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Operas! 

Operasi terhadap data bertipe string didefinisikan dua macam: 

a. Operasi Penyambungan ( Concatenation ) 

Operator: + 

Operator "+" yang dimaksudkan di sini berarti penyambungan. Bila a 
dan b adalah peubah bertipe string, maka a ♦ b sama dengan ab. 

Contoh: 

•Teknik' ♦ * ZNFORMATZKA* • 'TekniklHPOHMATIICA* 

•Teknik' ♦ • INFORMATIKA’ - 'Toknlk INFORMATIKA' 

% aaa' ♦ • bbb’ ♦ »cc' o *aaa bbbcc' 

•1* ♦ '2'- '12* dan *2* ♦ - *21* (naaun 1 ♦ 2 • J, mangapa?) 

b. Operasi Perbandingan 
Operator: 

» (oama dongon) 

* (tldak aaoa dangan) 

< (loblh kacil) 

» (loblh booar) 

S (loblh kadi atau ana dengan) 

2 (loblh baaar atau oaan dongan) 

Operasi perbandingan, seperti halnya pada karakter, menghasilkan nilai 
boolean (true atau false). Bila dua string dibandingkan, maka yang 
terjadi adalah perbandingan elemen-elemen karakter dari kedua string 
pada posisi yang sama. 

Contoh: 

'•bed* - * obc* (hooll i fa lee) 

'aku ' « 'AKU' (haoili true) 

String yang disusun oleh gabungan numerik dan karakter sering 
dinamakan alfanumerik. Misalnya ^7685302', ’D 5432 AB’, dan 
sebagainya. 


4.2 Tipe Bentukan 

Tipe bentukan adalah tipe yang didefinisikan sendiri oleh pemrogram (user- 
defined type data). Tipe bentukan disusun oleh satu atau lebih tipe dasar. 
Ada dua macam tipe bentukan: 

1. tipe dasar yang diberi nama dengan nama tipe bam, 

2. tipe terstruktur. 


tt2 1 
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4.2.1 Tipe Dasar yang Diberi Nama Tlpe Baru 

Kadang-kadang pemrogram ingin memberi nama baru terhadap tipe dasar 
yang sudah dikenal. Alasan pemberian nama baru mungkin agar nama baru 
tersebut lebih “akrab" dan lebih mudah diinterpretasi oleh orang yang 
membaca teks algoritma. 

Kita dapat memberi nama baru untuk tipe dasar tersebut dengan kata kunci 
type . Ranah nilai, cara menulis konstanta, dan operasi-operasi terhadap 
tipe baru tersebut tidak berubah, tetap sama dengan tipe dasar aslinya. 

Contoh: type BilanganBulat s Integer 

BilanganBuiat adalah tipe bilangan bulat yang sama saja dengan tipe 
integer. Apabila kita mempunyai sebuah peubah ( variable ) yang bemama p 
dan bertipe BilanganBulat, peubah p tersebut sama saja bertipe integer. 


4.2.2 Tipe Terstruktur 

Tipe terstruktur adalah tipe yang berbentuk rekaman (record). Rekaman 
disusun oleh satu atau lebih field (Gambar 4.1). Tiap field menyimpan data 
dari tipe dasar tertentu atau dari tipe bcntukan lain yang sudah didefinisikan 
sebelumnya. Nama rekaman ditentukan sendiri oleh pemrogram. 

1 field i | field 2 \ field 3 I ... I fieldN 

Camber 4.1 Tipe terstruktur dengan N Buah F»td 


Contoh-contoh di bawah ini memperlihatkan bagaimana mendefenisikan 
tipe bentukan untuk tipe terstruktur. 

1) Titik dalam koordinat kartesian dinyatakan sebagai (*, y), dengan x adalah 
nilai absis dalam arah sumbu-X dan y adalah nilai ordinat dalam arah 
sumbu-Y. Kita dapat mendefinisikan titik sebagai tipe bentukan baru 
dengan x dan y sebagai nama/?e/d-nya. 

1 * 1*1 

Cara menuliskan tipe Titik: 

typu Titik 1 record < x 1 reel , y 1 reel > 


atau 

type Titik 1 record < x. y 1 reel > 
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Kata kunci record menyatakan bahwa Titik adalah tipe terstruktur. Jika 
dideklarasikan p adalah peubah ( variable ) bertipe Titik, maka cara 
mengacu tiap field pada p adalah: 

p.x 

py . .. . : . ... . . 


Tipe Titik didefinisikan sebagai berikut: 

Nama tipe : Titik 

Ranahnilai : (real,real) 

Contohkonstanta : <2.7,i3.2> 

<-1.4,- 6 .5> 

<3.034,-10.12> 

Operasi : operasi aritmetik bilangan nil terhadap x dan y 

operasi perbandingan terhadap x dan y 

2 ) Bilangan kompleks adalah bilangan yang dapat dinyatakan sebagai a + bi 
dengan a dan b riil sedangkan i * V-i. Misalnya 4.0 + 3 . 81 , 9.4 - 2 . 51 , dan 
sebagainya. Kita dapat menyatakan sebuah bilangan kompleks sebagai 
tipe rekaman dengan a dan b sebagai nama/ie/d-nya. 

HTTP 

Cara menuliskan tipe Kompleka: 

type Kompleka 1 record <a: raal , b: real > . , 

Jika dideklarasikan k adalah peubah bertipe Kompleka, maka cara mengacu 
tiap field pada k adalah: 

K.a 

K.b 


Definisi tipe Kompleka sebagai berikut: 

Nama tipe : Kompleka 

Ranahnilai : (real, real) 

Contoh konstanta : < 4 .o, 3 .a>, <9.4,2. 5 >, <23.034, -100.o> 

Operasi : - operasi aritmetik bilangan riil terhadap a dan b 

- operasi perbandingan terhadap masing-masing/ie/c/ 

3) Didefinisikan tipe terstruktur yang mewakili tanggal dalam kalender 
Masehi. Hari dinyatakan sebagai tanggal ( dd ), bulan (mm), dan tahun 
(yy), misalnya 10-8:1999. Misalkan tipe bentukan tersebut diberi nama 
Tanggal : 


1 .dd A 1 yy I 


H 
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Cara menuliskan tipe Tanggal: 

type Tanggal « record 

<dd i integer, { 1 - 31 } 

tm t integer , I 1 " 12 ) 

yy t Integer ( > 0 } 

> 

Jika d adalah peubah bertipe Tanggal, maka cara mengacu tiap field: 

O.dd 

D.un 

D.yy 


Tipe Tanggal didefinisikan sebagai berikut: 

Nama tipe : Tanggal 

Ranah nilai : sesuai ran ah masing-masing/ie/d 

Contohkonstanta : «12,7,1997>, «3i, 12 ,1980>, <29,2,19bo> 

Operasi : - operasi aritmetik bilangan bulat terhadap tiap field 

- operasi perbandingan terhadap masing-masing/ie/d 

4) Didefinisikan tipe terstmktur yang mewakili jam. Jam dinyatakan 
sebagai jam (hh), menit (mm), dan detik (ss), contohnya 12:45:10 (jam 12 
lewat 45 menit lewat 10 detik). Misalkan tipe bentukan tersebut diberi 
nama Jem. 


dd 


mm 


ss 


Cara menuliskan tipe Ji 


<hh 

1 Integer. 

(0..23) 

rm 

1 Integer, 

(0..39; 

yy 

> 

1 Integer 

(0..S9) 


Jika J adalah peubah bertipe Jam, maka cara mengacu tiap field: 

J.hh 

J.m 

J.ee 

Tipe Jem didefinisikan sebagai berikut: 

Nama tipe : Jem 

Ranah nilai : sesuai ranah masing-masing/ie/d 

Contoh konstanta :«12,4S.10>, <23,12.19>, <9.i7,e> 

Operasi : - operasi aritmetik bilangan bulat terhadap tiap field 

- operasi perbandingan terhadap masing-masing/ie/d 
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5) Tipe terstruktur untuk jadwal kereta api. Jadwal kebcrangkatan kereta 
api terdiri alas informasi iiomor kerela api (NoKA), kola asal ( KotuAsaD, 
kola tujuan ( KotaTujuan ), jam berangkat ( JamBerangkat ), dan jam tiba 
( JamUba ). 


Cara menuliskan tipe JadwalKA: 


type Jadwal KA » record 


<WoKA 

i string, 

KotaAsal 

i otrlng. 

JamBerangkat 

i Jam, 

KotaTujuan 

: otrlng. 

JamTlba 

> 

« Jam 

Jika jka adalab peubah bertipe Jodwa 1KA, mnka earn mengacu tiap-tiap field: 

JKA.NOKA 


JKA.KotaAoal 


JKA.JamBerangkat / 

mangacu Jam kaberangkafan / 

JKA.JamBerangkat.h»« ( 

mcngacu Jam Ihhl Xcbai .ingk.it an ) 

JKA.JamBerangkat.mm / 

•oflgacu monil flM) krbotangkatun 1 

JKA.JamBerangkat .no { 

nongacu decik fool k*berangkatan ) 

JKA.KotaTujuan 


JKA.JamTlba.hh 


JKA.JamTlbft.mm 


JKA.JamTiba.ua 



Tipe Jadwal ka didefmisikaii sebagni berikul; 

Noma tipe : Jadwal ka 

Ranah nilni : sesuai ranah masing-masing field 

Contoh konstnnta :<*KAOl', 'Jakarta*, <l7.a.0>, 'Semarong', 

< 05 , 54 , 0 * > 

«'KA24*». 'Bandung', <9,40,12>, 'Solo'. 

< 14 , 10 , 50 * > 

Operasi : sesuai operasi untuk masing-mnsing tipe field. 

6) MilMha adjtlnli nama lipo tcntmktur png menvataknn nilai ujian seonmg 
mahnsiswa untuk suatu mala kuliali (MK) yang ia ambit. Data setinp 
mahasiswn adalab NIM (Nomor lnduk Mahnsiswa), noma nmhaxiswn, kodo 
mala kuliali png ia ambit, dan nilai mata kuliali tersebut. 

rV/A/ | NumaMhs \ KodvMK 1 Nilai I 

Cara menuliskan tipe ui lMho: 
type NilMho > record 

< KIM i integer, (Nomor lnduk N.ihj/iJjiw .1 } 

NamaMho « otrlng , (name mcbMClawm } 

KodeMK , otrlng. (kodo mats kullah ) 

Nilai : cher findeka nilai MK IA/B/C/D/B)) 


u r 
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Jika dideklarasikan m adalah peubah bertipc KilMhe, maka Cara mengacu 
tiap field pada rekaman m adalah: 


M.NIH 

M.KodoMK 
M. Nilai, ,'jji j 



f.U ^ '*>' ' *1 

. »I l;j it . J . •■.r ■ ■ < I. 

.i*J »/i• ..tMO. MitU.. bii}: -.itiiv k ! ' 



Tipe NilMhe didefinisikan sebagai berikut: 

Nama tipe : NilHha 

Ranah nilai : sesuai ranah masing-masing/re/d 

Contoh konstanta : < 13596001 , 'Amir Ali','FI324', 'A' > 

<13597010, 'Wati Siregar', 'MA2H, 'C'> 

Operasi : - operasi aritmetik bilangan bulat lerhadap N 1 M 

- operasi siring terhadap NamaMhs, KodeMK, Nilai 


7) Contoh berikut menyajikan struktur tipe bentukan yang cukup kompleks. 
Misalkan kita ingin menyimpan data nilai-nilai mata kuliah yang diambil 
setiap mahasiswa. Data yang disimpan di dalam struktur rekaman sebagai 
berikut: 

1. NIM (Nomor Induk mahasiswa) 

2. NamaMhs (nama mahasiswa) 

3. Mata kuliah yang diambil mahasiswa tersebut, yang terdiri at as: 

- Kode mata kuliah 

- Nama mata kuliah 

- Nilai mata kuliah 


Cara menuliskan tipe MataKuliah: 

type MataKuliah i racord 

<KodoMX i string, ( kode mata kuliah ) 

NamaMX i string, { nama maCa kuliah ) 

Hilai i char { 1 ndeke nilai MK (A/B/C/D/K)) 

> 

typa MilKho i record 

<NXM i string, ( Nomor Induk Mehaoluwa ) . 
NamaMhs s string , . ( name mahasiswa J 
MK i MataKuliah 1 

» - V l *!. > 1 ’ ’•*■•* .’ 


4.3 Nama 

Setiap objek di alam mempunyai nama. Nama itu diberikan oleh manusia- 
agar objek tersebut mudah diidentifikasi, diacu, dan dibedakan dari objek 
lainnya. Di dalam algoritma, nama dipakai sebagai pengidentifikasi 
"sesuatu” dan pemrogram mengacu “sesuatu" itu melalui namanya. Karena 
itu, tiap nama haruslah unik, tidak boleh ada dua buah nama yang sama. 
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Beberapa aturan mengenai penamaan: 

1. Nama haras dimulai dengan huraf alfabet, tidak boleh dimulai dengan 
angka, spasi, atau karakter khusus lainnya; 

2. Huraf besar atau huraf kedl tidak dibedakan. Jadi, suatu nama yang 
ditulis dalam huraf besar atau huraf kecil dianggap sama; 

3. Karakter penyusun nama hanya boleh huraf alfabet, angka, dan 
Karakter garis bawah (underscore) dihitung sebagai sebuah huraf; karakter 
ini kadang-kadang berguna untuk memudahkan membaca algoritma. 

4. Nama tidak boleh mengandung operator aritmetika, operator relasional, 
tanda baca, dan karakter khusus lainnya; 

5. Karakter-karakter di dalam nama tidak boleh dipisah dengan spasi. Hal 
ini mengingat bahwa nama adalah kesatuan leksikal, maka setiap nama 
haras ditulis secara utuh. Spasi dapat diganti dengan karakter 

6. Panjang nama tidak dibatasi. 

Nama sebaiknya interpretatif yaitu mencerminkan nilai intrinsik atau fiingsi 

yang dikandungnya. Kita sebagai pemrogram sangat dianjurkan mcmbcrikan 

keterangan pada nama yang didefinisikan. Keterangan tersebut dinyatakan 

sebagai komentar yang diapit oleh sepasang tanda kuning kurawal. 


Contoh nama yang salah: 


6tltlk ' 
nilai ujlan 
PT-1 
harll 
A 1 


( ktrtnt dlmulti dungun trifle* } 

( ktrent dlpltthktn dangtn tpttl ) 

( ktrtnt mtngtndung opart tor kurtng f 
( ktrtnt mtngtndung ktrtkttr khutut / 
( ktrtnt mtngtndung tpttl } 


Contoh nama yang benar: 

tltlkC atau titU_« 
nllal_ujlan atau nllalujlan 
PT_1 atau PT1 
harl 

A1 


Semua nama yang digunakan di dalam algoritma haras dideklarasikan di dalam 
bagian DEKLARASI scbclum mereka digunakan. Deklarasi menspesifikasikan 
nama-nama peubah beserta tipenya, nama konstanta beserta nilainya, nama 
tipe bentukan, dan nama prosedur/ fungsi. 

Di dalam algoritma, objek yang diberi nama dapat berapa: 

1. Peubah (variable); 

Peubah adalah tempat menyimpan nilai yang isinya dapat diubah. 


Contoh 


DEKLARASI 

X, nilal_ujian, jural ah r real 
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k i Integer 
c : char 

x, nilai_ujian, jumlah, k, dan c adalah nama-nama peubah. Nilai-nilai 
peubah dapat dimanipulasi melalui pemyataan-pemyataan di dalam 
algoritma. 

2. Konstanta (constant); 

Konstanta adalah tcmpat penyimpanan di dalam memori yang nilainya 
tetap selama pelaksanaan program dan tidak boleh diubah. Notasi untuk 
menyatakan konstanta adalah const . 


Contoh 


DBKLARASI 

const phi - 3.14 

crost Kmska - 100 

const sondi - *xy*' 

phi, Nmaks, dan sandi adalah nama konstanta. Nilai konstanta yang 
sudah diisikan ke dalam nama konstanta ddak dapat diubah olch 
instruksi di dalam algoritma. 

3. Tipc bcntukan, scperti yang tclah dijelaskan di ata9; 

Nama tipe bcntukan diberikan oleh pemrogram; 


Contoh 


DBXLARA8I 



Jl, J2 l Jsm 


Titik dan Jsm adalah nama tipe, sedangkan p adalah nama peubah yang 
bertipe Titik, ji dan J 2 adalah nama peubah yang bertipe Jam. 

4 . Nama fungsi (akan dijelaskan kemudian) yang digunakan; 


Contoh 


DBKLARASI 

FUNCTION Haksimum( Input A. ■ 1 integer ) -» integer 
1 rr.rnyrnballkjn nilei terbeeer enters A den B } 


Maksi mum adalah nama fungsi. 
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5 . Nama prosed ur (akan dijelaskan kemudian) yang digunakan. 


Contoh 


DBloxnA-IX • 

• T jitOCIDU RB Tukijff,_ 

1 .■' f Ka*p*rt\ik*tkAD ailal A 










Tukar a dal ah nama p rosed ur. 


4.4 Tabel Translasi dari Algoritmik ke 
Pascal dan C 


Kclompok I 


boolean 

(Lihat kat. dl 


D***r _ 



bawah tabel) 



integer 

byte 

unsigned char 

1 byte 



shortint 

elgnod char 

1 byte 



word 

unsigned int 

2 byte 



integer 

int, short lnt 

2 byte 



longlnt 

long 1 st 

4 byte 


rwl 

reel 

float 

(pads 


double 

double 

koraput 



extended 

long double 

er 16 - 
bit) 


char 

char 

Char 



string 

string 

(Lihat ket.) 



etrlng(n) 

char (n) 



record 

record 

struct 



<fieldl i type. 

fieldli 

(type fieldl; 



Cield 2 :type. 

type; 

type fields; 



... 

CieldSt 

see 



fieldN:type 

type; 

type fieldN; 

\ 



> 

fieldNi 

I 




type; 

end; 



2 . Operator 
a. aritme- 

♦ 

* 

* 


tik 

• 

• 

• 



/ 

/ 

/ 



div 

div 

/ 



mod 

mod 

» 


b. perban- 

< 

< 

< 


dingan 
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<o 

<o 




> 

> 

> 




2 

>a 

>o 




■ 

* 

<> 

1- 


c. 

logika 

not 

not 

1 




and 

and 

44 




or 

xor 

or 

.or 

II 

tidak ada 


d. 

string 

♦ 

♦ 

tidak ada 




< 

« 

tidak ada 




2 

>• 

tidak ada 




> 

> 

tidak ada 




S 

<• 

tidak ada 




■ 

■ 

tidak ada 




e 

<> 

tidak ada 


3. 

Kcmantar 

( komentar } 

( komentar 

/• komentar •/ 





f 

(• koswntar 
•) 



4. 

Lain- 

lain 

conet 

—• 

const 





type 

typedef 




true 

true 

dapat diganti 1 




false 

false 




Keterangan Tambahan: 

1. Bahasa C tidak menyediakan tipe boolean secara eksplisit. Tipe boolean 
dapat diganti dengan tipe integer, yang dalam hal ini true ■ 1, false ■ o. 
Namun demikian, kita dapat membentuk tipe bam yang bemama 
boolean dengan typedef sebagai berikut: 

typed mt enure (Celae - 0, true • l) Boolean; 

Tipe Boolean di atas selanjutnya dapat digunakan untuk mendeklarasikan 
peubah yang bertipe boolean : 

Boolean ketereu; /• keteeni adalah peubah bertipe boolean •/ 

Selanjutnya, false dan true dapat digunakan sebagai konstanta boolean di 
dalam program C. 

2. Sebuah karakter atau string dalam bahasa Pascal diapit dengan 
sepasang tanda petik tunggal , sedangkan dalam bahasa C karakter 
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2. Sebuah karakter atau string dalam bahasa Pascal diapit dengan 
sepasang tanda pelik tunggal , sedangkan dalam bahasa C karakter 
diapit oleh sepasang tanda petik tunggal (*•••*) dan sebuah string diapit 
oleh sepasang tanda petik ganda 

Contoh dalam bahasa Pascal : 

'a' i karakter) 

'Teknik Inforuatika' (at ring) 

Contoh dalam bahasa C: 

•a 1 (karakter) 

•Teknik Informatika- (at ring) 

Perhatikan bahwa di dalam bahasa C, 'a' adalah sebuah karakter, 
sedangkan -a* adalah sebuah string. 

3. Dalam bahasa Pascal, string yang tidak disertai dengan panjang maka 
diasumsikan panjangnya adalah default, yaitu 255. Apabila panjangnya 
ditentukan, panjang tersebut harus disebutkan. 

Contoh: kota 1 otrlng( 20 )j 

4. Bahasa C tidak menyediakan tipe string secara khusus. String di dalam 
bahasa C direpresentaakan dengan lank (array - materi larik diberikan di 
dalam Bab 13)) Namun, kita dapat membuat tipe bentukan baru untuk 
string dengan menggunakan larik dan fasilitas typedef dan panjang string 
maksimum 255 (seperti nilai default panjang string di bahasa Pascal) 

typedef char String(255] i 

Tipe string ini selanjutnya dapat digunakan untuk mendeklarasikan 
peubah yang bertipe string: 

String p, kotuj /• p dan koto adalah peubah bartlpe string •/ 

Jika panjang string ditetapkan, maka nama peubah yang bertipe string 
didefinisikan sebagai array karakter disertai panjang string tersebut: 

obar nama_peubah [nj; 

dengan n adalah panjang string. 

Contoh: char kota (201 ; 

5. Dua buah string di dalam bahasa C tidak dapat dibandingkan secara 
langsung, karena string pada dasamya adalah array of character (lihat Bab 
tentang array, Bab 13). Namun, kita dapat membandingkan kesamaan dua 
buah string dengan menggunakan fungsi strcmp. Fungsi ini menghasilkan 
nilai perbandingan dua buah string, si dan $2 dengan format 
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nilai • atrcmp(al,a 2 ) 

yang dalam hal ini, nilai = o jika si = S2, nilai < o jika si < s2, dan nilai > o 
jika si > S2. Lihat contoh penggunaan fungsi strcmp ini di dalam Bab 6. 

6 . Pendeklarasian konstanta dalam bahasa C, selain menggunakan kata kunci 
const, dapat juga menggunakan pemyataan bans ndefine. Pemyataan 
Ndef ine mendefinisikan konstanta simbolik dengan cara penulisan: 

•define name nilai 

Pemyataan di atas berarti, setiap kemunculan nama di dalam program 
akan diganti dengan nilai. 


Contoh 


/• nama konotanta •/ 
const float phi • 1.14/ 
const 1st N - 100/ 
const char oandllj- m xy a*/ 

atau 

/• nama konstanta •/ 

•daflno PHI 1.14 /• konatanta n •/ 

•doflna N 100 /• Jumlah mshsolewa •/ 

•daflno SAND I -xyf /• kunci rahaala •/ 

Pemyataan Ndef ine hams diletakkan di luar blok main(). Perhatikan 

bahwa tidak diperlukan karakter pada akhir pemyaatan Ndefine. 
Nama-nama seperti phi, n, dan sandi adalah konstanta simbolik, bukan 
peubah, sehingga mereka tidak muncul di bagian deklarasi. Nama-nama 
konstanta simbolik menumt konvensi ditulis dengan humf besar untuk 
membedakannya dengan nama peubah. 

Contoh-contoh translasi 

Contoh translasi bagian DEKLARASI ke dalam bahasa Pascal dan C 
diberikan di bawah ini. Untuk prosedur dan fungsi, pembaca dapat 
membaca Bab 10 dan Bab li tentang cara mentranslasikan prosedur dan 
fungsi ke dalam bahasa Pascal dan C. Kata-kata yang dicetak tebal di dalam 
bahasa Pascal dan C adalah reserved words (kata cadangan). Kata cadangan 
tidak boleh dijadikan sebagai nama tipe, nama peubah, nama tetapan, nama 
fungsi, dan nama prosedur. 


/• konatanta n •/ 

/• jualah mahaalatm •/ 
/• kunci rabaaia •/ 


AJLGORITMIK 

DIXLAXASZ 

I nama konatanta ) 

const phi - 3.14 / konstanta x J 

const Nmaks - 100 ( Jumlah mahaaiava J 
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cpn ot nandi - 'xyz* { kunci rahaaia J 
{ name tipe J 

type MHSt record ( data wahaviowa ) 

< NIM « integor, 
nama : otring , 
unia : integer 

> 

type Titik i record <x:real, y: real > { titik di daiam bldang 

karteaian ) 

type Kompleka : record <a: real , bt real > { bilangan komplcko ) 
type Jan i record 


<hh 

t integer. 

0. .23 

mm 

i integer, 

0..59 

no 

i integer 

0. .59 


type JadwalKA i record 

< NoKA 


« ■trln g, 

KotaAoal « otring, 

JanBerangkat j Jam, 

KotaTuJuan i otring, 

JanTlba i Jam 


{ nama peubali ) 

luaoL i real 
pow j otring 
indeko s char 
ketemu i bo olean 

P : Titik 
F j Kompleko 
JKA t JadwalKA 


( iuas J incjfc.ir.in ) 

{ password ) 

( indeka nilai ujian f 
( baail pencartan, true jika data yang 
dicarl ditomukan, false jifca aeballknya) 
( koordinat titik puaat llngkaran ) 

{ frekuenai, hauil tranaformaai Fourier ) 

I jadwal kerota apl ekaprea ) 

( nama fungal dan proaedur ) 

PROCEDURE IlitungTitikTengaMinput PiiTitik, input P2'Titik, 

output Pt,Titik) 

(Nenghl tung titifc tengah gar la dnrjjan titik ulung PI dan P2. / 


FUNCTION Faktorial (input nt Integer )-♦ integer 
{ mengembalikan nilai taktorial dari n > 0 ~) 

F UNCTION Carl(input x; integer )-» boolean 
( true ~bila x diteoikan. false bila aeballknya ) 

PROCEDURE CetakJadwalKA(input kota r otring) 

{ Mencetak jat/al eetcua kereta api yang berangkat dari kota tortentu 
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PASCAL: 

(• DEKLARAKI •) 


{ nanm konocanta ) 

conet phi - 3.14; ( konntanta n } 

Nmikn - 100 ; ( jumlah nahaoiowa } 

oandl • 'xys*; j kunci rahania } 

{ r.jra tipe } 

typa 

KHS • record 
N1M 
noma 
uuia 
•and; 

Titik • racord { titik di dalam bidang kartcaian ) 
X: rani ; 
yiraal; 


{ data nahaaiswa } 

t integer; 
t atring; 
i Intagar; 


Komploka - racord { bllongan komplaka ) 
atraal; 
b: raal; 
and; 

Jam • racord 


hh t 

intagar; 

{0..23 

mn» j 

intagar; 

(0..59 

nn : 

integer; 

{0..59 

and; 




JadwalKA ■ racord 

NoKA i string[51; 
KotaAoal : atringU5j; 
JamBerangkot t Jam; 
KotaTujuan j atring; 
JamTiba j Jam; 
and; 


var 

( nano pcubah J 
luaaL i real; 
paw « string; 
indefca ; char; 


luao llngkaran ) 
pasoword } 

Indeka nilai ujian } 


ketemu ; boolean; 

P : Titik; 

F ; Kcrapleko; 

JKA : JadwalKA; 


{ hasil pencarian, true jika data yang 
dicari ditemukan. false jika sobaliknya} 
{ koordinat titik pusat lingkaran } 

/ frekuenoi. hasil transfomasi Fourier } 
( Jadwal kereta api eksprea ) 


{ nama fungal dan prooedur J 
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PROCEDURE HitungTitikTengah(PI:Titik; P2:Titik; var Pt:Titik>; 
(Kenghitung titik tengah garis dengan ticik ujung PI dan P2. ) 

FUNCTION Faktorial (r.:integer):integer; 

{ mengembalikan nilai faktorial dari r. > 0 ) 

FUNCTION Cari(x:integer): boolean; 

( true bila x ditomukan. false bila uebaliknya ) 

PROCEDURE CetakJadvalKAIkota ; string[IS])r 

( Mencetak jawal oezua kereta api yang berangkat dari kota tertentu 

C: 

/• DBKLARASX •/ 

/• noma konotanta •/ 

conat float phi ■ 3.U; /• konatanta n •/ 

conat int II • 100 ; /• jumlah nahasiawa •/ 

conat char oandi[!« "xyz"; /• kunci rahoaia •/ 

/• nnma tipe •/ 

typodef atruct (int HIM; 

char nama[2S); 
int uaia; 

) Mill!; /• data mahaoiawa •/ 

typedef atruct (float x; float y ;) Titik; /'titik dl bldang 
kartonian •/ 

typedef atruct (float a; float b;) Kooipleko;/'bilangan kompleko'/ 

typodef otruct (int hhi 
int mm; 
int oa; 

JJnm; 

typedef atruct { char HoKA(S); 

char KotoAoalI15J; 

Jam JamBerangkat; 
char KotaTujuanUS] ; 

Jam JamTiba/} JadwalKA; 

typedef enum (faloe- 0 , true-lj boolean; /• tipe bentukan untuk boolean 

•/ 

/• nama peubah •/ 

float luanL; /• luaa lingkaran •/ 

char pnw(255|; /• paoaword •/ 

char indekn; /• indeko nilai ujian •/ 


boolean ketomu; /• haail pencarian, true Jika data 

dicarl ditomukan. false jika aoballknya •/ 
Titik P; /• koordlnat titik puaat lingkaran •/ 

Kompleko F; /• frekuenoi, haail tranoformaai Fourier •/ 

JadwalKA JKA; /• jadval kereta api ekaprea •/ 
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/* nama fungal dan proaedur •/ 

void HltungTitlkTengah(Titlk PI. Titlk P2, Titik *P)t 
/• Menghitung titlk tengah garla dengan titlk ujung PI dan P2. •/ 

int Paktorial (int n); 

/• mengetnbalikan nilai faktorlal darl n > 0 •/ 
boolean Carl(Int x)j 

/• true bila x dlteraukan, false blla aeballknya */ 
void CetakJadwalKA(char kota(lS])j 

/• Mencetak javal aemua kereta apl yang berangkat darl kota tortontu 
•/ 


4.5 Nilai 

Nilai adalah bcsaran dari tipe data yang terdefinisi (tipe dasar atau tipe 
bentukan). Nilai dapat berupa data yang disimpan di dalam peubah atau 
konstanta. nilai dari hasil perhitungan, atau nilai yang dikirim oleh fungsi. 
Algoritma pada dasamya memanipulasi nilai yang disimpan di dalam 
peubah. Memanipulasi nilai di dalam peubah misalnya: mengisikannya ke 
peubah lain yang bertipe sama, dipakai untuk perhitungan, atau dituliskan 
ke piranti keluaran. Masing-masing cara memanipulasi ini dibahas satu-per 
satu di bawah ini. 


4.5.1 Pengislan Nilai ke dalam Nama Peubah 

Peubah menyimpan sebuah nilai bertipe sama dengan tipe peubah. Sebuah 
nilai dapat dimasukkan ke dalam nama peubah dengan dua buah cara: 

1. pengisian nilai secara langsung ( assignment ), 

2. pembacaan. 


4.5.1.1 Pengisian Nilai Secara Langsung 

Pengisian nilai secara langsung (assignment) adalah mengisi sebuah nilai ke 
dalam peubah secara langsung di dalam algoritma. Nilai yang diisikan hams 
bertipe sama dengan tipe peubah. 

Notasi pengisian nilai secara langsung: ♦- 

Arti notasi 4-: nilai di sebelah kanan tanda panah diisikan ke dalam peubah 
di sebelah kirinya. 
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(a) Nilai yang diisikan ke dalam pcubah dapat berupa konstanta, 

peubah *- konstanta { nilai konscanca diisikan ke dalam peubah } 
Contoh: A ♦- 10 f Nilai A sama dengan 10 ) 

(b) atau suatu peubah diisi dengan nilai dari peubah lain: 

peubahS t— peubah 1 ( nilai peubah 2 dicalin (copy) ke dalam peubah 2 ) 

Contoh: A ♦- B ( Nilai A disalin ke dalam B ) 

(c) atau suatu peubah diisi dengan hasil evaluasi dari sebuah ekspresi: 

peubah *- ekspresi { hasil peihitungan diisikan ke dalam peubah ) 

Contoh: A e- <B»C>/2 ( A beriei haoil evaluasi (B+CI/2 } 

Setiap peubah meneinpati sebuah lokasi di memori komputer. Sifat memori 
ndalah jika ia diisi dengan nilai bam, inaka nilai yang disimpan sebelumnya 
hiking. Jadi, jika suatu peubah diisi dengan nilai haru, maka nilai lama yang 
disimpan oleh peubah terscbut "ditiinpa" dengan nilai yang barn. Prinsip 
yang dipakai ndalah: nilai yang diknndung oleh peuhah adalah nilai yang 
terakhir kali diisikan ke dalnmnva. 

Misnlkan peubah k dideklnrasikan bertipc integer, jarak bertipe real, ketemu 
bertipe boolean, NamaKote bertipe string, dan j bertipc Jam. 

DKKLARABZ 

k i Infger 

jarak i real 
ketemu i boolean 
NnmaKota i oaring 
typo Jam i rocord 

<hh t Integer, (0..23 
mm i Integer, (0..59 
so i integer {0..59 

> 

J i Jam 


Contoh pengisinn peubah-peubah tersebut dengan nilni-niini konstanta 
adalah: 

ALGORITHAi 
k »- S 

Jarak •- 0.03 
ketomu *- faloe 

HamaKota *- 'SOLO' 

( Nsngisi J dengan Jam 6:12:39 ] 

J *- < 6 , 12 , 39 > 
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Tetapi, pengisian langsung nilai di bawah ini salah: 

k «- 0.5 

karena k yang bertipe integer diisi dengan nilai bcrtipc nil. 

Misalkan B, aval, auhui, ouhu2, ulang, dan mulai adalah nama pcubah yang 
didefinisikan bertipe integer. Contoh di bawah ini adalah mengisi sebuah 
peubah dengan nilai dari peubah lain. 

DBKLARASI 

B. awal, auhui, nuhu 2 . ulang : integer 

ALCORITMA; 

B *- awal 
auhui f~ auhu 2 
ulang *- mulal 


Peubah di runs kanan hams sudah bcrisi nilai tcrlcbih dahulu. Jndl, jika 
ouhui bcrisi 70 dan auhu2 sudah bcrisi nilai eo, maka pengisian nilai 

auhui *- auhu2 

menyebabkan peubah auhui sekarang bcrisi nilai 00. Nilai yang dikandung 
ouhui scbclumnya (70) hilangdigantikan 80. 

Pcrhatikan bahwa pernyataan pengisian nilai 

nam/i_varl ♦- nAma_var2 

sarna artinya dengan mcnyalin {copy) nilai nama_vsr2 ke dalain nama_vari. 
Pcnyalinan itu tidak menyebabkan nilai nama_var2 hilang. Nilai name var2 
letap seperti seinula. 

Contoh berikut ini adalah pengisian peubah dengan cksprcsi. Hasil ekspresi 
hams bertipe sama dengan tipe peubah di mas kiri. 

DBKLAKA8X 

P, 0 . R, niabah, Dunlah. banyak, l. 3. k 1 Integer 
e, b, c, doterrainan i reel 
h 1 boolean 

ALCORITMA1 
C «- A ♦ B 

niabah ♦- Jumlah/banyak • 5 
dotermlnan *- b*b - 4*a*e 
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k «-(l+))dlv 2 
h 4- (i » 1) and (i S 100) 

Bila A didefinisikan didekJarasikan bertipe integer, maka pemyataan: 
a ♦- a ♦ 1 

berarti nilai A yang bam adalah nilai A yang lama ditambah satu, atau 

° Aiaaa ♦ 1 

Misalkan a bemilai 8 , maka setelah pemyataan a«-a*i, nilai a sekarang 
adalah 9 (yaitu 8 ♦ 1). 

Berapa nilai m dan p setelah runtunan penugasan di bawah ini selesai 
dilaksanakan oleh komputer? 

DBKLNtASX 

M. P 1 Integer 

ALGORITMAi 
N «- 1( 

P 4- M • 2 
M 4- P ♦ 100 

P 4- P 4. M 

Jawabnya adalah: di akhir instmksi, m - 132 dan p - 164. Periksa 

kebenarannya. 


4.5.1.2 Pembacaan 

Nilai peubah dapat diisi secara ekstemal dari piranti masukan, misalnya dari 
papan ketik, dari sebuah berkas {file), dari tetikus ( mouse), dan sebagainya. 
Memasukkan nilai dari dari piranti masukan dinamakan operasi pembacaan 
data, karena komputer seolah-olah membaca apa yang kita masukkan. 

Notasi algoritmik untuk pembacaan nilai dari piranti masukan: 

read (naota 1, naira „ nama J 

dengan syarat bahwa nama,, nama „ nama„ adalah nama-nama peubah 

yang sudah dideklarasikan tipenya. 

Misalkan m, ai, a2, a3, bertipe real, nama_kota dan naraa mha bertipe string, 
nrp dan nilai bertipe integer, dan p adalah rekaman bertipe Titik. Cara 
membaca nilai untuk semua peubah tersebut adalah: 

DBKLARASI 

M, al, a2, a3 1 real 
namn_mha i atrlnq 
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HIM : Integer 

t ype Tit Ik : record <x : reel , y : real> 

P : Tltik 

ALGORITHM 

read(M) 

r ead tali a 2 . a3) 
rend(nama mhn, HIM) 
rend(P.x. P.y) 

Ketika pernyatan 
r?ad(M» 

dieksekusi oleh komputer, kompuler membaca nilai m yang dinmsukkan dari 
luar (misalnya dari papan kctik). Jlka nilai yang dikctikkan adalah 78 , maka 
lokasi niemori yang bcrnama m sekarang berisi 78 . 

Begitu juga hila pernyataan 

raad (nawa aha, HIM) 

dieksekusi, komputer meminta pcnggunn mengclikkan nilai untnk 
namn mhfl, MRP. dan nilai. Bila pengguna mengetikkan 


4.5.2 Ekspresi 

Suatu nilai dipakai untuk proses transformasi menjadi keluaran yang 
diinginknn. Transformasi nilai menjadi keluaran dilakukan melalui suatu 
perhitungan (komputnsi). Cara pcrhilungan ilu dinyutakan dalam suatu 
ekspresi. Ekspresi terdiri atas operand dan operator. Operand adalah nilai 
yang dio|>era.sikan dengan operator tcrtcntu. Operand dnpat berupa 
konstanta, nama pcubah, nama konstanta. atau hasO dari suatu fungsi. Hnsil 
evaluasi dari sehuah ekspresi adalah nilai di dalam ranah yang sosuai dengan 
tipe operand yang dipakai. Dikenal tiga niaeam ekspresi: cskpresi aritmetik. 
ekspresi relasional. dan ekspresi string. 


4 . 5 . 2.1 Ekspresi Aritmetik 

Ekspresi numerik adalah ekspresi yang haik operand-nya bertipe numerik 
dan hasilnya juga bertipe numerik. Misalkan dideklarasikan nama-nama 
peuhah sebagai herikut: 

DEKLARASI 

a. b. c : real 
d i integer 

i. J. k « in teger 
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Contoh ekspresi numerik misalnya, 
a • c 

Hasil evaluasi ekspresi tersebut juga bertipe real. Pada ekspresi ini, 
operand- nya adalah a dan b, sedangkan operatomya adalah *'*. Bila basil 
evaluasi disimpan ke dalam peubah, maka peubah tersebut hamslah bertipe 
sama dengan tipe hasil. Pengisian hasil evaluasi ekspresi a»c ke dalam nama 
peubah c melalui pemyataan 

c 4- a • b 

adalah benar, tetapi pemyataan 
d 4 - a • b 

tidak benar karena d bertipe integer sedangkan hasil evaluasi ekspresi 
bertipe real. 

Contoh lainnya adalah penyimpannn eskpresi (1« j) div 2 ke dalam peubah k: 

k ♦- ti ♦ J) div 2 

Contoh ekspresi numerik lainnya: 

a/ 2 . 5 ) 4 c *b 
i*(J*k) - 10 *(d 4 k) 

100 . 0 /(a*c) - 2.5 

Yang harus diperhatikan dalam penulisan ekspresi numerik adalah tingkatan 
(hirarkhi) operator. Operator yang mcmpunyai tingkatan lebih tinggi lebih 
dahulu dikeijakan daripada operator yang tingkatannya lebih rendah. 
Misalnya ekspresi 

m/a 4 b 

akan dikeijakan dengan urutan a/c lebih dahulu, lalu hasilnya ditambah 
dengan b. 

Urutan evaluasi ekspresi dapat bernbah karena penggunaan tan da kumng. 
Misalnya eskpresi 

«/<c 4 b) 

akan dikeijakan sebagai c + b lebih dahulu, bam kemudian a dibagi dengan 
hasil daric 4 b. 

Tingkatan operator aritmetika adalah (dari tertinggi ke terendah): 

ti) div, nod '■ 

(ii) / 
tiii) * 

UV)) 4, - 
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Operator “/" dan dapat saja raerapunyai urutan priori tas yang sama, misalnya 

a*b/c 

sama saja dengan 
(a*b)/c 

atau 
a*(b/c) 

Tetapi, a/b*c diinterpretasikan sebagai (a/b) *c, hasilnya tidak sama dengan 
a/ (b*c). Penggunaan tan da kuning dapat menghilangkan kesalahan interpretasL 

Operator +, - mempunyai urutan perioritas yang sama. Apabila ada bagian 
ekspresi yang diapit oleh pasangan tanda kuning, maka ekspresi di dal am 
tanda kurung mempunyai prioritas tertinggi untuk dievaluasi teriebih dahulu. 

Contoh-contoh ekspresi yang sudah lata kemukakan mempakan eskpresi biner, 
yaitu ekspresi yang operator-nya membutuhkan dua buah operand (sehingga 
operator-nya disebut juga operator biner). Di samping eskpresi biner, terdapat 
juga ekspresi uner, yaitu ekspresi dengan satu buah operand, misalnya 

-■ 

-• • (b*o) 

(-• adalah ekspresi uner). Operator selain merupakan operator biner, 
juga adalah satu-satunya operator uner dari seluruh operator arimetika. 

Ekpresi biner pada seluruh contoh di atas ditulis dalam notasi infix, yaitu 
notasi yang kita gunakan dalam kehidupan sehari-hari. Notasi it\fix adalah 
notasi dengan susunan: 

operandi operator operands 

Selain notasi ir\fix, ekspresi biner juga dapat ditulis dalam notasi prefix: 
operator operandi operands 

atau dalam notasi postfix (suffix atau polish): 
operandi operands operator 

Contoh ekspresi infix, prefix, dan postfix : 

infix : «*e 

a*b/c«d-e*f 
prefix : *68 

•♦•/bc-d*ef 

postfix : «e* 

abc/*def 
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Umumnya bahasa penirograman mengevaluasi eksprcsi dalam notasi infix, 
namuti ada heberapa bahasa pemrograraan tertentu yang dapat menghitung 
ckspresi dalam nutasi postfix dan prefix. 


Rumus-rumus di bawah ini dalam notasi algoritmik: 


r = ? (C + 32 | 


2x + y 
5\v 


y* * 


a + b m 


cd />♦</ 


T 5/9*(C . 12) 

* (2*X ♦ y)/ (5»w) 

y «- 5( U » b)/tc«d| . n/(p . q)) 


4.5.2.2 Eksprcsi Relasional 

Eksprcsi relasional adalab ckspresi dcngan operator <, >, *, dan *, not, 

and. or. dan XUC. Hasil evaluasi ckspresinya adalab nilai bertipc boolean 
(true atau false), sebingga ckspresi relasional kadang-kndang disebut jugn 
eksprcsi boolean. Misalkan didcklarasikan nama-nama pcuhah sebagai 
berikut ini: 

DKKLARA8! 

ada, kntnmu, bonnr t boolenji 
x. y j Intagar 


Misalkan kotumu berisi nilai false, ada bemilai true, x bernilai 8 dan y 
bernilni 12, maka. Contoh-contob ckspresi boolean adalab: 


not ada 

(haotli 

U In! 

ada or katemu 

(haul 11 

true) 

ada and true 

(haolli 

true) 

X 

(haoili 

talac) 

ada or (x • y) 

(haaili 

true) 


4.5.2.3 Eksprcsi String 

Eksprcsi string adalab ckspresi dengan operator (operator penyambungan 
/concatenation). Misalkan didcklarasikan nama-nama peubali sebagai berikut ini: 

DKKLARASX 

Kar , char 
a i atring 

maka contoh-contob ckspresi string misalnya: 

b . kar) • 'c* ( eperaoi pcnymtrbimgaa karaktor/otring I 

•J1 Oaneaha * . 'No 10’ 
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4.5.3 Menuliskan Nilai ke Piranti Keluaran 


Nilai konstanta, pcubah, dan basil ckspresi dap.it ditanipilkan ke piranti 
keluaran (umuinnya layar peraga). Instruksi penulisan nilai dilakukan dengan 

notasi write: 

write (nama name ,, .... narr.i J 
writ e <Jconat<mea) 
wrif lekapretl) 

write (noma, kcnat.intj, ekaptotl) 

nama,, nanuh ,.... nama „ dapat herupa nama pcubali atau nama konstanta. 
Menampilkan nilai ke piranti keluaran diistilahkan dengan mencetak nilai 
tersebut. 

Contoh: 

write t*A' > I menulla karaktot ‘A' ) 

write (A) / menuli# nilai yang dlalmpan paubah A) 

write(A . 2) ( nanulla ekapraal, yaitu nilai A di rembeb 2/ 

write(A, ‘dlkel1 2 • *. A*J) f menulla nilai A. atring ‘dikali 2 - *. 

dan nilai darl okapreal A • 2) 


Misalkan nnmn mho. nrp, nilai dan J dideklarasikan tipenya di dnlam 
bngian DKKLARASI. Algoritma untuk mencetak nilai yang disimpan oleh 
namn-namn tersebut ndalab seperti di bawah ini: 

DKKLARASI 

nrp i integer 

noma mho i atring 
nilai i reel 
type Jom i record 

« hh»Integer. {0..23I 
irmt integer. (Q..i9) 
oo integer (0..S9) 

» 

J i Jam 

AlfOORITMAi 

nama m)iu «- ‘Achmad Balquul' 

nrp «- 1J290056 

nilni «- 90.fl 

J.hh f- 6 

J *mm *- 12 

J.OO ♦- 45 

write t ’ Juruoon Teknlk Infomuitika ITU*) 
write(nama mhn, nip) 
write ('Nilai - \ nilai) 

write CPihltung pada pukul:*, J.hh,• : * .J.nm. * : *. J.ds) 
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Keluaran yang ditdmpilkan ke piranti keluaran adalah seperti ini: 

Juruoan Teknlk Informatika 1TB 
Ahmad Balqunl 10290056 

Nilal a 90.8 

Dlhitung pada pukul: 6:12:45 

Perhatikanlah bahwa write (A) tidak sama dengan write <• a*). Yang 
pertama menuliskan nilai A, sedangkan yang kedua menuliskan karakter ' A'. 


4.6 Tabel Translasi Notasi Algoritmik 
Pengisian Nilai, Pembacaan, dan 
Penulisan ke dalam Notasi Bahasa 
Pascal dan C 


Pernyataan 

1. Penugaaan 

AlRoritmlk 

♦- 

Bahtua Pascal 
| • 

Bahasa C 

m 

2. Pembacaan 

read 

road 

roadie 

aoanf 

3. Pcnuliaan 

write 

write 

writele 

printf 


Kcterangin: 

read : raembaca masukan dari papan kund, kursor tetap di bans yang 
sama. 

read in : mcmbaca masukan dari papan kund, kursor kemudian pindah 

ke baris berikutnya. 

write : menulis keluaran ke layar, kursor tetap di baris yang sama. 

writaln : menulis keluaran ke layar, kursor kemudian pindah ke baris 
berikutnya. 

scanf : membaca dengan menggunakan penentu format. 

print £ : mencetak nilai dengan penentu format. 


** \ 
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Tabel penentu format dalam bahasa C. 


Tlpe data 

Penentu format 

int 

%d 

unnignod int 

%u 

long int 

%ld 

long unaigond int 

%lu 

float 

%e 

double 

%if 

char 

%c 

char(n) (atrlng) 

%a 


Di dalam bahasa C, pengisian konstanta string secara langsung ke dalam 
peubah tidak dapat dilakukan. Sebagai contoh, jika dideklarasikan s sebagai 
peubah string: 

char n (15); 

maka, pemyataan 
a - -ini string*; 

adalah salah. Cara mengisi konstanta string kc dalam peubah adalah dengan 
perantara fungsi strcpy ( string copy ) sebagai berikut: 
strcpy(o, *ini string*); 

Sebaliknya, bahasa Pascal membolehkan pengisian konstanta string secara 
langsung ke dalam peubah. Sebagai contoh, jika dideklarasikan s sebagai 
peubah string : 
var a i string( 15 ); 

maka, pemyataan 
a i« *ini string”; 

adalah benar. 

Contoh-contoh translasi: 

ALGOKUTMIK: 

DBKLARASI 

type Titik i ra cord <x» real , y:real* 

P . Titik 
a, b i integer 
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Mnma Araip, h « atring 
nilai i real 
C « c har 

ALGORXTMA: 

nilai*-1200.0 

readtP.x, ?.y) 
rend(Kar^Arsip) 
h «- KamaAroip 
read(a. bj 
rend(C) 

write (* Hama araip: • ,»Ja:naArBip> 

write (• Koordlnat titik adaiah: ‘.P.x, P^y) 

w rite (b. nilai) 

writerKarakter yang dibaca adaiah C) 


PASCAL: 

I•DKKIAHASl •) 

typo 

Titik - record 

xi real; 
yi roalj 
end/ 

var 

P : Titik; 

n, b i lntngor; 

NntnaArolp. h i otring[ 12 ]; 
nilai i real; 

C : char. 

(• ALGORITXA •) 

begin 

nilaii-1200.0; 

rondlnJP.x, P./>; 
rsndln IMam.iArnip)» 
h j * HaaaAraip; 
rondln(a, b) j 
rnadln(C)I 

writeln THana araip: '.MnnaAroip); 

writeln'‘Koordlnat titik adaiah ',P.x, •.*. P.y); 

writeln(b, nllni); 

writalnCKarakter yang dibaca adnlah Cl; 
end. 


C: 

/• DBKUMASZ*/ 

typodef atruct{ 

float x; 
float y/ 

)Titik; 


Titik P; 
int a, b; 
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char NamaArcip [12]. h[12]< 
float nilai, 
char C; 


/• ALGORITHA •/ 
nainO 
{ 

nilal - 1200.0, 

acanf("Id Id". iP.x. *P.y); 
acanf (-%■-, NairnAraipl ; 
otrcpylh, NamaArolp), 
acanf("Id Id", La, Lb); 
ocanf(■lc", LC); 

acanf ("Nama aroipj to \n". NanaAraip), 

prlntf("Koordinat titlk adalah Id lc Id \n“,P.x, P.y), 

printf("%d If \n", b. nxlall, 

prlntf<"Karoktcr yang dibaca adalah lc \n". Ch 


Kctcrungan: 

1. Perintah pembacaan scanf unliik nama penbah yang hcrtipe string tidak 
pcrlu log! dibcri awalan karcna string di dnlam bahasa Cscbenarnva 
adalah larik (array) (baca Iniku acuan tentnng larik dalam bahasa C). 
Nama pcubah yang tidak diikuti dcngan indcks mcnnnjukkan alamat 
dari elemen pertains larik tcreebut. 

2. scanf tidak dapat membaca siring yang mengandung spasi, scbab scant 
mengahaikan karnktcr-karakter setclah spasi. Untuk itu, untuk 
membaca siring yang mengandung spasi. gunakan perintah gets (libat 
pejelasan di bawah). 

3. Simbol \n menyatakun bahwa setelah jwncetakan, kursor pindah ke 
baris di bawabnya. Jadi, efeknya sama dcngan writoln di Pascal. 


Terdapat beberapa perintah lain di dalam bahasa C untuk membaca 
masukan dari papan kctik, dan perintah untuk mencetak siring, yaitu: 

(a) get chef) : membaca data karakter diikuti penekanan tombol Enter; 
karakter yang dibaca ditampilkan (echo) ke layar; 
include : b include <conio.h» 
contoh : x • getcheO; 


(b) getchQ 

include 

contoh 


: membaca data karakter tanpa penekanan tombol Enter, 
karakter vang dibaca tidak ditampilkan ke layar) 

: Binclude <conio.h> 

: x - getchU; 


(c) getsO 
include 
contoh 


: membaca string dari papan kctik 

: b include <stdio.h> 

: gets(NamaArsip) 
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(d) puttO 
include 
contoh 


mencetak string kc layar 
•include «atdio.h> 
puts(NamaPegawai) 


Soal Latihan Bab 4 


1. Definisikan sebuah dpe terstmktur untuk menyatakan data nasabah di 
sebuah bank. Data nasabah terdiri atas field: noroor account , nama 
nasabah, alamat nasabah, kota nasabah, nomor telepon nasabah. Untuk 
setiap/Fe/d, definisikan tipe data yang cocok. 

2. Definisikan sebuah tipe terstruktur untuk menyatakan data 
penerbangan di sebuah bandara. Data penerbangan terdiri atas: nomor 
penerbangan (misal GA101), bandara (kota) asal, bandara tvyuan, 
tanggal keberangkatan, jam keberangkatan (departure rime), jam datang 
(arrival time). Untuk setieg field, definisikan tipe data yang cocok. 

3. Tuliskan rumus berikut dalam notasi algoritmik: 

(a) V = 


(b) x = 


-b + 2 c 7 + 4 ab 
2 c 


(c) m= ^r (1 “4 ) 

3 ac cd 


4. Apa perbedaan n ♦- n ♦ 2 dari sudut pandang algoritma dan n = n + 2 
dari sudut pandang matematika? 

5. Sebuah mobil melaju dengan kecepatan tetap u km/jam. Jika mobil 
tersebut berjalan selama f jam, tulislah algoritma untuk menghitung 
jarak yang sudah ditempuh mobil (dalam km). Algoritma tersebut 
membaca masukan berupa v dan t, menghitungjaeale dengan rumus s ■ 
vt, lalu mencetak jarak tersebut. 

6. Translasikan algoritma pada soal nomor 5 ke dalam program dalam 
bahasa Pascal dan C, lalu tes program dengan bermacam-macam nilai v 
dan t. 
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Runtunan 



Mcltimikah anttk loiuigu suiu per sum wuro sehicusJul 


Runtunan adulah struktur algorithm paling dasnr yang berisi rangknian 
instruksi yang diproses secara sekuensiul, s.itu per satu, mulni clari instruksi 
pertama sampai instruksi terakhir. Bah 5 ini racmbnhas runtunan clan 
contoh-eontoh algorithm yang hanya beriBi runtunan. 


5.1 Pendahuluan 

Algoritma merupakan runtunan (sequence) satu atau lebih instruksi, yang 
berarti bahxva [GOL88J: 

1. Tiap instruksi dikeijakan satu per satu; 

2. Tiap instruksi dilaksanakan tepat sekali; tidak ada instruksi yang diulang; 

3. Urutan instruksi yang dilaksanakan pemroses saina dengan urutan 
instruksi sebagaimana yang tertulis di dalatn (eks algoritmanya; 

4. Akhir dari instniksi terakhir merupakan akhir algoritma. 
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Setiap instmksi di dalam runtunan ditulis dalam satu bans, mini bcberapa 
instruksi dalam baris yang sama tetnpi anlara setiap instruksii dipisahkan 
dengan tanda tilik komn (;). Contoh-contoh masaloh di l>a\vab ini 
mcmperlihatkan algoritina yang hanya berisi runtunan. 


5.2 Contoh-contoh Runtunan 

Contoh 5.1. Bagaimana mcncctak pesan “Hello, world "ke layar? (Catatan: 
contoh pertama ini sudah pemalt dibertkan sebagai ilustrasi di dalam Bab 3). 

Penyelesaian 

Algoritina untuk mencetak ‘Hello, world 

Hello_World 

( Program u/jcu* mencoCnk 'Hello, world' / 

DEKLARASI 

( Cld«*fc ede ) 

ALOOSITMA: 

wrlteCHcllo, world') 

Algorllme 5.1 Mencolak ■Hollo. wotW 


Runtunan di dalam Algoritma 5.1 lianva berisi satu pemyataan saja, yaitu 
write('hello, world'». Kita dapat membuat beragnm vend prognun 
llello_VVorld. tidak hanya satu baris instruksi seperti algoritina di alas. 
Bcberapa versi algoritina untuk mcncctak “Hello, workT ditnliskan di bawnli ini: 

Versi 2: 

String “Hello, world " disimpan di dalam sebuah peubeh yang bertipe 
string, bam kemudian dicelak. 

PROGRAM Rollo__Horld2 

r Program untuk mencetak 'Hello, world- ) 

DEKIARASI 

pfliirtn : etrln g 

ALGORITMA: 

Pesan ♦- 'Hello, world* 
write(p*can 1 

Versi 3: 

String “Hello, world * disimpan sebagai konstanta.. bam kemudian dicetnk. 

PROGRAM Uello_World3 

( Program untuk mencetak 'Hello, world" f 
DEKLARASX 

conat pesan • 'Hollo, world' 
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ALGORITKA: 

write(penan ) 

Contoli 5.2. Tulislah algoritma vang mcinbaca nama seseorang dari papan 
ketik, lalu mcnampilkan ucapan “Halo" diikuti dengan nama orang tersebut. 

Penyclcsaian 

PROGRAM Haio_Nama 

f Mencetak vtrlng 'Halo ' dan dJJkutJ dengan nama orang. Kama orang 
dibaca dxri papan ketik ) 

DKKLARASZ 

nama 1 utring 

ALGORITMAi 

read(name) 

nama) 

Algoritma 5.2 MoncoLik ucapan *Halo* dan nama 


Contoh 5 - 3 - Tuliskan algoritma yang mcmbaca dun buah nilai-nilni untuk 
peubah A dan II. lalu mempertukarkan nilai kcdua peubah tersebut. 
MisaInya, sebelum pertukaran nilai /\ ■ 8. nilai II - 5, maka setclah 
pertukarnn, milai A - 5 dan nilai II • 8. (Catalan: contoh kctiga ini sudah 
pernah dibcrikan sebagai flustrasi di dalam Bab 2). 

Penyclcsaian 

Algoritma |x*rtukaran dua bunli nilai sama seperti algoritma mempertukarkan 
isi dari diui buah ember. Kita membutubkan sebuah pcubah bantu sebagai 
tempat tempat penompungan semen tarn. 

PROGRAM Pertukaran 

J Mempertukarkan nilai A dan D. Nilai A dan B dibaca t nrlebih dahulu. 

DKKLARASl 

A, B, Cl integer 

ALGORITMA: 

{ anumaikan A dan B audah teidcf imai dengan nilai. mi rainy, i 
melalul iponglaian languung atau dibaca nilainya dari papan ketik ) 

( percukorkan nilai A dan D ) 

C 4 - A (nimpan nilai A di tempat pvnampimgan oementara, C} 

A «- D {nekarang A dapac dlioi dengan nilai B) 

B *- C (loi B dengan nilai A eemula yang Ladi dlaimpan di C) 

{Tuli8 nilai A dan B ootelah pertukaran. jika diperlukan ) 

Algoritma 5.3 Mempertukarkan nRai dan dua buah pcubah 


Bab 5 - Runtunan 


http://www.pakteguh.com 





Algoritma pertukaran ke dalam program Pascal dan C adalah seperti di 
bawah ini: 

PASCAL: 

program Pertukaran; 

{ Hetvpertukarkar. niJai A dan fl. Nilax A dan 8 dibac a terJebih dahulu. ) 

(• DEKLARAS1 •) 
var 

A, B, C : intogorj 

(• ALGORITMA: •) 

bogln 

l baca nilai A dan B. miaalnya dengan iantrukai: 
writer A - ?'h roadlnlAlf 
writers - ?') i readlnfBl / 

I 

( pertukarkan nil.il A dan B ) 

C i- A; (almpan mini A di tempac penampungan oementara. temp) 

A i- B; {aekarang A dapa C dliai dengan nllal B} 
n i* Ci fiat B dengan niiai A aenula yang cadi dlalmpan di tempi 

l TuJia nllal A dan B aatelah pertukaran. Jlka dlperlukan, 
miaalnya:) 
writeinr A - Ah 

writelnf'B • Bit 

I 

ond. 


C: 

/• PROGRAM Pertukaran •/ 

/• Mcmpertukarkan niiai A dan U. Nllal A dan B dibaca torlebih dnhulu. 
•/ 

Mincludo <atdio.h> 
malnt) 

I 

/• DEKLARASI •/ 

lnt A. B, C; 

/♦ ALOORlTMAt •/ 

/• baca nllal A dan B. miaalnya dengan iontruksi: 
printfCA - ?“) i ocanf ("Id". tA); 
printf (-B - 7-); ocanf (Md-. tBI ; 

•/ 

/• proses pertukaran •/ 

C • A; /•almpan niiai A di tempat pen.impungan ser.entara, C •/ 

A - B; /'aekarang A dapat dliai dengan niiai B •/ 

B - C; / 0 is x B dengan niiai A semi la yang tadi di sin-pan di C •/ 

/• Tulis niiai A dan B actelah pertukaran. jika dlperlukan: •/ 
print fl'A • Id \n“. A): 
printfi-B - Id \n“. Bit 


M“-[ 


Algoritma dan Pemrograman 


http://www.pakteguh.com 





Contoh 5.4. Misalkan A dan B adalah dua buah pcubnh yang bcrtipc 
integer. Apa yang dilakuknn oleh polongan algoritma di bawah ini? 

ALGORITMA: 

• • • 

A <- A ♦ B 
B «- A - B 
A *- A - B 

Algorilma 5.4 Apa yang dilakokan algonlma im?_ 


Penyclesaian 

Coba iakukan tes untuk A * 10 dan B * 6. Anda akan mendapatkan basil 
setclah pelaksanaan runtunan tersebut bahwn A * 6 dan B * 10. Jndi, 
polongan algoritma di alas adalah earn lain unluk mempertukarkan nilai 
dari dua buah peubah yang bcrtipc hilangan bulat tanpa menggunakan 
peubah bantu (bandingkan dengan Algorilma 5.3 yang menggunakan 
peubah bantu, temp). Namun. Algorilma 5.3 dapat digunakan untuk 
mempertukarkan nilai dari dua |>cubuh yang bcrtipc sembarang (asalkan 
keduanya bcrtipc sama), sedangknn Algoritma 5.4 hanya dapat digunakan 
untuk mempertukarkan nilai dari dua peubah integer saja. 

Algoritma portukaran nilai dari dua buah peubah integer tanpa peubah 
bantu selengkapnya sebagai berikut: 

PROGRAM Tukar 

( Mempertukarkan nilai A dan B yang bextxpe bllangan bulat tanpa peubah 
bantu. Nilai A dan B dibaca terlablh dahulu dari plianti maaukan. f 

DRKLARAS I 

A 1 intege r ( nilai pextama ) 

b t 'integer I nilai kedua f 

temp t Inte ger { peubah bantu f 

ALGORITMA, 

rood(A,B) i baca nilai A dan B terlebih dahulu ) 

write (A, B) ( cetak nilai A dan B aebelum pertukaran ) 

( proaea prrtukaran ) 

A ♦- A • B 
D *- A - B 
A A - B 

write (A. B) ( cetak nilai A dan B aetelah fttukBran ) 

Algorilma 5.5 Mompoeluknrkan mint dan dua buah pouboh mlogor Innpn poubah bnnlu 
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Contoh 5.5. Tulis algoritma masing-masing dalam notasi algoritmik, 
Pascal, dan C, yang mctnbaca panjang dan lebar dari sebuah empat pcrscgi 
panjang, lain mcnghitung luas scgicmpat yang berbentuk empat pcrscgi 
panjang (Gambar 5.1). I.uas segiempat adalah panjang dikali lebar. Luas 
segiempat dicetak ke piranti kduaran. Tuliskan! 

panjang 


lebar 


Gambar 5.1 Luas segiempat yang berbentuk ompatpersegi panjang adalah panjang - lutin' 


Penyelesaian 

ALGORITMIK: 

PROGRAM l,uao_Empat I'eracji _P*njan<l 

I Menbeca panjang dnn Job.ii eoglerpat yang berbentuk iwp.it pernegi panjang, 
menghltung lummy*, lalu mrnceta* Juno t crucbut ko piranti Kelu.u an. } 

DEKLARASI 

pan Jong t real / panjang aegiempat, dalam natua n cw ) 

lobar s real { lebar ocglempat. dalam aacuan cm } 

luaa : r eal ( luaa neglemp.it, dalam ootuan cm* ) 

ALGORITMA! 

rend(panjang. lob«r) 
luno «- panjarq * lebar 
wrltn(luaa) 

Algoritma 5.6 Monahiturrj luas ompat porsogi panjang 


PASCAL: 

program l.uo«_Kinpat J»oroegi ,Panj*ngj 

( Membaca panjang dnn lebar eeglertpat yang berbentuk empat pezeegi panjang, 
menghltung luaanya, Jalu menceta* Juno ten rebut ko piranti keluaran. ) 

<• DKKIJIRAXI •) 

v*r 

panjang : roalj 
lobar 1 real; 
luaa 1 real; 

<• ALG0RX7XA; •) 

begin 

write(Berapa panjang seglcnpat? •); readln(panjang); 
write('Uorapa lebar aegtoxpat? •); reedln (lebar); 
luao panjang • lebar; 


f panjang aegiempat. dalam aatuan cm ) 
l lebar ocglempat. dalan. aatuan cm ) 

( luaa segiempat. dalam aatuan cm* ) 
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vritoln('Luaa aegierapat • luaai; 

end. 


C: 

/• PROGRAM LUAS S EG I EM PAT 

/•N'tmb.tca pan)any dan lebar ocgietrpat yang tx-rbeniuk erpat pereogl pan)any, 
menghi tung hut any*, lalu nencetak luaa tearebut ke plrantl kolunran. •/ 

^include <tiLdio.h> 

caainO 

1 

/• DKKLARASI •/ 
float punJany; 
float lcbar; 
float luanj 

/• ALGOR! TMA: •/ 

prlntf (-Borapa panjang aegiempat? -Jj •canfl'lf, tpanjang) / 
prlntf CBorapa lebar oeglempat? scant ("W*. fcicbarl j 
luaa • panjang • lebar; 
prlntf(“Luaa fleglempat • If \n*. iuaolj 


/• panjang acgieapat. dalaa aa cuan cm •/ 
/• lobar aegiempat, dalam eatuan cm •/ 

/• luaa aogioatpai, dalam eatuan car' •/ 


Contoli 5.6. Tulislah algorithm untuk mcngbituug komisi yang ditcrima 
salesman berdacarkan nilai pcnjualan yang dicapainya. Salesman ftu 
mendnpat komisi 5% dan basil pcnjualannya. Algoritina mcnerima data 
noma salesman dan nilai pcnjualan yang dicapainya. inenghitung komisi, 
lalu mencetak nama salesman, dan besar komisi yang dlpcrolclmya. 

Pcnyclcsnian 

P HOORAH Konlul_SalcaRan 

/ Mmghttuny beam kemial yang ditarlma aroiang ualooman. Hoi iji komlai 
adalah SI darl nilai penjualan yang dicapainya. Data maoukan adalah 
nama aateaman dan nilai pcnjualannya. Koluaran algoritma adalah 
b-uarkomloi yang dltorlma aalooman tnaebut.) 

D8KLARASI 

U.imaSuleuman « otrlng 

NllalPenjualan i real { nilai penjualan yang dlcapal, dalan i Rp ) 
komlai 1 real { baser komlai, dalan Rp ) 

ALGOHITMA: 

l ead IHamaSa1eoman. Hi 1a 1 Pen Jua1anI 
komlai 4- 0.05 • MllalPenjualan 
write(komlol) 

Al gorHma O .7 ManphOuna hoinlHialwiiian _ 
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Contoh 5.7. Tulislah algoritma yang membaca nama kaiyawan dan gaji 
pokok bulanannya dan menghitung gaji bersih karyawan tersebut Gaji bersih 
yang diterima pegawai adalah: 

Gaji bersih - gaji pokok ♦ tunjangan - pajak 

Tunjangan karyawan dihitung 20% dari gaji pokok, sedangkan pajak adalah 
15% dari gaji pokok ditambah tunjangan. Nama kaiyawan dan gaji bersihnya 
dicetak ke piranti keluaran. 

Penyelesaian 

PROGRAM OsjiBeroih_Karyavan 

7 Menghitung gaji beraih karyawan. Data maaukan adalah nama karyawan dan 
gaji pokok bulanannya. Oajl baraih • gaji pokok ♦ tunjangan - pajak. 

Tunjangan adalah 20% dari gaji pokok , oedangkan pajak adalah 15% dari 
gaji pokok. Keluaran adalah noau karyawan dan gaji beraihnya 


DBKLARASI 

const PerssnTunjangan ■ 0.2 { poraontaae tunjangan gaji } 
const PsrssnPsjsk -0.19 / peraentame potongan pajak ) 

NamaKaryawan i string 

GajiPokok,tunjangan.pajak.OajiBaroih 1 goal 
ALGORITMA 1 

read (NamaKaryawan. GajiPokok) 

tunjangan «- ParasnTunjangan • GajiPokok 

pajak +- ParsanPajak 4 (GajiPokok 4 tunjangan) 

GajlBersih 4 - GajiPokok 4 tunjangan - pajak 
writs (HamaKaryawan, GajiBersih) 

Algoritma 5.8 Monghitung gn|l bfBtfi l opfonq k nry .1 ,va n 


Contoh 5.8. Tulislah algoritma yang membaca dua buah titik Pi ■ (x„ y,) 
dan P2 - (jr a , y 3 ), lalu menghitung titik tengah dari Pi dan P 2 . 


Titik tengah dari dua Pi dan P2 adalah P3 ■ (x 3 , yj yang dihitung dengan rum us: 


r, = 



dan y> 


2 


Sebagai contoh, jika Pi - (4,8) dan P2 = (2,6), maka P3(3,7). 
Penyelesalan 

PROGRAM Titik_Tengah 

7 Menghitung titik-tengah dari dua buah titik PI - (xl.yl) dan P2 - 
(x2,y2). Titik tengah dituliekan ke piranti keluaran ) 

DBKLARASI 

type Titik 1 record <xi real . ' 

yrraal 


m— r 
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I-' l.l' 


PI, P2, P3 t Titik 


ALOORITMAi 

l(Pl.x.Pl.y) 
(P2.x,P2.y) 

P3.X 4- (Pl.x ♦ P2.x)/2 
Pl.y 4- (Pi .y ♦ P2.y)/2 
write (P3.x,P3.y) 


{ baca titik PI 
{ baca titik P2 




5.9 Menghltung lit* lecgah dart due buah Utlk. 



Contoh 5.9. Scorang pelari maraton menempuh waktu lari yang diukur 
dalam satuan jam, menit, dan detik. Tulislah algoritroa yang membaca waktu 
tempuh seorang pelari maraton, lalu mengonversi waktu tempuh tersebut ke 
dalam detik. Ingatlah bahwa 
1 menit - 60 detik 
1 jam - 3600 detik 

Misalnya, jika waktu tempuh seorang pelari maraton adalah 1 jam, 5 menit, 40 
detik. Dalam detik, waktu tempuh seluruhnya adalah (1 x 3600) + (5 x 60) + ♦ 40 
*3940 detik. 

Penyelesaian 

PROGRAM Konverei_ke_d«clk 

{ Membaca waktu tempuh pelari maraton dalam jam, menit, detik, lalu 
mengkonverai waktu tempuh teraebut ke dalam detik. Haell konverai 
ditanpilkan ke piranti keluaran ) 

DBKLARAS1 

type Jam - record 
< 

hh « Integer 
mm 1 Integer 
am 1 Integer 

. > 

J » Jem 

TotalDetlk 1 Integer 
ALGORITMA: 

read(jam, menit, detik) 

TotalDetlk <- (J.hh*36O0) ♦ (J.mra*60) ♦ J.sa 
vrlte (TotalDetlk) 


menit) 

detik) 


Hati-hati jika Anda mentranslasi algoritma Konvers i_ke_detik ke dalam 
bahasa Pascal atau C, sebab Anda hams memperhatikan tipe bilangan bulat 
yang digun akan. Karena ran ah nilai tipe integer terbatas, maka ada 
kemungkinan hasil konversi jam-menit-detik ke total detik bemilai negatif, 
sebab nilai (J.hh* 36 oo) + (J.mm - 6o) + J.ss berada di luar rentang tipe integer. 
Upe longint (long integer ) di dalam bahasa Pascal dan bahasa C mempunyai 
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ranah yang lebih besar sehingga da pat dipakai untuk masalah ini. Jadi, program 
Konversi_ke_detik dalam bahasa Pascal dan Csebagai berikut: 


PASCAL: 

program Konveroi_ke_detik; 

I Hembaca waktu tempuh pelar: eviraton dalam jam. tremt, detlk, lal u 
mengkonvcroi waktu tenrpuh teraebut ke dalam detik. Haail konverai 
ditampilkan ke pi rand keluaran I 

(• DBKLAFAS 1 •) 
typo Jam - record 

hh: longlnt; i)amf 

mu:longlnt; {fsenit j 

as i longlnt; fdetlk} 

end; 

var 

J i Jam; 

TotalDotik t longlnt; 

(• ALOORITMAi •) 

bogln 

write('Jam i'J; raadln (J.hh); 
write I 'Menlt ; •) ; readln(J.ra); 
write|'Uot1K;*)| reedln(J.aa); 

Tot a 1 Dot lk i • <J.hh*U 00 ) « <J.wn»60J 4 j.no; 
wrlteln('Total dntlk - \ TotalDotik); 
and. 


Cl 

/• PROGRAM Konvecmlkedetik •/ 

/• Nambaca waktu Compuh pelarl maraton dalam Jam, menlt, dotlk, laiu 
rnongkonvoral waktu tompuh toroebut ke dalam detlk. Ha nil konvntni 
ditampllkan ke pi rant 1 keluaran. •/ 

tflnolude «otdio.h* 

main(» 

I 

/• DEKLARAOI •/ 

typodef atruct (long lnt hh; /•Jam*/ 

long lnt tan; /•menlt*/ 

long lnt 00 ; /•detik*/ 

)Jam; 

Jam J; 

long lnt total_d«tlk; 

/• ALG0BI7NA: •/ 

prlntf("Jam 1 •); acanfc%1d-.fcj.hh); 
prlntf("Menlt:•>; acenfCUd-.4J.irni); 
prlntf(-Do tiki-) ; acanf(-%ld-.fcJ.na); 

TotalDotik - (J.hh*3600) . (J.«B»60) . J.as; 
prlntf(-Total detik • %ld". TotalDotik); 
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Contoh 5.10. Tulislah algoritma yang membaca lama sebuah percakapan 
telepon dalam satuan detik, lalu mengonversinya ke dalam jam, menil, dan 
detik. Sebagai contoh, misalkan lama percakapan adalah 4000 detik, maka 
4000 detik = 1 jam + 6 inenit + 40 detik, ini diperoleh dengan earn: 


4000 

div 

3600 

- 1 1 jam) 

4000 

mod 

3600 

- 400(nina detik} 

400 

div 

60 

■ 6(nenit) 

400 

mod 

60 

- 40(detik) 


Masalah pada contoh 5.10 ini mempakan kebalikan masalah pada Contoh 5.9. 
Pcnyclcsaian 

PROGRAM Konverci_detikJte_JnnMenltDetik 

/* Membaca Jama percakapan telepon da Jan detik, JaJu mnngkanvcrainya ke 
daJam jam-menit-detik. Hasil konverai ditaapiIkon ke pi rant i keluaran. •/ 

DBKLARASI 

typo Jam : record <hh:integer . (0..2J) 
tm: Integer , {0..S9) 

■e 1 Inte ger (0..59f 

> 

J : Jam 

TotalDetik 1 integer 

aiaa : integer ( peubah pembantu ) 

ALGORITMA: 

rood(TotalDctik) 

J.hh •- total_d«tik div 3600 { mendapnekan jam ) 

Sion «- TotalDetik mod 3600 

J.mm *- aiu dW 60 ( mendapatkan menit ) 

J .no elan mod 60 / mandapatkan detik I 

write (J.hh.J.irm' J.ee) 

Algoritma 3.10 Mongonvcrti dolik ko jammonit-doUk 


Uunyak masalah dalam kchidupun sehari-hari yang memilUd kemiripan 
dengan konversi jumlah detik ke jam-menit-detik. Misalnyn mengonversi 
punjang dalam satuan cm ke kilometer-metcr-sentimctcr dan mengonversi 
jumlah hari dalam tahun-bulan-hari (lihat soal Latihan Hub 5). 

Contoh 5.11. Tulislah algoritma yang membaca dua buah jam, yang 
pertama waktu ./1 (hh:mm:n) dan waktu kedua ,/2 (hhinwr.ss) dengan 
syarnt ,Ji > Jl, lalu menghitung sclisih jam (durasi) dari./1 sampai ./2. 

Sebagai contoh. 

J2 Jl JJ • J2 • Jl 

13:10:56 10:08:14 02:03:42 

12:18:40 10:12:50 02:05:50 

12:10:40 10:40:55 01:29:45 
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Penyelesaian 

Dengan mengingat bahwa sebuah waktu dalam format hh:mm:ss dapat 
dipandang sebagai rcntang waktu dimulai dan 0:0:0, inaka kita dapat 
menggunakan Algoritma 5.10 untuk menghitung selisih dua buah jam. 
Secara garis besar, algoritma menghitung selisih dua buah jam sebagai berikut: 

1 . Konversi jam pertama kc dalam jumlah detik 

2. Konversi jam kedua ke dalam jumlah detik 

3. Hitung selisih hasil langkah 2 dengan hasil langkah 1 

4. Konversi hasil langkah 3 ke jam-menit-detik. 

Algoritma selcngkapnya adalah: 

PROGRAM SelioihNaktu 

( Menghitung duraoi (ocliaih waktul dan dua buah vaJccu. Jl <hh:tm:am) 
dan J2 {hh.m.aal. Selisih waktu J2 dan Jl adalah JJ - J2 - JI . ) 

DEKLARASI 

typo Jam 1 record < hhiinteger , {0..23} 

—1 Integer . (0..S9) 

■a 1 integer (0..S9) 

> 

Jl. J2 , J3 t Jam 

TotalDotikl, TotolDetlka, SeliolhDetik : Integ er 

aina j integer ( peubah bantu untuk menampung oiaa pembagian ) 

ALOORITMA; 

road(Jl.hh, Jl.nw. Jl.ao) ( jam peitama ) 

read(J2.hh, J2.mm, JJ.oal ( Jam kedua ) 

I konvtrrni maalng-maning Jam ke total det/k ) 

TotalDotikl «- (J1.hh*3600) . (Jl.nw«60> . Jl.ao 
TotalDotik2 •- (J2 .hh*3fi00) . (J2.on*60) ♦ J2.ao 

I hitung aolinih total detik J 
SollDihDotlk •- TotalDetik2 - TotalDetikl 

(konveral aeliaih detik kr dalam jam-menit-detik I 
J3.hh «- SeliolhDetik dly 3(00 ( nendapatkan jam } 

olna «- SelioihDetik mod 3600 

JJ.mm ♦- ulo.i dlv 60 f mendapackan menlt ) 

J33.00 niaa mod 60 ( nendapatkan detik ) 

write(J3 .hh. J3.nm. J3.«•) 

Algoritma 5.11 Morghitung oelisih (durasi) dan dua buah waktu _ 


Contoh 5.12. MLsalkan seorang penclepon di waning telckomunikasi memulni 
percakapan pada pukul./1 dan selesai pada pukul J2. Andaikan 1 pulsa * 5 detik 
dan biayn per pulaa ftp 150. tulislah algoritma untuk menghitung lama percakapan 
(dalam jam-menit-detik) dan biaya yang hams dibavar penelpon. Untuk 
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inenyederhanakan masalah, andaikanlah warlcl itu tulup tcpat pada pukiil 0:0:0 
malam. 

Pcnyelesaian 

PROGRAM Wartol 

{ Nanghltung biaya percakapan di wrung telekomunikaol. Manukan adal.th 
waktu aval dan waktu oelenal percakapan Ihhiomuoo). Koluaran adalah 
Jana dan biaya percakapan. Satu puloa - S detlk dan ongkott per puloa 
adalah PplSO. I 

DEKLARASI 

conot BlayaPerPuloa - ISO { biaya per puloa ) 

conot LamaPuloa -5 ( 1 puloa - 5 dctik ) 

type Jam t record <hh:integer. (0..3Jf 
™ B: int«ger. (0..59) 
oo : integ er {0..59} 

> 


Jl 

i Jam ( 

Jam aval percakapan } 

J2 

i Jam / 

Jam oeleeat percakapan ) 

J3 

, Jam 

Jam.i percakapan ) 

TotalDetlkl, TotalDetlk2 

i integer 


■ lea 1 Integer ( peubah bantu uneuk mcnatvpurvj oion prnb.uji.in f 

duraol 1 integer 

puln a 1 real 

biaya 1 real 

ALGORITMA: 

read(J1.hh, Jl.mm, Jl.oa) { Jam aval percakapan ) 

read (J2. hh. J2.mm, J2.oa) { Jam ooleoai percakapan } 

( konveraL maoing-maoing jam ke total detlk J 
Total Dot lkl «- I Jl. hh* 3600) t (Jl.mm«60) . Jl.oo 
TotalDetik2 ♦- <J2.hh*3600) . <J2.ran*60) . J2.BB 

( hi rung Jama percakapan ) 
durasl«-TotalDotlk2 - TotalDetlkl 

{ hltung Jumlah puloa dan biaya untuk oeluruh puloa / 
puloa •— duraol/LamaPulBA 
biaya •- puloa • BlayaPerPuloa 

(konveroi duraoi ke dalan Jan-menit-detik ) 

J3.hh «- duraol dly 3600 ( rrendapatkan jam J 

oisa 4- duraoi mod 3600 

J3.mm ♦— sisa dlv 60 ( mendapatkan aenit } 

J3.BB *- oioa mod 60 { aendapatkan detlk } 

Write(J3.hh. J3.nan, J3 .ob, biaya) 

Algoritma 5.12 Wenghitung lama dan biaya percakapan di Wartol 
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5.3 Membaca/Menulis dari/ke Arsip 

Contoh-contoh program Pascal dan C yang diberikan di dalam buku ini 
mengasumsikan bahwa data masukan dibaca dan papan ketik ( keyboard ) 
dan keluarannya dicetak ke layar (monitor). Adakalanya data masukan 
dibaca dari arsip (file) atau keluaran (output) program ditidis ke arsip. 

Pembacaan data dari arsip bergantung pada format (cara menyimpan) data 
di dalam arsip. Di dalam buku ini kita mengasumsikan bahwa data masukan 
dibaca dari arsip dengan format teks (feat). Antara satu data dengan data 
lainnya dipisahkan oleh separator spasi. Tipe peubah yang digunakan untuk 
menampung basil pembacaan hams sama dengan tipe data yang dibaca; jika 
datanya bertipe integer maka peubah pembacaan juga hams bertipe integer; 
jika data riil maka peubahnya juga hams bertipe nil; begitu setemsnya. 

Data masukan disimpan ke dalam arsip dengan menggunakan program 
pengolah kata yang menghasilkan karakter-karakter ASCII, seperti Notepad 
pada Windows, joe dan ui pada Linux, atau editor teks yang terintcgrasi di 
dalam IDE (Integrated Development Environment) kompilator bahasa 
pemrograman (seperti IDE pada Free Pascal, lihat Bab 3). 

Sebelum dibaca/ditulis, arsip hams dibuka (open) terlebih dahulu. Begitu 
pula, setelah arsip dibaca/ditulis, arsip tersebut hams ditutup (close). 

(a) Mcmbuka arsip (bahasa Pascal) untuk dibaca 

Misalkan data masukan sudah disimpan di dalam arsip yang bemama 
data.txt. Cara membuka arsip tersebut di dalam bahasa Pascal adalah: 
vur 

Fin 1 taxt; { narns peubah arsip ) 
begin 

uiiuign (Pin, 'data.txt*); 
reaot (Pin); 

... ( ioacniksi selanjutnya ) 

(b) Membuka arsip (bahasa C) untuk dibaca 

Misalkan data masukan sudah disimpan di dalam arsip yang bemama 
data. txt • Cara membuka arsip tersebut di dalam bahasa C adalah: 
main!) 

( 

PILE •Pin; /• name peubah arsip •/ 

Pin • fopan ("data.txt - , ■*•)! /• r adalah argumen moda. yang 

bararti tils dibuka untuk 
dibaca (road) •/ 

... ( Lnotrukal aalaojutnya ) 
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Catatan: 

lleberapa kompilator bahasa C membedakan antara arsip teks dan 
arsip biner. Untuk arsip biner ditambahkan -b' pada argumen mode 
(menjadi "rb" atau 'r.b'/ sedanykun untuk arsip teks ditambahkan 
"t * pada argumen mode (menjadi -re 'atau m r+t~). 


(c) Mcmlnika arsip (hahasa Pascal ) untuk ditulis 

Misalkan keluaran akan disimpan di dalam arsip yang bernama 
haoil.txt. Cara membuka arsip tersebut untuk penulisan di dalam 
bahasa Pascal adalah: 
var 

Pout ; text; I nama peubah arsip } 
begin 

naalgn(Fout, 'haul1 .txt•); 

rewrite(Fout); 

... I inatrukal aelanjutnya I 


(d) Mcmlnika arsip (bahasa Q untuk ditulis 

Misalkan keluaran akan disimpan di dalam arsip yang bernama 
hnoil.txt. Cara membiika arsip tersebut untuk penulisan di dalam 
baliasu Cadalah: 

malnO 

( 

FILE «Pout; /• noma peubah oralp •/ 

Fout - (open("data.txt", "w“); /• w irenyatakan bahwa (He V 

dlbuka untuk dibaca (rr.nl/, t 
menyatakan Kile F adalah til e 
text •/ 

... /• Inntiukai aelanjutnya •/ 


(c) Mcnutup arsip (bahasa Pascal ) 

Misalkan arsip dnto.txt sudah selesai dibaca. Cara mcnutup arsip 
tersebut di dalam bahasa Pascal adalah: 

oloee (Pin)j 

(f) Mcmlnika arsip (bahasa C 7 ) 

Misalkan arsip d*t«.txt sudah selesai dibaca. Cara mcnutup arsip 
tersebut di dalam bahasa C adalah: 

Close(Pin)j 

(g) Pcrnyntnnn untuk mcmbacu data dnri arsip (bahasa Pascal) 

Misalkan data masukan sudah disimpan di dalam arsip yang bernama 
data. txt. Instruksi untuk membaca scbuah data dalam bahasa Pascal 
dan menyimpan hasil pcmhacaan di dalam peubah x adalah: 

readlPln. x); 
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(h) Pemyataan untuk membaca data dari arsip (bahasa C) 

Misalkan data masukan sudah disimpan di dalam arsip yang bemama 
data. txt. Bahasa Cmemiliki banyak instruksi untuk membaca data dari 
arsip. Salah satunya adalah sebagai berikut: instruksi untuk membaca 
sebuah data dalam bahasa C dan menyimpan hasil pembacaan di dalam 
peubahx adalah: 

fr*«d(x, aliMttx), 1, Fin) i 

Pemyataan f read di atas berarti membaca nilai untuk x dengan ukuran 
(sizeoj) sebesar ukuran tipe x sebanyak 1 elemen dari arsip Fin. 

(i) Pemyataan untuk menulis data ke arsip (bahasa Pascal) 
Misalkan data keluaran akan disimpan di dalam arsip yang bemama 
haail.txt. Instruksi untuk menuliskan sebuah data (x) dalam bahasa 
Pascal adalah: 

writ*(Pout, x)i 

(j) Pemyataan untuk membaca data dari arsip (bahasa C) 

Misalkan data keluaran akan disimpan di dalam arsip yang bemama 
h*»il. txt. Bahasa C memiliki banyak instruksi untuk menulis keluaran 
ke arsip. Salah satunya sebagai berikut: instruksi untuk menuliskan 
sebuah data (x) dalam bahasa C adalah: 

fwrit«(x, alaeof(x), 1, Pout)i 

Pemyataan /write di atas berarti memulis nilai x dengan ukuran ( sizeoj ) 
sebesar ukuran tipe x sebanyak 1 elemen dari file Fout. 

Contoh Pembacaan Data Masukan dari Arsip (l) 

Ttnjau kembali program Pascal dan C di dalam Contoh 5$. Program tersebut 
membaca panjang dan lebar empat persegi panjang, menghitung luasnya, dan 
mencetak luasnya. Misalkan data panjang dan lebar disimpan di dalam arsip 
data.txt. 

Misalkan arsip data.txt sudah berisi panjang dan lebar empat persegi 
panjang sebagai berikut (antara data dipisahkan oleh spasi): 
is 20 

Keluaran program, yaitu luas empat persegi panjang, ditulis ke arsip haoil. txt. 
Program Pascal dan C untuk spesifikasi masalah ini adalah seperti di bawah ini: 


PASCAL: 

progr«B Luaa_Irnput_Per«egi_Panj ang; 

{ Membaca panjang don lobar empat pereagi panjang dari araip, mehgbitung 
luaonya, l«iu mencetak luaa tersebut ke araip •hasil.txt m . ) 

(• DB KLARAS I *t - • / ; V. - . f i . - 

var 
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panjang : roal; / panjang aegiempat, dalam aatuan cia ) 

lebar : real; { lobar aegiempat, dalam aatuan or ) 

luan i roal; { luao aegiempat, dalam oatuan or 2 ) 

Fin. Pout: text; ( pointer ke araip maaukan dan keluaran } 

(• ALGORITMAi •) 

bog in 

f buka araip maaukan ) 
assign(Fin, 'data.txt'); 
reset (Fin); 

{ buka araip keluaran j 
assign (Fout, 'hasil.txf); 
rewrite (Fout); 

( baca panjang dan lebar dari araip Fin ) 
read (Fin, panjang, lebar); 

luao panjang*lebar; 

( tulia luae empat peraegi ke araip Fout } 
vritoln(Pout, 'Luao scglcmput . *, luas); 

( Cutup araip ) 
close (Fin); 
close (Fout); 

end. 


C: 

/' PROGRAM LUAS SEGI EM PA? 

/• Membaca panjang dan lebar empat peraegi panjang dari araip "data.txf, 
raenghitung luaonya. Xalu aencetak luao tttarebut ke araip “haail . txt*. */ 

■include <otdio.h> 

nainO 

( 

/• DBKLARASI •/ 

flost panjang; /• panjang aegiempat, dalam aatuan cm •/ 
float lebor; /• lebar oegieirpat, dalam aatuan cm •/ 

float lusn; /• luan aagiettpnt, dalam aatuan cm , */ 

FXLK *Fin, • Fout ; /• pointer ke aruip maaukan dan keluaran •/ 

/• AbQORITMA: •/ 

/• buka araip maaukan •/ 

Fin - fopen(-data.txt-. -r’); 

/• buka araip keluaran •/ 

Pout - Copon("haail.txt*. -v">; 

/• baca panjang dan lebar dari araip Fin •/ 
f scant (Fin, "%f %f". fcpanjang, fclebar); 

luao - panjang * lebar; 
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/• Culls luas empat peraegi ke araip Fout •/ 
fprlntf tFout, "Luas oegiempat « %£ \n“. luas); 

/• tucup arsip •/ 
fclosa (Fin); 
fclose (Fout); 


Contnh Pemhacaan Data Masukan dari Arsip (a) 

Modifikasi program Pascal dan C dari Contoh 1 di atas sehingga nama arsip 
data masukan dan nama arsip kcluaran tidak selalu harus data. txt maupun 
haoil.txt, tetapi mcmpakan masukan dari pcngguna program. Program 
Pascal dan Cuntuk spesifikasi masalah ini adalah seperti di bawah ini: 


PASCAL: 


program Lu«B_Kmpat_Por8egi_Panjang; 

I Membace panjang dan lebar errpat peraegi pan jang dari arsip -data.txt’. 
manghitunff luaonya, lalu mtak luas ternebut ke aratp ’hnoil. txt*. J 


(• DBKLAHASI •) 
var 

panjang i real; 
lebar : real; 
luao i reel, 
Fin, Fouti text; 


{ pan jang oegiempat, da Jam sac tun cm I 
I lebar eegiempat. dalam aatuan cm j 
( luaa oegiempat, dalam aatuan cm * / 

/ pointer ke araip masukan dan keluaran / 


N.vniAruipl, MamaAreip2 : etring|12); / jwm araip maoukan 

dan keluaran ) 


(• ALOORITHAl •) 

begin 

write (‘Mama araip maoukem *); readlniMemaAroipl)/ 
write(•Nama areip keluaran: •)/ roadln(WamaAroip 2 ); 


I buka araip mauukan ) 
aeelgn (Fin, ti. 1 m. 1 A 1 oipl) ; 
reset (Fin)/ 


I buka araip keluaran } 
ensign (Fout, NAnuArnlp2} ; 
rewrite(Fout); 

{ l>acn pan jang dan lebar dari araip Fin ) 
roedlFin, panjang, lebar); 

Iuud i- panJang • lobar; 

I tujis luao empat peraegi ke araip Fout ) 
wrlteln(Fout, 'Luaa oegiempat • •, loan); 

I tutup araip ) 
cloee(Fin); 
cloeelFout); 
end. 
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C: 


/• PROGRAM LUAS SBGIEMPAT 

/• Metabaca panjang dan lebar ecpat per acgi panjang d. «ri araip "data.txf. 
ncnghitung Juaanya, lalu nencetak luao toraobut ke .iroJp "htail.txf •/ 

■include <ntdio.h> 

Mini) 

{ 

/* DEKLARASI •/ 

float panjang; /• panjang segiempnt. da las catuan cm •/ 
float lobar; /• Jebar aeglcspat. dalao eatuan cm •/ 

float luao; /• luas segiempat, dalas eatuan oof •/ 

char NamaAroipl [12J . NanaArsip2 [123 ; /• nooa arolp matiukan 

dan kcluarnn •/ 

FILE •Pin, *Foutj /• pointer ke amip maaukan dan kaluaran •/ 

/• ALGORITHA: •/ 

prlntf("MnmA arnip manukan: ncinCt'lo". NamaAroipl); 

prlntf("Namo arnlp koluaran: •); acanfCio", NamaArolp2); 

/• buJca araip maaukan •/ 

Fin • fopon(NnmaAroipl, "r"); 

/• Luka araip keluaran •/ 

Fout - fopon{NamaAroip2. -*"); 

/' baca panjang dan lebar dari araip Fin •/ 
lac ant (Fin, *if if", ipanjang. & lobar) ; 

luao - panjang • lebar; 

/• tulia luao expat peracgi ke araip Fout •/ 
fprintf(Fout, "Luao oegiempat - if \n”, luao); 

/• tutup araip •/ 
fclono( Flu) | 
fcloao (Fout); 

) 


Soal Ijitilian Hub 5 

1. Huallnh sebuuh algoritma dengan spcsifiknsi scbagai bcrikut: 

- menampilkan tulisan “Halo, siapa nnmamu?”, lalu 

meminta pengguna mcmasukknn namanya, dan akhimya 
mcnuliskan pcsan "Senang bertcman denganmu," <nnma>, yang 
dalam hnl ini <nama> adalah string ynngdibaca bcrdasarkan (b). 

2. Tulislali algoritnia unluk menghilung luas bangun gcometri yang lain 
(Ungkaran, bujunwngknr, scgitign, trapesium,dan scbagainya). Data masukan 
dibncn dari piranii masukan dan luas bangun dilainpilkan scbagai kcluarnn. 


Bab S - Runtunnn 


http://www.pakteguh.com 



3. Dibaca durasi waktu dalam detik. Tulislah algoritma untuk mengonversi 
durasi waktu tersebut ke dalam hari, jam, menit, detik. 

4. Sebuah proyek dikeijakan selama x hari. Tulislah algoritma untuk 
mengonversi berapa tahun, berapa bulan, dan berapa hari proyek 
tersebut dikeijakan. Asumsikan: 1 tahun a 365 hari, 1 bulan a 30 hari. 
Keluaran (tahun, bulan, hari) ditampilkan ke piranti keluaran. 

5. Dibaca dua buah tanggal ( dd:mm:yy ). Tulislah algoritma untuk 
menghitung berapa hari jarak kedua tanggal tersebut. Asumsikan: 1 
tahun - 365 hari, 1 bulan - 30 hari. Keluaran (tahun, bulan, hari) 
ditampilkan ke piranti keluaran. 

6. Dibaca tiga buah bilangan bulat x, y, dan z. *I\ilislah algoritma untuk 
mempertukarkan tripel (x, y, z) menjadi (y, z, x). 

7. Buatlah algoritma yang membaca nilai uang (rupiah) dalam kelipatan 
25, lalu menentukan berapa nilai tukaran pecahan. Pecahan yang 
tereedia adalah Rpiooo, Rpsoo, Rpioo, Rpso, dan Rp 25. Sebagai 
contoh, uang senilai Rp2775 setara dengan 2 buah pecahan Rpiooo 
ditambah 7 buah pecahan Rpioo ditambah 1 buah pecahan Rpso 
ditambah 1 buah pecahan Rp25. 

8. Seekor semut menempuh peijalanan sejauh x cm. Tulislah algoritma 
untuk mengonversi jarak x ke dalam ldlometer-meter-sentimeter. Ingat 
bahwa 1 m - 100 cm dan 1 km ■ 1000 m - 100.000 cm. Misal x «» 261341 
cm, ini berarti semut menempuh jarak sejauh 2 km ♦ 63 m + 141 cm. 

9. Tuliskan algoritma yang membaca panjang sebuah benda dalam satuan 
meter, lalu mengonversinya ke dalam satuan inchi, kaki, dan yard (1 
inchi - 254 mm, 1 kaki - 3048 cm, dan 1 yard - 0.9144 m). 

10. Berat badan ideal ada hubungannya dengan tinggi badan seseorang. 
Untuk menentukan berat badan ideal, tinggi badan dikurangi 100, lalu 
dikurangi lagi dengan 10% dari hasil pengurangan pertama. Tulislah 
algoritma yang membaca tinggi badan lalu menentukan berat badan 
yang ideal untuk tinggi tersebut. 


Algoritma dan Pemrograman 


http://www.pakteguh.com 



2 

Pemilihan 



hi ill ftihin tpihu 11 hi i in? 


Program yang luinyn Iwrisi runtunan instruksi biasanva terdapat pada 
masalah scdcrhaitn. Seringkali suatu instruksi hanya bisa dikeijaknn jika in 
mumenuhi suatu pcrsynratan Icrtcniu. Olch knrcnn itu. komputcr tidak lag! 
numgcrjakan instruksi strain sckuensinl scperli pada runtunnn. tctapi 
herdasarkan synrnt yang dipenuhi. Stmktur pemilihan momungkinknn kila 
melnkukan nksi jika suatu svarat dpcnuhi. I)i daiam Bab 6 ini kita mcmbahas 
konst ruksi algoritma yang pentingyaitu struktur pemilihan ( selection ). 


O.it> 6 — Purr 


ni 


http://www.pakteguh.com 


6.1 Menganalisis Kasus 

Sebuah persoalan hams kita analisis untuk menentukan kasus-kasus yang 
mungkin terdapat di dalamnya. Untuk setiap kasus ada aksi tertentu yang 
dilakukan. Adanya analisis kasus menyebabkan teijadinya pemilihan 
instruksi (atau pencabangan) di dalam algoritma, bergantung pada kasus 
mana yang dipenuhi. 

Sebagai contoh, kita ingin menentukan di kuadran mana terietak sebuah titik 
di bidang kartesian. Yang dimaksud dengan kuadran adalah seperempat 
bidang datar bidang yang terbagi oleh sumbu-sumbu koordinat (sumbu-Af 
dan sumbu-Y)- Ada empat kuadran di bidang kartesian, yaitu Kuadran I, 
Kuadran II, Kuadran III, dan Kuadran IV (Gambar 6.1). Suatu titik P(x,y) 
dapat terietak pada salah satu dari empat kuadran tersebut, bergantung pada 
tanda x dan y (apakah positif atau negatif). Nilai a disebut positif jika a > o, 
dan sebaliknya disebut negatif jlka a < o. Kita tidak mendefinisikan kuadran 
titik P jika titik tersebut terietak pada sumbu-sumbu koordinat (salah satu 
dari x atau y - o). 

Ada lima kasus yang hams kita analisis untuk menentukan kuadran titik 
P{x,y), yaitu: 

Kasus 1: jika x > o dan y > o, maka titik P terietak di kuadran I 

Kasus 2 : jika x < o dan y > o, maka titik P terietak di kuadran II 

Kasus 3 : jika x < o dan y < o, maka titik P terietak di kuadran III 

Kasus 4 : jika x > o dan y < o, maka titik P terietak di kuadran IV 

Kasus 5 : selain Kasus 1, 2, 3, dan 4. maka titik P tidak terietak di kuadran 

manapun 

Contohnya, titik (1,3) terietak di kuadran I karena 1 > o dan 3 > o, titik (-1, 
3) di kuadran II, titik (-1, -3) di kuadran III, dan titik (3, -1) di kuadran IV. 


y 


Kuadran II 

Kuadran I 

(x < 0, y> 0) 

(x > 0, y > 0) 

Kuadran III 

0 

Kuadran IV 

(x < 0, y < 0) 

(x > 0, y < 0) 


Gambar 6.1 Penetapan kuadran untuk titik-ttik di bidang kartesian. Kuadran adalah bidang 
yang mempakan seperempat dari bidang kartesian. __ 


Perhatikan Kasus 1. Pada kasus ini ada pemyataan: 

jika x > o dan y > o, maka P(x,y) terietak di kuadran I 


is r 
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Kondisi atau syarat yang hams dipenuhi agar P(x, y ) terletak di kuadran I 
adalah 

x > o dan y > o 

Kondisi bemilai boolean (true atau false ) dan menentukan aksi yang 
dilakukan jika kondisi tersebut berlaku (memenuhi). Penting dicatat bahwa 
setiap kasus tidak boleh beririsan, dan analisis kasus harus mencakup semua 
kemungkinan kasus. 

Kondisi bemilai boolean adalah ekspresi boolean yang bemilai true atau 
false bergantung pada nilai masing-masing operand yang terlibat di 
dalamnya. Ekspresi boolean dibentuk dengan mengombinasikan operand 
yang bertipe sama dengan salah satu dari operator relasional: *, *, <, >, 2:, 

dan operator uner not . 

Contoh-contoh ekspresi boolean: 

x > y 
a * 10 
m o n 

p * q 

• ♦ b > 1 
otr - 'itto' 
k «od 4 - 0 
ketemu - try 
not bsrhsnti 
(x > 0 ) and (y < 0 ) 

Aksi yang dikeijakan jika kondisi boolean dipenuhi bergantung pada 
masalahnya, misalnya bempa pemyataan pengisian nilai ( assignment ), 
kalkulasi, baca, tulis, dan sebagainya. Penentuan kondisi boolean dan aksi 
yang dilakukan bergantung pada jumlah kasus yang terdapat pada masalah 
tersebut: satu kasus, dua kasus, atau lebih dari dua kasus. Masing-masing 
dtfelaskan terpisah seperti yang dijelaskan berikut ini. 


6.2 Satu Kasus 

Notasi algoritmik untuk analisis dengan satu kasus adalah dengan 
menggunakan konstmksi IF-THEN (jika-maka) dalam bentuk pemyataan: 

If kondisi then 
aksi 
•ndlf 

Pemyataan di atas berarti bahwa aksi hanya dilaksanakan bila kondisi 
bemilai benar (true). Bila kondisi bemilai salah (false), tidak ada aksi apa 
pun yang dikeijakan. Kata cndlf sengaja kita tambahkan untuk 
mempertegas awal dan akhir struktur IF-THEN. Aksi yang dikeijakan bisa 
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satu, dua, atau lebih. Bagan-alir pada Gambar 6.2 membantu 
memperlihatkan visualisasi pemilihan dengan hanva satu kasus ini. 



Gambar 6.2 Bagan alir yang momperkhalkan poimlihan dongan hanya satu kasus 


Contoh-conloh: 

(a) if x > 100 then 

X •- X * 1 
endif 

(b) if kar • ••' chan 

atop t- trua 
and I f 

(c) if la # 0) or Ip • II than 

q * p 

wrlta( q> 
end If 

(d) it ada » faloo than 

reod(cc) 
writ# tcc) 
andlf 

Catatan: 

Contoh (d) di atas dapat juga kit a tulis scbagai berikut: 

if not ada then 
read (cc) 
write (cc) 
endif 


karena aksi sesudah kata then hanya akan dikeijakan hanya jika kondisi 
bernilai true (dalam hal ini, kondisi adalah not ada, vang bemilai true bila 
ada bemilai false). 
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6.3 Contoh-contoh Masalah dengan Satu 
Kasus 


Contoh 6.1. Buatlah algoritma yang memhaca sebuah bilangan bulat. lalu 
mencetak pesan “genap" jika bilangan tersebut adalah gcnap. 

Penyelesaian 

Bilangan gcnap adalah bilangan rang liabis dibagi dengan 2 (sisa penibagian = o). 
Olch knrena itu, kita perlu membngi dala masukan dengan 2. Jika data masukan 
liabis dibagi 2. maka kita tulis IkiIiwsi bilangan lesrebut bilangan gcnap. 

PROGRAM Genap 

( Mencetak peaan "bilangan genap" Jika aebuah bilangan bulat yang 
dlbaca darl plrantl masukan mcrupakan bilangan genap) 

DF.KLARAS I 

x t integer 

ALGORITMAi 
read Ix) 

if x rood 2-0 then 
write('genap'I 
endlf 

Algoritma 8.1 Mencetak 'genap’ )ika data m auAon adalah brlangen genap 


Contoli 6.2. Tulislah algoritma yang memhaca sebuah karakter, lain 
menuliskan pesan "huruf hidup” jika karakter tersebut mempakan snlah satu 
dari huruf vokal. 

Penyelesaian 

Huruf vokal ada lima, yuitu a. i, it, e, dan o. Bandingkan karakter yang dlbaca 
dengan kelima huruf tersebut. Jika karakter masukan snma dengan snlah 
satu huruf vokal tersebut, maka tuliskan pesan bahwa karakter tersebut 
adalah huruf hidup. 

PROGRAM Huruf_Vokal 

( Mencetak peaan “hutvf vokal" hi la aebuah karakter yang dlbaca motupakan 
hutut h letup, ABummkan karakter yang illbaca adalah huruf kecil } 

DEKLARASI 

c j char 

ALGORITMA: 
road(c) 

if Ic-'a') or (c-'i'J or Ic-’u'l oi tc-'e'J or (c-'o*) then 
write('huruf vokal*) 
endii 

Algoritma 6.2 Mencetak 'huruf hnlup* jtka data masukan adalah huruf vokal 
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Contoh 6.3. Di dalam mateinatika lata mengenal nilai mutlak ( absolute 
value). Untuk sembarang bilangan nil x, maka nilai mutlak, dilambangkan 
dengan |jc|, adalah besaran x tanpa meinperhitungkan tandanya. Nilai mutlak 
selalu positif. Jadi, jikii x bemilai negatif, maka nilai mutlak dari a* dipcrolch 
dengan mengalikannya dengan negatif. Sebagai contoh, | to.2 1 = 10.2 dan 
I-21 1 = -(-21) ■ 21. Buatlah algoritma yang membaca sebuali bilangan nil 
lain mcnentukan nilai mutlaknya. 

Pcnyclcsainn 

Misalkan bilangan nil tersobut adalah x. Jika x < o, maka nilai mutlaknya 
adalah —X. Tidak ada porubahan yang dilakukan jika x * o, sebab nilai 
mutlak selalu positif atau nol. 

PROGRAM NllftiMUtlftk 

I Mcnentukan nilat mutlak <larl aebuah bilangan rill I 
DfKLARAS2 

x * rfl) 

ALOOKITMAi 
read|x) 

If X < 0 than 
X «-X 

write lx) 

Algoritma 6.3 Monontukan nK UUttk dirt iotomh bdaoqnn ml _ 


6.4 Dua Kasus 

Konstruksi IF-THEN hanya menyediakan satu alternutif aksi jika suatu 
persyaratan (kondisi) dipenuhi. Kadang-kadang kita pcrlu memilih 
melnkukan aksi alternatif jika suatu kondisi tidak memenuhi. Jadi, ada dua 
kasus, tetapi hanya salah satu dari keduanya yang harus dipilih satu untuk 
dikerjakan. Notasi algoritmik untuk masalah dengan dua buah kasus adalah 
dengan menggunakan konstruksi IF-THEN-ELSE (jika-maka-kalau tidak): 

1C kondloi then 
akoit 
else 
akai, 
end if 


Pemyataan di atas berarti bahwa aksi, dikerjakan jika kondisi bernilai benar, 
sebaliknya jika kondisi bemilai salah, maka aksi# yang akan dilaksanakan. 
Pcrhatikanlah bahwa else menyatakan ingkaran ( negation ) dari kondisi. 
Bagan-alir pada Gambar 6.3 membantu memperlihatkan visualisasi pemilihan 
dengan dua kasus-kasus. 
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Contoh-contoh: 

(•) if • > 0 than 

write ('bilangan poaltif) 

alaa 

write!'bilangan bukan poaltif') 
ondlf 


(b) if (k > 4) and (k div 2*4) than 
raad (n) 



(c) if (n > 0 ) than 
if a » b than 

z 4 - a 

ala? 

* «- b 


wrltaCn harue poaltif*) 


6.5 Contoh-contoh Masalah dengan Dua 
Kasus 

Contoh 6.4. Tulislah algoritma yang membaca scbuah bilangan bulat, lalu 
menuliskan pcsan “genap" jika bilangan tersebut a dal ah gcnap, atau "ganjD" jika 
bilangan tersebut adalah bilangan ganjQ. 
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Penyelesaian 

Misalkan bilangan bulat yang dibaca adalah x. Hanya ada dua kenjungkinan 
untuk x, yaitu genap atau ganjil. Hilangan genap adalah bilangan yang habis 
dibagi dcngan 2 (memborikan sisa = o), scdangkan bilangan ganjil bersisa 1 bila 
dibagi dcngan 2. Contohnya, 10 adalah bilangan genap karena to mod 2 = 0, 
tetapi 9 adalah bilangan ganjil karena 9 mod 2*1. 

Analisis kasus: 

Kasus 1: jika x mod 2 * o, maka tulis pesan “genap" 

Kasus 2: jika x mod 2*0, maka tulis pesan “ganjil" 

PRCORAM GcnapG.inJil 

/ Mencatak peaan "genap* jika aobualt bilangan bulat yang dibaca 
morupakan bilangan genap, atau "ganjil" jika bilangan tersebut ganjil / 

DKKI-AHATi 1 

x i integer 

ALGORITMA. 

rend(x) 

if x rood 3*0 then 
wrlt«(*genap*I 

•Its 

write('ganjil') 
endlf 

Algoritma 6.4 Mononlukan gonap otou ganjil 


Contoh 6.5. Huatlah algoritma yang membaca dun bunh bilangan bulat, 
lain menentukan bilangan yang terbesar. 

Penyelesaian 

Misalkan kedua bilangan tersebut A dan B. Ilanya ada dua kemungkinnn 
bilangan terbesar, A atau B. Kita hams membandingkan kedua bilangan 
tersebut lalu menetukan yang terbesar. 

Analisis kasus: 

Kasus 1: jika A > B, maka tulis pesan “Hilangan terbesar = A" 

Kasus 2: jika B £ A, maka tulis pesan “Hilangan terbesar = B" 

PROGRAM Mokoimura 

( Menentukan bilangan terbesar dan dua buah bilangan bulat J 

DBKLARASI 

A, B : integer 

ALGORITMA: 
rend (A. B) 

H A » B then 

writo{' Bilangan terbesar - *, Ai 
else f bararti B Z A ) 
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writ erBilangan terbesar - B> 
endit 

Algorltma 6.5 Meneniukan bilangan terbesar dan dua buah bilangan 


Contoh 6.6. Tuliskan algorilma yang incmbaca tiga buah bilangan bulat, lain 
menentukan dari ketiga bilangan itu yang terbesar! 

Penyclcsaiun 

Ada dua cara pcnyclesaian masalah yang mungkin untuk masalah ini. Kedua 
versi pcnyclesaian masalah dibcrikan di baxvah ini. 

Versi i: 

Misalkan kedua bilangan tersebut A. It. dan C. 

Analisis kasus: 

Kasus i: jika A > II, maka set males - A 
Kasus 2: jika It 2 A, maka set males - II 
Handingkan males dengan C: jika C > males, maka set males ■ C 

PROGRAM Moknlmuml 

/ Nonantuksn bilangan terbeaer dorl tlgt 1 buaft bilangan buJ.it f 
DKKLARASI 

A. B. C. maka 1 int eger 

ALGORITMA: 

rood (A. B. Cl 

I carl make antaca A don B I 
if A > H then 
mako •- A 
el B O I II £ A I 
moku •- D 
end If 

( bandlngknn nuikit dengan C I 
if C > mokn then 
mako *- C 
endif 

write(make) 

Algorilma 6.6 Menonlukan bilangan terbesar dan bga buah bilangan (versM) 


Versi 2: 

Misalkan kedua bilangan tersebut A, B. dan C. 

Analisis kasus: 

Kasus 1: jika A > B, maka 
Analisis kasus (A. C): 

Kasus 1.1: jika A > C. maka tubs “Bilangan terbesar = A’ 
Kasus 1.2: jika C£ A. maka tubs “Bilangan terbesar * C 
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Kasus 2: jika B £ A, maka 
Analisis kasus ( B, C ): 

Kasus 2.1: jika B > C, maka tulis "Bilangan terbesar =B" 
Kasus 2.2: jika C> B, maka tulis "Bilangan terbesar = CT 

PROGRAM MakoimumJ 

f Mrnrntuk.Mi bilangan terbeoar dari tiga buah bilangan bulat ) 

DEKLARASI 

A, B. C « integ er 

ALGOR ITMA: 

road(A.B.C) 
if A > B then 

I bandingkan A dengan C ) 

If A > C then 

write(’Bilangan terbesar -*,A) 
else 

write*'Bilangan terbesar C) 
end If 

e ls e { boiarti B £ A ) 

( bandingkan B dengan C ) 
if B > C then 

write*'Bilangan terbesar . B) 

else 

write(‘Bilangan terbeoar C) 
end if 
end if 

Algorilma 8.7 Monontuknn txiangon terbesar dan t*go buah Mongan (vorst 2) 


ntau dalam kondisi yang lebih ringkas: 

PROGRAM Maka 1 mum) 

/ Nenentukan bilangan terbesar dar i ciga buah bilangan bulat } 

DEKLARASI 

A, B, C t integer 

ALGORITMA: 

read (A, B, C) 

If (A » Bi and (A » C) then 
write('Bilangan terbesar ,A) 
else 

If (B > A) and ( B > C) the n 
waiter Bilangan terbesar B) 
els e 

writ efBilangan terbesar ■*, C) 
endlf 
end if 

Algorltma 6.8 Mene ntuka n bilangan terbesar dart b ga buah bilangan (versi 3) 
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Contoh 6.7. Karyawan honorer di PT “ABC" digaji berdasarkan jumlah jam 
kerjanya selama satu minggu. Upah per jam misalkan Rp2000,00. Bila 
jumlah jam kerja lebih besar dan 48 jam, maka sisanya dianggap sebagai 
jam lembur. Upah lembur misalkan Rp 3000 ,00/jam. Tulislah algoritma 
yang membaca jumlah jam kerja seorang karyawan selama satu minggu, lalu 
menentukan upah mi ngguannya. 


Penyelesalan 

Misalkan jumlah jam kerja karyawan adalah JJK. 

Analisis kasus: 

Kasus 1: jika JJK £ 48, maka upah - JJK • 2000 
Kasus 2: jika JJK > 48, maka 
lembur * JJK - 48 
upah - 48 • 2000 ♦ lembur • 3000 

PROGRAM Up*hjury-wan 

{ Manan cuJcan upah mlnggvan aeorang karyawan. Maaukan yang dibaca darl 
pit pan A; unci adalah nama karyawan. go long an. dan Jumlah Jam karja. 
Kaluaran program adalah nama karyawan dan u pahnya. J 


DBKLARASI 

nama 1 atrlnq { nama karyawan ) 

JJK 1 intwr l Jumlah Jam Karja / 

lombur i r*al ( Jumlah Jam lambur ) 

upah 1 real ( upah karyawan J 


ALOORIWA: 

read(nama,JJK) 
if JJK * 48 than 

upah a- JJK • 2000 
•laa ( barart1 JJK * 49 ) 
lembur «- JJK - 48 
upah 4- 48 • 2000 4 lembur • 1000 
and if 

writ# (nama, upah) 


Algoritma 6.9 Menentu kan honor karyawa n deoQan kemunpklnan lambur (vf»l 1). 


Angka-angka seperti 48 jam, Rp20OO, dan Rp 3 O 0 O adalah konstanta yang 
suatu saat mungkin berubah. Pada algoritma upah_Karyawan di atas, angka- 
angka tersebut dinyatakan langsung di dalam algoritma. Bila sewaktu-waktu 
ada perubahan ketetapan, kita hams mengubah selumh angka yang muncul 
di dalam instmksi. Hal ini mempakan pekerjaan yang kurang mangkus 
terutama bila suatu konstanta terdapat pada lebih dari satu instmksi. Untuk 
mengatasi masalah ini, pemrogram sangat dianjurkan menyatakan angka- 
angka tersebut sebagai konstanta ( conet ), sehingga bila ada pembahan, kita 
cukup mengubahnya di bagian konstanta saja. 
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Dengan demikian, algoritma Upah_Karyavan dilulis lebih elcgan seperti 
berikut ini: 


PROGRAM l!p*h_K«ryaw.in 

7~WonencuXan upah mingguan aeor.mg katyavan. Manukan yang rfibaca cfari 
papmi kunci adalah natna ic.iryaw.in, golongan. dan juml.ih jam korja. 
Keluaron program adalah naan katyawan dan upahnya. } 


DKKLAPASI 

conot JanxHonral - 4B 
const UpahPerJom - 2000 
conot UpahLembur - 3000 


/ jumlah Jam korja norm.il per miriggu ) 
I upah per jam. Rp 2000 ) 

( upah per jam lemhur. Rp 3000 ) 


: string 
: Integ er 



karyawan } 
Jualah Jam Kerja ) 
jumlah jam lembur ) 
upah karyauan ) 


ALGORITMA: 

read(nama.JJKI 
U .IJK i jamNormnl then 
upah *- JJK * UpahPorJam 
«!»• 

lembur *- JJK - JamiJortnal 
upah «- JamNovinul • UpahParJnm * 

«£ii 

write(nama.upah) 

Algoritmn 6.10_ Mononlukan honor Karyawan donpan kemungkinan lombur (vorsi 2) 


lcmbur • UpshLembur 


Contoh 6.8. Buatlah algorilmn yang membaca angka tahun maschi dari 
papan ketik, lalu menentukan npakah tahun tersebut merupakan tahun 
kabisat. Sccara sedcrhana, tahun kabisat adalah tahun yang habia dibagi 
dengan 4. Pada tahun kabisat, bulan Februari bcrjumlah 29 ban. Contoh 
tahun kabisat adalah 1996 dan 2000. Tahun 2002 bukan tahun kabisat karena 
tidak habis dibagi 4. 

Pcnyelesaian 

Misalkan peubah tahun masehi tersebut adalah tahun. 

Analisis kasus: 

Kasus 1: jika tahun mod 4 = o, inaka tahun adalah tahun kabisat 
Kasus 2: jika tahun mod 4 * o, maka tahun bukan tahun kabisat 

P ROGRAM TahunKabisat 

f Menentukan apakah suatu tahun merupakan tahun kabisat atau bukan ) 

DEKLARAS I 

tahun : integ er 

ALGORITMA 

read(tahun) 

If tahun mod 4-0 then 
write(‘tahun kabisat') 
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else 

writel'bukan tahun kabisat') 
endif 

Algoritma 6.11 Monontuknn npakah soOunh lahun morupnknn lahun kntjisat (vorti 1) 


Scbcnarnya pencntuan lahun kabisat lldak sesederhana Algorithm 6.11 di 
atas. Sualu tahun dischul tahun kahisat jika memenuhi salah satu syarat 
berikut: (i) habis dibagi 4 tctapi tidak hahis dibagi 100, atau (ii) bains dibagi 
400. Misalnya, tahun 1996 adalah tahun kabisat karena habis dibagi 4 dan 
tidak habis dibagi loo, tetapi tahun 1900 bukan tahun kabisat karena 1900 
habis dibagi 4 dan habis dibagi ioo, juga tidak memenuhi syarat habis dibagi 
400. Tahun 2000 adalah tahun kabisat habis dibagi 400. Algoritma 6.11 
hams kita revisi menjndi Algoritma 6.12 berikut: 

PROGRAM TahunKabioat 

7 Menrntukan apakah niiatu eahun morup*kan tahun kahla.tt atau bukan } 

DRKLAKA3I 

tahun t integer 

ALGORITMA: 

road(tahun) 

i i (tahun nod 4-0 and tahun mod 100 r 0) or (tahun noJ 400 * 0) then 
write(•tahun kablnnt•| 
elio 

write !'bukan tahun kabisat') 
end I f 

Algoritma 6.12 Monontukan npakah sobuoh lahun morupokan lahun kabisat (vorsl 2) 


6.6 Tiga Kasus atau Lcbih 

Masnlnh yang mempunyai tiga buah kasus atau lebih dapat dianalisis dengau 
konstruksi IF-THEN-EISE bertingkat-tingkat. Gambar 6.4 meinperiibatkun 
bagan allr untuk masalah dengan 3 kasus. 

Tiga Kasus: 

if kondlai , then 
.1 ksl x 
elae 

i^ kondiei , then 
akei i 

else 

it kondiai . then 
aksi 1 
endif 
endif 
endit 
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6.7 Contoh-contoh Masalah dengan Tiga 
Kasus atau Lebih 

Contoh 6.9. Tulislah nlgoritma yang memhaea sebuah bilangan bulat, lalu 
menentukan apakab bilangan tersebut positif, negatif, atau 110I. 

Pcnyclcsainn 

Baca bilangan bulat itu adalah X. 

Analisis kasus: 

Kasus 1: jika x > o. maka x adalah bilangan positif 
Kasus 2: jika .v < o, maka x adalah bilangan negatif 
Kasus 3: jika x = o. maka x adalah bilangan nol. 

PROGRAM JonlsDiUnganflulat 

7 Wcnentu**/! nobuah bilangan bulat maiupakan bilai K/.111 poult it. 

neqmtlt, «t«u nol. ) 

DEKLARASI 

x : Integer 

ALGORITKA 1 
read(x| 
if x > 0 then 

write (‘poalt-Lf) 

else 

if x c o then 

write (*noqat if‘1 
alee 

If x • 0 

writec nol'» 
end i f 
endif 
endif 

Algoritma 6.13 Mcnuntukan brfangon posiiif tu nol_ 


Kita dapat juga menuliskan analisis kasus tanpa mcmeriksn kasus ketiga, 
karena jika suatu bilangan bulat bukan positif atau negatif. pastilab bilangan 
tersebut o: 

if x > 0 Chon 

writeCpositif') 
elec 

if x < 0 then 
” write ('negatif 1 
else 

write (* nol*) 
endif 
endif 
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Conloh 6.10. Tulislah algoritma yang mcmbaca lemperatur air, T, (dalam 
satuan derajat celcius) pada tekanan normal, lalu menentukan apakah wujud air 
tersebut dalam kcadaan padat (7*S o°C), cair (o<7*<ioo), atau gas (T > 100). 

Penyclesaian 
Misalkan suhu air adalah 7*. 

Analisis kasus: 

Kasus 1: jika T £ o, maka air bcnvujud padat 
Kasus 2: jika o <T< 100, maka air benvujud cair 
Kasus 3: jika T 2 too, maka air bcnvujud uap 

PPP9MM ’"'ujudAlr 

( Menentukan vujud air: padat, cair. atau gaa. beigantung pada auhunya ) 
DBKLARAS! 

T i real { auhu air, dalan derajat celclua ) 

ALGORITMA: 
road IT) 

if T & 0 than { kaaut 1 ) 

vritoCpad.it.*) 

•ifii 

If (T > 0) and IT a 100) then ( kaaua 2 } 
writoCcair*) 

i| T i 100 than ( kaaua 3 ) 

wrltoCqou atau uap*); 
and 1 f 
endl f 
endif 

Algoritma 6.14 MonontuKan wujud air._ 


Analisis kasus rentang nilai Tdi dalam Algoritma 6.14 atas dapat juga ditulis 
sebagai berikut: 


if T 5 0 then 

{ kaaua 1 } 

write I 'padat ' ) 
aloe 

if T < 100 than 

1 kaaua 2 } 

wr ito ( * cair*) 

nine { T i 100 ) 

{ kaaua 3 } 

write Cqnu atau 
endif 

uap*); 

endif 



Contoh 6.11. Buatlah algoritma yang mcmbaca scbuah titik P(x, y) di 
bidang kartesian, lalu menentukan di kuadran mana lctak titik tersebut 
(lihat contoh ilustrasi pada bagian awal bab ini). 
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Penyelesaian 

Analisis kasus: 

Kasus 1: jika .r > o dan y > o, maka P(x,y) lorlctak di koadran 1 
Kasus 2 : jika x < o dan y > o. maka P{x,y) terletak di kuadran II 
Kasus 3 : jika x < o dan y < o, maka P{x,y ) terletak di kuadran III 
Kasus 4 : jika x > o dan y < o, maka P(x,y) terletak di kuadran IV 
Kasus 5 : selain Kasus l, 2.3, dan 4. maka P{x,y) tidak terletak di kuadran 
manapun 

PROGRA M KundranTitik 

J M»nantuksn kuttdran titlk P(x,yt di bid/ing kartmmlmn ) 

DEKLARASI 

type Titik : record « x ? real. y t real* 

P t Titik 

ALGORlTMAi 

readtP.x, P.yJ 

If (P.x > 0| and (P.y - 0) then 
writ*('Kuadran 1 ') 

if (P.x < 0) and (P.y > 0) then 
write('Kuadran 2') 
olne 

if (P.x < 0) end (P.y « 0t tjien 
write(’Kuadran 3’) 

olne 

if (P.x > 01 and (P.y < 0} then 
write('Kuadran 4*» 

f* 1 {1 r* 

write!'Tidak terletak di kuadran iMnapun'l 
end i f 
end if 
endjif 
endlf 

Algoritma 6.15 Mononlukan kuadran titik di bkJang kadosian 


Contoh 6.12. Misalkan karyawan PT "ABC dikelompokkan bordasarkan 
golongannya. Upah per jam tiap karyawan bergantung pada golongannya (lihat 
label di bawah). Jumlab jam keija yang normal sclama seminggu adalah 48 jam. 
Kelebihan jam keija dianggap lenibur dengan upah lembur adalah Rp3000/jam 
untuk semua gplongan karyawan. Buatlah algoritma yang membaca nama 
karyawan dan jumlab jam kerjanya selama seminggu, lain monghitung gaji 
mingguannya. 


Golongan 

Upah Per Jam 

A 

Rp 4000 

B 

Rp 5000 

C 

Rp 6000 

D 

Rp 7500 
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Pcnyclcsaian 

Analisis kasus masalah ini lebih rum it. Mula-mula kita hams menentuknn 
upah per jam berdasarkan golongannya. 

Kasus \: jika golongan = ‘A’, maka upah per jam - 4000 
Kasus 2: jika golongan * 'B\ maka upah per jam ■ 4000 
Kasus 3 : jika golongan =» 'C, maka upah per jam * 4000 
Kasus 4 : jika golongnn = 'I)’, maka upah per jam = 4000 


Sclanjutnya, kita menghitung upah yang dibilung dari jumlah jam ketja. 
Upah per jam bergantung pada basil analisis kasus yang pertama. Jika ada 
jam lembur, maka upah total adalah upah keija + upah lembur. Pencntuan 
apakah ada jam lembur atau tidak sudali dijelaskan pada Contob 6.7. 

PROGRAM UpahKaryawan 

7 Menghitung upah mingguan karyawan, Maoukan yang dibaca adalah nemo 
karyawan. golongan. dan jumlah Jam korja. Keluaran program adalah nama 
karyawan dan upahnya ) 

DKKLARASI 

count JanKer jaNonral . 40 ( Juni ah Jam kerja normal par mlnggu ] 
const UpahLembur - 1000 / upali por Jam lembur. Fp J 000 ) 

Nama \ otrlng 

gol 1 char fA', •B', *C\ 'D') 

JJK : integer f Jumlah Jam kerja karyawan da lam aemtnggu I 

JaraLembur 1 Integer 

UpahPerJam 1 real { upah por Jam / 

UpahTotal i real 

ALGORITMA: 

read(Nama, gol, JJK) 
it gol • 'A' then 
UpahPerJam •- <000.0 
eloe 

it gol - 'B' then 
UpahPerJam ♦- 5000.0 
else 

i£ gol • *C* then 

UpahPerJam *- 6000.0 
el no 

if gol - ’D' then 
UpahPerJam 7500.0 
end If 
endi t " 
endif 
endlf 


if JJK S JamNonaal then 

UpahTotal *— JJK • UpahPerJam 
else 

JamLecnbur «- JJK - JamKerjattomal 

UpahTotal ♦- JaraXerJaNormai • UpahPerJam • JamLembur•UpahLembur 
endif 

write (Nama, UpahTotal) 

Algoritma 6.16 Monontukan upah karyawan, borgantung golongannya 
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Contoh 6.13. Indeks nilai nialiasiswa dilcntukan bcrdasarkan nilai ujian 
yang diraihnya. Kctentuan pcmberian nilai indeks sebagai berikut: 
jika nilai ujian £ 80 . indeks nilai = A 

jika 70 < nilai ujian < 80, indeks nilai = R 
jika 55 £ nilai ujian < 70, indeks nilai = C 
jika 40 £ nilai ujian < 55, indeks nilai « D 
jika nilai ujian < 40 . indeks nilai = E 

Buatlah algoritma rang membaca nilai ujian seorang mabasiswa, lalu menentukan 
indeks nilainya, keinudian mcncetak nilai dan indeksnya ke piranti keluaran. 

Penyelesuian 

Analisis permasalahan ini nienghasilkan cmpat buah kasus. yaitu kasus bila 
nilai ujian di alas 80, antaru 70 dan 80. nnlarn 55 dan 70, antara 40 dan 55, 
dan tcrakhir di bawah 40. Untuk masing-masing kasus dilcntukan indeks 
nilainya, scperti yang dinyntakan dnlam permasalahan. 

PROGRAM 1NDEK8_MLAI_UJIAH 

( Henghltung indrka nilai ujian auhaalova I 

DEKLAPASI 

nilai 1 real 
lndokn i char 

ALGORITMA. 
rend(nilai) 
if nilai * 90 Chen 
lndoko *- 'A' 

•1 00 

If (nilai 2 70) and (nilai < 10) then 
indako - H' 

•1*3 

1C (nilai i 55) and (nilai < 70) then 
indeka ♦- 'C* 

•All 

1C (nilai * 40) and (nilai < 551 then 
indeka *- * D* 

ilia 

lndeko ♦- *8’ 

•ndlf 
end if 
endiT 
cnd >? 

write(indeko) 

Algoritma 6.17 Monghllung indeks niiol ujian mnhansw.i 
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6.8 Struktur CASE 


Untuk masalah dengan dua kasus atau lebih, konstmksi CASE dapat 
menyederhanakan penulisan IF-THEN-ELSE yang bertingkat-tingkat 
sebagaimana pada contoh-contoh sebelum inL Konstruksi CASE sebagai berikut: 

caae eskpresl 

nilai , i akal, 
alial t i akalt 
ailalt : akalt 


nilai. i rnkal m 
other*!ae i akal, 

endcaoe . .... .. ... 

ekspresi adalah sembarang ekspresi (aritmetika atau boolean ) yang 
menghasilkan suatu nilai (konstanta). Konstmksi CASE memeriksa apakah 

nilai dari ekspresi tersebut sama dengan salah satu dari nilai,, nilai, . 

nilai n (catatan: semua nilai-nilai ini hams berbeda). Jika nilai ekspresi sama 
dengan nilaik benar, maka aksik dilaksanakan. Aksi yang bersesuaian dengan 
nilaik dapat lebih dari satu, karena itu ia berupa mntunan. Jika tidak ada 
satu pun nilai ekspresi yang cocok, maka aksi sesudah otherwise dikeijakan. 
otherwise bersifat optional, artinya ia boleh ditulis atau tidak di dalam 
konstmksi CASE. 


Konstmksi CASE di atas menggantikan analisis kasus yang ekivalen dengan 
konstmksi IF-THEN-ELSE berikut ini: 


i| okoproal a nilai, Chan 
akal, 

If akapraal • nilai, than 
akal, 

n okuprool m nilai, than 
akal, 


H akapraal a nilai. than 
akalm 

alaa ( oe hantlaa I 
akal. 

jr 


Tidak semua bahasa pemrograman menyediakan straktur CASE (misalnya 
bahasa Fortran ). Bahasa Pascal dan C menyediakan struktur ini (lihat 
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upabab 6.9 mengenai translasi notasi aignritma ke dalam notasi Pascal dan 
C). Jika bahasa pemrograman tidak mcnyediakan strnktur CASE, maka 
CA 67 *.'dapat diganti dengan struktur IE-TI / EN-ELSE yang ckivalcn- 

Contoli 6.14* Buatlah algorilma yang membacn sebuah bilangun bulat yang 
nilninyo terletak antara 1 sampai 4. lain mencdak tullsan angka torscbut. 
Misalkan bila dihara angka 1, maka tercetak tulisan "satu", bila dibava 2 , maka 
tcrcctak di layar tulisan "dua", dcmikian seierusnya. Jika angka yang 
diniasukkan sclain 1 sampai 4. tuliskan pcsan bahwa angka yang dimasukkan 
salah. 

Penyelesaian 

Dengan struktur IF-THES-EISE, algoritnia mencetak kata untuk angka 
yang bersesuaian sebagai herikul: 

PROGRAM KonveraiAngkaKeTeka 
7 Moncetak kat* untuk angka 1 eamj>nl 4 . / 

DI (CLARAS X 

angkn s integet ( angka yang dlb.ica / 

ALOORITMA: 
road!angka) 
if angka • l the n 
write ('aatu') 
eloo 

it angka - 2 then 
writer dug ‘) 

els? 

If angka • J then 
wrif ('tlgo') 

If angka • 4 then 
write(•empat•) 

write('angka yang dimaeukkon harua 1 »/d 4') 
end if 
endif 
ondif 

Algoritma 6.18 Mencolok angka moryad* toks (Unngnn hon»truk*l IF-THEN-ELSE ) 


Dengan konstruksi CASE, algoritnia untuk masalah di atas dapil dibual 
menjadi lebih singkat sebagai berikut: 

PROGRAM KonverolAngkaKoTeko 

J~Sancetak kata untuk angka 1 eampal 4 l 

DEKLARAS1 

angka i lntegof { angka yang dJbaca } 

ALGORITMA: 

read(angka) 


Bab 6 - Pommh.in 


131 


http://www.pakteguh.com 



cane angka 

1 s write ('oatu*) 

2 i write ( ‘ daa') 

3 : write (•tlga*) 

* s "HiteCempat'J 

othe rw iee s write{'angka yang dimaauWcan calah') 
endcaae 

Algorltma 6.19 Moncelak angka menjodi teks (dongan konstruksi CASE) 


Perbatikan Algoritma 6.19 tli atas. Ekspresi hanya bcmpa sebuab peubah 
(yaitu angka). Kksprcsi dapat saja borupa bentuk yang mclibatkan operand 
dan operator Kebagaimana sudah dijclaskan di dalam Bab 4. Contohnva 
seporti algoritma 6.20 berikut ini. 

PROGRAM OenapOonJil 

( Ncncotak pcoan '9 anap’ Jika aebuah bil-xngar. bulat yang dibac.i 
mcmpakan bllangan goiutp, .ituu "g*n)il m jika bilangan teraebut ganjil ) 

DEKLARASI 

x 1 Integ er 

ALGORITMA1 
read(x) 
ceoe x mod 2 

O^i wrUoJ'genap*) 
l i writ©('ganjil*I 
ondceee 

Algoritma 6.20 Monenlukon ; 


Contoh 6.15. Buatlali algoritma yang incmbaca nomor bulan ( integer ), lalu 
memiliskan nama bulan sesuai angka bulannya. Misalnyn jika diboca bulan 
8, inaka tercetak "Agustus". 


Pvnyclosaian 

Masalab ini memiliki 13 buab kasua karena nama bulan berbeda-beda 
borgantung padn nomor bulan yang diberikan (ada 12 bulan dalam kalcnder 
masehl). Satu kasus tambaban ndalab bila nomor bulan yang dimasukknn di 
luar rentang 1..12. 

PROGRAM HamnlluUn 

{ Noncotak nama bulan bt'iiLnuirkan nomor bulan 11..12J) 

DEKLARASI 

Momor_buIan 1 Integer 

ALGORITMA: 

rend(nomor_bulan| 
cent? nomor_bulan 

1 1 wrllaCJAnuarl*) 

2 1 write I'Pebruarl•I 

3 t write <* Me ref > 

4 » vrltg{'April') 


13? 
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5 : write r Mel') 

6 : writerJuni') 

7 j write rJuli*) 

B : writerAguotus*) 

9 i write r September*) 

10 : write COktober*) 

11 « write<'November*> 

12 j write rDeaeaber*) 

otherwise t writer Bukan bulan yang benar*) 
endcaae 

Algoritma 6.21 Moncotak nnma bulan berdasarkan nomernya 


Conloh 6.16. Tulislah kembali Algoritma 6.16 dengan mcnggunaknn 
konst ruksi CASE. 

Penyelesaian 

Konstniksi CASE aknn kita gunnkan untuk mi'iiggantikan konst ruksi //*- 
THEN-El SI’ pada nnnlisis golongan karyawan. 

PROGRAM UpahKaryawan 

{ Menghitung upah mlngguan karyawan. Haaukan yang dlbaca adalah nama 
karyawan, golongan, dan Jumlah Jam kerja. Keluaran program adalah na IM 
karyawan <lnn upahnya I 

DEKLARASI 

const JamKarjaNormal -48 ( Jumlah Jam kerja normal par mlnggu ) 
conut UpahLombur • 3000 { u pah par Jam iombur, Pp 3000 ) 

Name i string 

gol i char {‘A 1 , B‘. 'C*. 'D'I 

JJK i integer 

JamLombur i in teger 

UpahPorJom t real ( upah per Jam ) 

UpahTotal » roal 

ALGORITMA: 

readINama, gol, JJK) 
caoq tgol) 

*A* i UpahPerJam *-4000.0 
'B* i UpahPerJam «-S000.0 
•C* i UpahPerJam *-6000.0 
*D* i UpahPerJam *-7500.0 
endcaae 

if JJK S JamHormal then 

UpahTotal *- JJK • UpahPerJam 
olse 

JamLombur ♦— JJK - JamKerjaNorsal 

UpahTotal «— JamKerjaNormal • UpahPerJam • JamLombur•UpahLombur 
endlf 

write (Name.UpahTotal) 

Algoritma 6.22 Menontukan upah karyawan, bergantung golongannya (CASE). 
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6.9 Contoh-contoh Tambahan 


Contoh 6.17. Buatlah algoritma yang membaca sebuah jam ( hh:mm:ss), 
lalu menentukan jam yang baru selclah jam yang lama ditombah 
( increment ) satu detik. Misalnya, 


.lam Lama 

Jam lama + 1 Detik 

14:27:3* 

14:27:3a 

1536:59 

15 : 37:00 

10:59:59 

11:00:00 

^3:59:59 

00:00:00 


Pcnyelcaaian 

Cura 1 (komputasi): 

(a) konvcrsi jam-mcnit-detik (hh:mm:ss) kcjumlah detik 

(b) tambahkan jumlah detik dengan 1 

(c) konversi kembali basil dari (b) ke dalnm jam-mcnit-detik ( hlr.mm.ss) 

I'ROORAM JamBorlkutnya 

( Menentukan Jam berlkutnya oetelah Jam aakar.mg dltambah i detik f 
OEKLARASI 

type Jam : record <hh:Integer, / 0..59 ) 
nro 1 integer , ( 0..59 ) 
pot integer ( 0..2J i 

> 

J : Jam 

TotalDetlk. SlnaDetik i integer 
ALGORITMA: 

read<J.hh,J. taro, J.ao) (baca jam) 

TotalDetlk *- J.hh‘1600 . J.nio-GO . J.na (konveroi J ke Jumlah detik) 

TotalDetlk ♦- TotalDetlk*l (tambahkan TotalDetlk dengan l) 

(konverci TotalDetlk ke hh:m:aa ) 

J .hh ♦- TotalDetlk div 3600 
SlnaDetik ♦- TotalDetlk mod 3600 
J.rcm •- SlnaDetik dly 60 
J.cs 4- aiBddetik mod 60 

write (J.hh.J.ipn.J.as) ( Jam yang baru ) 

Algoritma 6.23 Menentukan jam benkutnya solemn d.tambah satu detik (versi 1) 


Cara 2 (analisis kasus): 

(a) Tambahkan ss dengan l. Jika jumlahnva < 6 o -> OK, tetapi jika * 6 o, 
maka set ss kembali menjadi o dan tambahkan l ke mm. 
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(b) Jika pcrtambahan mm dengan 1 jumlahnya < 60 OK. tetapi jika = 60, 
maka set mm kembali menjadi nol dan tambahkan 1 ke hh. 

(c) Jika pertambahan hh dengan 1 jumlahnya < 24 OK. tetapi jika = 24, 
maka set hh kembali menjadi o. 


Contoh: 

14:27:31 + i dctik 
15:36:59 + 1 detik 
10:59:59 + 1 detik 

23:59:59 + 1 detik 


-» I4:27:(3i+l) = 14:27:32 
-> i 5 : 36 :( 59 +l) s i5:(36+i):oo = 15:37:00 
io: 59 :( 59 +i) B io:( 59 +i):oo * (io+i):oo:oo 

** 11:00:00 


-> 00:00:00 


PROGRAM JamBerlkuCnya 

( Monentuk.iri Jam berikutny* act el ah Jam aekarang ditambah 1 dntik.l 


DKKLARASI 

type Jam : record<hh:integer. 

mmi integer , 
oa1 integer 

> 

J 1 Jam 


0 . .59 J 
0 . .59 ) 
0..21 ) 


ALGORITMAt 

r££d(J.hh,J.m, J.ee) { baca Jam } 

if J.. 1 « 60 then { OK. tldak ad* m*aal*h penambahan 1 dec lk ) 
J.an t- J.nu • 1 
olee ( be rare i J.a* • 1 • 60 ) 

J.oo«-0 / detik kembali menjadi nol, manlt bertambah 1, tapi 

perikaa dulu apakah manlt * 1 < 60 / 
if J.mm . 1 < 60 then { OK, tldak ada maaalah penambahan 1 mbit I 
J.mm J .era • 1 
alee ( bat,irtl J.mm • 1 • 60 ) 

J.mm •- 0 ( manic menjadi nol. Jam bertambah 1, Capi perikoa dulu 
apakah jam * 1 « 24 J 

If J.hh ♦ 1 a 24 then {OK. tldak ada meal ah penambahan I Jam J 
J.hh *- J.hh* 1 

aloe { berarti J.hh • l • 24 } 

J.hh-0 
endlt 
e nd i t 

end I* 

write (J.hh,J.mm,J.pel 

Algoritma 6.24 Menenlukan )am benkutnya Mlclah ditambah salu d elft (wwl 1) 


Contoh 6.18. Simulasikan sebuah kalkulator sederliana untuk melakukan 
operasi aritmetika sehagai berikut: dibaca operand 1, operator, dan operand 
2. Tentukan basil operasi aritmetika: 

operand 1 operator operand2 
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dan cetak hasilnya. Misalnya, bila dibaca 8, V, 7, maka hasilnya = 15 (yaitu 
8+7); bila dibaca 6, *•’,5, maka hasilnya = 30 (yaitu 6 x 5); 

Penyelcsainn 

Analisis kasus tcrhadap masalah ini mcnghasilkan algoritma 
KalkulatorSederhana sebagai berikut: 

PROGRAM KaklkulatorSederhana 

( Menaimulaaikan kalkulator aederhan. i, yaitu menghltung Uaoil optimal 
arltmetlka bila dibaca operand_l. operator, dan cperand_2.) 

DEKLARASI 

opl, op2 : integer ( operand ) 

oprt : char •-*, •/'/ { operator } 

ALGORITMA: 

road(opl, oprt. op2) 
cage (oprt) 

1 write(opl . op2) 

« write(opl - op2) 

* y^te (opl • op2) 

•/* 1 write(opl/op2) 
endc ano 

Algorllmo 6.25 Simula si kiikulator sodofhnna (fatal) 


Algoritma 6.25 di alas mengaiulung kcsalahan yang sangat fatal, yaitu jika nilai 
op2 sama dcngan nol karena pcmbagian dcngan nol tidak tcrdeflnisL Karena itu, 
analisis kasas tambahan barns dilakukan untuk kasus operator ’/*. yaitu: 

cane (oprt) 


•/' I 1 [ opj » 0 then 
write(opl/op2I 

else 

write(* ZrorI * I 
endif 

endcaoo 


Algoritma 6.25 di|»erbaiki menjadi Algoritma 6.26 sebagai berikut: 

rHOORAM KaklkulatorSederhana 

f Nonoimulaalkan kalkulator uederhana. yaitu menghltung haoll opomat 
arltmotlka bila dibaca operand _1. operator. d.in operand_2.) 

DEKLARASI 

opl. op2 1 Integer { operand } 

oprt 1 char ( *•', •/* / ( operator } 

ALGORITMA: 

read(opl, oprt. op2) 
caoe (oprt) 

* writ e(opl ♦ op2) 

•-* x write(opl - op2) 

'•* 1 write (opl • op2) 
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•/■ * 


endcase 


if op2 x 0 then 
write(cpi/op2) 
else 

write ( *Ercr!*J 

end! f 


Algoritma 6.26 Simulasl kalkulator sodefhana (dongan penanganan op2 = 0) 


Contoll 6.19. Konstniksi CASE sering digunakan dalam mcmilih menu 
program. Program menawarkan sejumlah menu. Pengguna cukup 
mengetikkan uomor menu yang diinginkan. Setiap kali nomor menu dipilih, 
maka prosedur yang berasosiasi dengan nomor menu tersebut dicksekusi. 
Misalkan sebuah program mcmpunyai menu sebagai berikut: 

HBHU 

1 . Baca data 

2 . Cetak data 

3 . Ubah data 

4 . Ilapuo data 
S. Keluar program 


Buatlah algoritma yang mencctak menu tersebut dan membaca nomor 
pilihan menu. Untuk setiap nomor menu yang dipilih, cukup tnliskan pesnn 
seperti contoh berikut: 

And* mcmilih menu nomor <Mo«norManu> 

yang dalam hal ini <NomorMcnu> adalah nomor menu yang dimasukkan oleh 
pengguna program. 

Pcnyelcsaian 

PROGRAM SimulasiMcnuProgram 

/ Henampllkan menu, mmmhaca pilihan menu, dan oenampiJkan nomoi menu 
yang dipilih oleh pengguna / 

DKKLARASI 

HonorMenu t integer 

ALGORITMA: 

{ Cetak menu } 

write r MKNU • ) 

writer 1 . Baca data *) 

Wrlf (' 2 . Cetak data ') 

writer 3 . Ubah data ') 

wrltcC 4 . Hapun data •» 

writer 5 . Keluar program •) 

writer Moaukkan pilihan anda<l/ 2 / 3 / 4 /Si 7 *> 

read(KomorMcnu) ( baca nooor menu yang akati dipilih ) 

case NomorMenu 

1 : write rAnda mcmilih menu nomor 1 *) 
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2 : write (* Anda rtemilih menu nomor 2') 

3 : w rite !'Anda memilih menu nomor 3') 

4 : wr ite CAnda memilih irenu r.ocaor 4‘) 

5 : write (‘Anda memilih menu corner 5') 
en dcase 

Algorltma 6.27 Simulasi menu program 


Scbagai contoh pengunaan menu program, buatlah algoritma yang 
inemungkinkan pengguna dapat memilih untuk menentukan luas empat 
persegi panjang, keliling empat persegi panjang, dan panjang diagonal. 
Lcngkapi program dengan pilihan menu: 1) Luas. 2) Keliling, 3) Panjang 
diagonal, 4 ) Keluar program. Pada setiap pilihan menu, dibaea panjang dan 
lobar empat persegi panjang, lalu dihitung hasil yang diinginkan pengguna. 

Pcnyclc.suiun 

PROGRAM KmpatPeruegiPanjang 

I Menanpilkan menu perhlcungan empat persegi panjang, memilih menu. 
dan melaknkan proses perhitungsn } 

DBKLARAflX 

llomorMenu 1 Inte ger 

panjang. lobar 1 real 

luan, keliling, diagonal 1 real 

ALGOR TWA: 

/ Cetak menu ) 

{' MKWU EMPAT PERSEGI PANJANG ') 

yrlto f 1 . Hitung luao •) 

write (' 2. Hitung keliling •) 

wgitf C 3. Hitung panjang diagonal •) 

wri ter 4. Keluar program *) 

write!• Maaukkau pilihan anda(1/2/3/417 *) 

r ead (Nomorttenu I 

coon NotnorMenu 

1 1 1 rad(panJang,lebar) 

luaa ♦- panjang*lebar 
write!luao 1 

2 1 rend(panjang,lebarJ 

keliling *- 2 ‘panjang . 2 *lebar 
write (keliling) 

1 1 r?j»d(panjang. lebar) 

diagonal *- oqrt(panjang*panjang ♦ lebar*lebarl 
write(diagonalI 

4 1 write('Keluar program... narpai jumpa') 
midcane 

Algorltma 6.28 Monghllung properti empat persegi panjang dongon pilihon monu, 
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Con to h 6.20. Buatlah algoritma yang mcmbaca nomor hulan dan tahun, 
lalu menuliskan jumlah hari dalam hulan tcrsebut. Misalnya jika dil)aca 
hulan 8 (bulan Agustns), maka jumlah harinya adalnh 31. 

Pcnyelesaian 

Sctiap bulan mcmpunyai jumlah hari yang bcrbeda-beda. Kita harus 
mengidentifikasi bulan-bulan dan jumlah harinya sebagai bcrikut: 


Bulan 

Jumlah hari 

1 , 3 . 5 . 7 .8. 10,12 

31 

4 . 6 . 9 . ll 

30 

2 

29 (jiki tahun kablsat). 28 (jika bukan kabisat 


PROGRAM JuraUhHari 

{ Manencuksn jumlah hail dalam *ntu bulan/ 

DEKLARASI 

nomor_bul«n: integ er ( 1 .. 12 } 
tnhun t inf gar ( * 0 } 

Jumlah hari « integ er 

AWORITMA: 

read (nofaor_buUn. tahun) 
cage nomor^bulan 

1.3.5,7.8.10.12 : jumlah.hari ♦- 31 
4.6.9.11 : jumlahJiarl •- 10 

2 : if (tahun mod 4-0 and tahun mod 100 * 0) or 
(tahun mod 400 • 0) the n (tahun kabiuat) 
jumloh_hari «- 29 
elae /bukan tahun fcabio.it / 

Jumlah_hari *-28 
endl f 

mclcnno 

write (jumlah hari) 

Algoritma 6.29 Menghllung jumlnh hart dalam sniti bulan 
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6.10 Tabel Translasi Notasi Algoritmik 
Struktur Pemilihan ke dalam Notasi 
Pascal dan C 


Kelompok 

Afaoritma 

Pascal 

C 

1. IP-THEN 

if kondisi then 
aksi 
endif 

if komlisi then 
aksi; 

(•endif) 

if (kondisi) 
aksi; 

/•endif/ 



Caftan i toil a 

akal 

lobih dori oatu 
buahi 

if kondui then 
begin 

aksi,; 
aksi a ; 

aksi 

end. f*if •! 

Caftan: bila akni 
lebih dorl oatu 
buahi 

if ( kondisi) 

I 

aksi,; 

aksi 

aksi 

1 


If kimdis, then 
oWi 
>!■< 
aksi,, 

•ndlt 

if kondisi then 
aksi, 

else 

aksi,, 

(•andlf) 

if (kondisi) 
aksi,, 

elae 

uksi t , 

/•endif/ 

1. CASK 

cant* eksprni 
nilai., : aksi k , 
nilui, t aksi ,, 

nilai, i aksi ; 
othcnviw t aksi, 
ondcnne 

cooe rksprrsi of 
rtHai, r aksi , ; 
n/toi, : . | 

ni/oi. t aksi *, 
elee akii , , 

end; 

■witch (ekspresi) 

case mini i aksi,, 
break; 
caae nilai, i aksi,, 
break, 




caae nilai, t aksi,,, 

break/ 

default i akniX/ 

) 



Keternngan. 
nllall, nilel 2 , 

Kotemngant 
nilatlj nllaia. 



odelah mini 

yang bertipo 

integer, 
char,atau 
boolean. 

• • • 

ada 1 ah nilai yang 
bertipo int atou 
char. 
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Contoh-contoh translasi: 

i. Algoritma untuk menentukan apakah scbuah bilangan bulat merupakan 
bilangan genap 

ALGORITMIK: 

PROGRAM HilanganGenap 

] Mencetak peaan •genap' jika sebuah bilangan bulat yang dibaca 
merupakan bilangan genap) 

DKKLARASX 

x t int eger 

ALGORITMA: 
read(x) 

If x mod 2-0 then 
write('genap*) 
end if 


PASCAL: 

PROORAM 01langanGenap; 

f Mencetak penan 'genap' jika aebuah bilangan bulat yang dibaca 
merupakan bilangan genap) 

I • DRK1ARAGI • I 

var x r integer; 

(• ALGORITMA ;•) 

begin 

write ('Ketikkan nombarang bilangan bulat i*|| reedln«x»; 
if x mod 2-0 then 
wrlteln('genap'1; 

I • endi C) 

end. 


C: 

/• PROGRAM BllonganGenap •/ 

/• Mencetak penan "genap' jika aebuah bilangan bulat yang dibaca 
merupakan bilangan genap •/ 

Uinoluda <otd!o.h> 

mainO 

| /•DKKIAPASI •/ 

int bi 1 / 

/• ALGORITMAi •/ 

printf ('Ketikkan oembarang bilangan bulat i•)/ ecenf("Id",fax); 
If IX (2 — 0) 

printf (-genap-); 

/•endif/ 
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2. Menentukan bilangan tcrbesar (maksimum) dari dua buah bilangan 

ALGORITMIK: 

PROGRAM Makoimum 

l Menentukan bilangan terbesar dari dua buah bilangan bulat } 

DKKLARASI 

A, B : Integer 

ALOORITMA: 
read(A,D) 
if A > D then 

write (’Bilangan terbeoar i *. At 
elae ( berarti B 2 A ) 

write!'Bilangan torbeaar : Bl 

end I f 


PASCAL: 

progron Makoimura; 

{ Menentukan bilangan tetbea.it dari dua buah bilangan bulat f 

(•DEKLARAST*) 
var A, B l Integer; 

f•ALOORITMAi •> 

begin 

writer A-?')/ readlnlAlj 
write(’B-?')/ reedln IB)j 
if A > B then 

writelnC Bilangan tarbeaar i ‘. A) 
aloe { D »• A I 

writalnf ‘Bilangan terbeoar t B) j 
(•endif) 

end. 


C: 

/• PROGRAM Makaimum •/ 

/• Menentukan bilangan torbeaar dari dua buah bilangan bulat •/ 
nincludo <ntdio.h» 
malnO 
( 

/•DEKLARAS1•/ 
int A, B; 

/•ALGORJ7XA;•/ 

printf ("A«?" ) j acanf dd-.fcA) ; 
prlntf ("B«?") ; acanf'.Md'.tBI i 
if (A > B) 

printf (’Bilangan tcrbesar : Id-. A); 
elae /• berarti B >• A •/ 

printf {-Bilangan terbeoar : Id'. B); 

/•endifV 

I 
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3- Menentukan jam yang barn setelah ditamhah 1 dotik 
ALGORITMIK: 

PROGRAM JamBerikutnya 

/ Menentukan jan 1 berikutnya aecalah jam ock.ir.mg ditambah 1 decik.} 
DEKLARASI 

type Jam : record *hh: Integer . { 0..S9 ) 
rnn:Integer. ( 0..S9 ) 
do:I nteger { 0..23 ) 

> 

J i Jam 
ALGORITMA: 

rend(J.hh,J.—,J.oo) / baca jam f 

if J.oo ♦ I < 60 then ( OK, tidjk ada masaJah ponambahan i dotik J 
J.no *- J.oo • 1 
oloo / bararci J.oo . i - 60 ) 

J.oo •- 0 { datlk komba 1 1 monjadt nol, men It bertambah 1, tap! 

parikaa duiu apakah man 1C • 1 60 } 

i f J .mm • 1 < 60 then ( OK, Cldak ada maa.il ah ponambahan i manic ) 
J.mm •- J.mm . 1 
•loo { berare1 J.mm * 1 • 60 ) 

J• rm ♦- 0 { manic manjadi nol. Jam bertambah J, tapi perikaa duiu 
apakah Jam • 1 < 24 ) 

IJ J.hh • 1 « 24 then {OK. tidak ada nuaalah panambahon 1 jam f 
J.hh ♦- J.hh* 1 

•loo { bersrei J.hh • i - 24 ) 

J.hh ♦- 0 
endlf 
e nd If 
•ndlt 


write(J.hh,J.mm,J.oo) 


PASCAL: 

program JamBerikutnya; 

{ Manantukan jam berikuenya oecmlah Jam aekarang ditambah 1 detlk.) 

(• DEKLARASI •) 

type Jan - record 

hh:integer; { 0 .. 59 / 
ran: integer; { 0 . . 59 } 
ss:integer; { 0 .. 23 } 
end ; 

var J : Jam; 

(• ALGOR ITHA: •) 

begin 

{ baca jam ) 
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writ* ('jam Ihh) : '); roadln(J.hh); 
wti Co {* menit (mm) : '); readln(J. bo); 
write('detik (so): *); readln(J.ss); 

if J.ss ♦ 1 < 60 then ( OK, tidak ada maaalah penambahan 1 detik ) 
J.bb :■ J.bb ♦ 1 
olae ( berarti J.ss • 1 ■ 60 f 
begin 

J.ss 0; { dot Ik kenbali menjadi nol, menit bertambah 1, tapi 
pcriksa duiu apakah menit * 1 < 60 ) 
if J.rrm t 1 < 60 then ( OK, tidak ada mioalah penambahan 1 menit } 
J.hh :» J.hh ♦ 1 
eleo { berarti J.m * J - 60 ) 
begin 

J.mm 0; { OK, MfllC menjadi nol. jam bertambah 1 , tapi 
perikaa dulu apakah Jam * 1 * 24 ) 


if J.hh » 1 < 24 then (OK. tidak ada maaalah penambahan 1 Jam ) 
J.hh J.hh • 1 
oloo { berarti J.hh • 1 - 24 } 

J.hh 0j 
(endlfj 
end; Ilf) 
end; {it) 

writoln<'Jam yang baru J.hh, ,J.ora..J.uo); 
end. 


C: 

/• PROGRAM JiimRorlkutnya •/ 

/• Menontukan Jam berikutnya aetelah Jam aekarang ditambah 1 dot Ik. •/ 
IIinclude <otdio.h> 

main!) 

( 

/• DEKLARASI •/ 

typodef otruct {int hhj /• 0 .. 5 9 •/ 
int nan; /• 0 .. 5 9 •/ 
int so; /• 0 .. 23 •/ 

)Jam; 

Jam J; 

/* ALGORlTltA: •/ 

/* baca Jam •/ 

printf ("jam (hh) : *); acanf C%d' . 6J .hh) ; 
printf (-menit (mm): -); acanf fid-, iJ.twn); 
printf(-detik (no): "); acanf(-%d*.&J.so); 

if (J.88 • 1 < 60) /• OK. tidak ada masaJah penambahan 1 detik •/ 

J.bb - J.ss • 1; 

eloo /• berarti J.bb * 1 - 60 •/ 

{ 
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J.nn - 0; /• dctik kembali menjadt nol. menic bertambah l, capi 
Perlkaa duJu apakah menit • 1 < 60 •/ 
if l J.mm * 1 « 60 ) /• OK, tidnk a da maaalah panmmbahan l menic •/ 
J.mm • J.mm • 1; 

/• berarCl J.mm • 1 - 60 •/ 

( 

.J.mm - 0;/* raenit menjadi nol, Jam bertambali l, Capi 
perikaa dulu npak.ih Jam • l * 24 •/ 
if (J.hh * 1 * /•OK.tidnk .id a maaalah pennmbahan 1 Jam •/ 
J.hh - J.hh ♦ lj 

•loe /• berarti J.hh • 1 - 24 •/ 

J.hh - 0; 

/•endif/ 


prlntf(-Jam yang botu %dildi%d\n-. J.hh,J.mm,J.on), 


MeiHMitukfln noma bulan bordasakan nomor bulannya 
AIXJORITMIK: 

PPOORAM WnmaBulan 

7 Mencetak nama bulan beidaaarkan nomor bulan (l.. 121} 

DBKLAXAS1 

mor_buian s integer 
ALGORITMA: 

read(nomor_bulan) 
cone nomor_bulan 

1 : write rJanuari*) 

2 s write('Pefcruarl•) 

3 : write (' Marat *) 

4 i write l'April *) 
s ; write('Hel') 

6 I writer Juni') 

7 i write('Juli') 

a : write r Ague tue*) 

9 i writ er September') 

10 » write r Ok tober' > 

11 : writo( ' November') 

12 i write CDcBember') 

otherwine : write (‘Bukan bulan yang benar*) 
endcase 


PASCAL: 

program KamaBulan; 

( Ncncctak name bulan berdaoarkan nomor bulan (1..12)} 

<• DBKLARASI •) 
var 

nomor_bulan : integer; 
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(• ALGORITMAx •) 

begin 

write (' Kotikkan nooor bulan (1-12); •; readlnlnomor_bulan>; 
caaa nomor_bulan of 

1 : writeln(*Januari'); 

2 s wrltain ( 'Februar!* ) / 

3 : writeln('Maret') ; 

4 t Britain('April'); 

5 « writeln('Mel')| 

6 : writelnl'Juni*J; 

7 i writeln('Jull'); 

8 i wrltoIn ,' Acjuuciui ’ ) ; 

9 j writeln{'September'); 

10 t writeln('Oktober’); 

11 s writeln('November'); 

12 i writelnDecember'); 

alee writeln('Bukan bulan yang benar’>, 

and i 
and. 


C: 

/• PROGRAM NAMA HAMA BULAN •/ 

/• Mttncetak nama bulan berdaaarknr; nooor bulan II.. 12/ •/ 
nInclude «atdlo.h> 
main () 

I 

/• DKKLARASI •/ 
lnt nomor bulnn, 

/• ALGOFITMA: •/ 

printf f-Maoukkan angku bulan |l-)3)i*h acanf("%d", fcnot*or_bulan) / 
awlteh (AngkaDulan) 

( 

caoa 1 i prlntf ("Januari \n"|; break; 

caaa 2 i prlntf ("Februar1 \n*); break; 

caae 1 i prlntf ("Haret \n*); break; 

caoa 4 i prlntf ("April \n" )/ break; 

caae 5 j prlntf ("Mel \n"li break; 

caae 6 : prlntf ("Junl \n")/ break; 

caae 7 j prlntf ("Jull \n")< break; 

caae 8 ; prlntf ("Aguatus \n")j break; 

caaa 9 t prlntf ("September \n")r break; 

caae 10 : prlntf ("Oktober \n"l; break; 

caae 11 > prlntf( "November \n") ; break; 

caae 12 > prlntf( "December \n") ; break; 

default i prlntf ("Bukan bulan yang benar \n">; 
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5 . Algoritma menu empat persegi panjang 

ALGOR1TMIK: 


PROGRAM EmpatPersegiPanjang 

/ Nenampilkan menu perhitungan empat persegi p-anjang , memilih menu, 
dan melakukan proses perhitungan ) 

DEKLARASI 

NomorManu : integer 

panjang, lebar : real 

luao, kellling, diagonal t real 


ALGORITMA: 

( Cetak menu J 

writer HBtlU EMPAT PERSEGI PANJANG 

writer 1. Hitung luao 

(' 2. Hitung kelillng 

writer 3. Hitung panjang diagonal 

writer 4. Keluar program 

writer Honukkan pilihan anda (1/2/3/41 ? 
road(NomorManu) 

*) 

*) 

*1 

•) 

•i 

•) 

cane NomorManu 

1 i read(panjang.lebar) 

luao •- panjang • lebar 
write(luao) 


2 i read(panjang,lebar) 

kelillng ♦- 2 *panjang • 2 *lebar 
write(Kelillng) 


3 i read(panjang.lebar) 

diagonal ♦- oqrt(panjang*panjang • 
write(diagonal) 

lebar*lebar) 

4 i write('Keluar program*) 
endcaoo 



PASCAL: 

program KmpatPeraeglPanjangj 

I Nonamp Ukan menu pexhxtungan empat pexaogl panjang, meoJJih menu, 
dan melakukan proeea perhitungan } 

(• DKKLARA51 »J 
var 

NomorManu s integer; 
panjang, lebar i real; 
luao, kelillng, diagonal : real; 

(• ALGORITNAi •) 

bagin 

( Cctak menu ) 

writeln (• MENU EMPAT FERSEGI FANJAJJ3 
writeln(' 1. Hitung luao 


*); 
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wrickin'.' 2. Hlcung keliling * ) i 

writeln (' 3. HiCung panjang diagonal '); 

writelnC 4. Keluar program *); 

write C Maoukkan pilihan anda (l/z/3/4) ? *); readln (NomorMenu) ; 

caaa MomorMonu of 

1 : bogln 

writo (* Pnnjang? •>; readln(panjang); 

write ('Lcbar? '); readln debar); 
luao panjang • lobar; 
writeln (’Luas - *,luao); 

end; 

2 : begin 

write ('Panjang? •); readln(panjang); 
writoCLebar? •); readln debar) ; 
keliling :■ 2 -panjang ♦ 2 *lebar; 
writeln ('Keliling - ’.keliling); 
ond; 

3 ■ begin 

write ('Panjang? '); readln (panjang); 
write ('Lobar? ’); readln debar) ; 
diagonal aqrtIpanjang-pnnjang ♦ lebar*lebar)i 
writeln ('Diagonal > diagonal); 

end; 

4 i writeln! 'Keluar program'); 

end; 

end. 


C: 

/• PROGRAM BmpatpersegiPanjang •/ 

/• Henampilkan menu perhitungan empat persegi panjang. memilih menu, 
dan nclakukan proses perhitungan •/ 

Vinclude <atdio.h> 

mainO 

( 

/• DBKUiRASI •/ 
int NomorMenu; 
float pnnjang, lobar; 
float luao. keliling. diagonal; 

/• ALGORITMA: •/ 


/• Cetak menu •/ 

printfC MENU BMPAT PERSEOI PANJANG \n">; 
printfC 1 . Hltung luao \n"); 
printfC 2. Hitung keliling \n m ) ; 
printfC J- Hitung panjang diagonal \n’); 
printfC 4. Keluar program \n“); 


printfC Mneukkan pilihan anda(l/2/3/4) ? -)» 
acamf Cld' , 4NomorMenu); 

awitcb (NomorMenu) 
ran 1 I ( 

printf (-Panjang? -); acanf Clf •. ipanjong) ; 


IS I 
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print* <"Lebar? '); ■c«nf ( -If- .ilebar); 
luaa - panJang * lebar; 
print* CLuas • I* \n".luaa>; 

break: 

) 

caoe 2 : { 

print* ("Panjang? •); acan* ("If "fcpanjang)/ 
print* ("Lebar? "); acan* (Mf'Hebar) ; 
keliling - 2*pan)ang * 2*lebarj 
print* ("Keliling - If \n".keliling); 
break; 

} 

caae 3 : { 

print* (" Pan] ar.g? ">/ a can* ("If ’ipanjang) / 
print* ("Lebar? "I; ecan* ("If" ilebar)j 
diagonal • aqrt( (double) panjang*panjang • 
(double) lebar • lebar); 
print* ("Diagonal • If \n",diagonal); 

break; 

) 

caae 4 i print* ("Keluar program \n")j 

break; 


6. Algoritma untuk mcncctak n.imn-namn provinsi bill diberikin nnma ihu 
kola di Pullu Jaws 

ALGORJTMIK: 

PROGRAM NamaPropinoi 

f MencetMk naiM propinai Jtka dibcrlkan name ibukoea ptovinai di pul.tu 
Java. } 

DBKLARASX 

ibk s atrlnq { nama ibukota ptovinai di Java J 

ALGORITMA: 
read Iibk) 
caaa ibk 

• n« rang * i write(•Bant en•) 

•jakarto’ i writeCDK1 Jakarta’) 

‘bandung’ i write(’Java Barat’) 

•acmareny’ i yrito(’Java Tnngah*) 

■yogyaknrta’i write CD I Yogyakorta') 

'nurobnyn* i wrlteCJawa Timur’) 

ondcaa e 
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PASCAL: 


Konstmksi CASE di dalam algoritma ini tidak dapat diterjcmahkan menjadi 
case, karena nilai konstanta dari ibk berlipe string. Karens itu, konstruksi 
CASE hanya dapat diteijemahkan menjadi konstruksi IF-THEN-ELSE. 

program IBUKOTA; 

( Diberikan nama ibukota provinai di pulau Java. Harua ditantukan 
nama 

provinginya ) 

{• DEKLARASI •) 
var 

ibk t otring(lO); / nama Ibukota provinai di Java ) 

(• ALGORITMA: •) 

bagin 

writ*(• Katlkkan nama Ibukota dl Jawat'J; toadlnUbk); 
if ibk •'ocrang* than 
vritaln('banten') 
elae 

if ibk • ‘Jakarta' than 
vritaln('OKI Jakarta') 

alaa 

if ibk * 'bandung 1 than 
vritaln('Java Barat') 

alaa 

if ibk • 'oemarang* than 
vritaln(* Java Tengah') 

alaa 

if ibk - 'yogyakarta' than 
vritaln(‘DI Yogyakarta') 


alaa 

if ibk • 'aurabaya* than 
vritolni'Java Tiour')/ 
(endlf) 

(endif) 

(endif) 

(endlf) 

(endif) 

(endif) 


C: 

/• PROGRAM IBUKOTA •/ 

/• Diberikan nama ibukota provinai di pulau Java. Harua ditentukan 
naira provinsinya •/ 

Binclude <atdio.h> 

nincluda <atrlng.h> /• ayarat menggunakan fungoi otrcr*) •/ 
main() 

{ /• DEKLARASI •/ 

char ibk(10)j /• nama ibukota provinai di Java •/ 
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/• AMJORITHAi •/ 

prlntf ("Ketlkkan nam* lbukota di Jaw*:')j aeud’la’ , ibfc)» 
if (otrenpUbk,'oerang'l •• 0 ) 

prlntf (• Uant.cn \n")j 

•la* 

if (otrcmp(xbk,"Jakarta*) — 0) 
printf(“OKI Jakarta \n“lf 

• loo 

if (otrcmp(Ibk,"bendung") -- 01 
printf(-Java Barat \n")/ 

•loo 

if letrcmpt lbk, •’semarang") «• 0) 
printf('Java Tengah \n“I; 

elee 

if (etrccp(ibk,"yogyakarta"I •• 01 
prinefi-DI Yogyakarta \n*lj 

•laa 

if (otrcmp(ibk.^nurnbaya" •• 0 ) 
printf(-Java Timur \n*)i 
/•audit 4 / 

/•andlf/ 

/•audit*/ 

/•audit 4 / 

/•audit*/ 

/•audit*/ 


Catalan: 

Fungsi otrcmp membondingkan kesamaan duo buah string. Nilai 
strcmp (ai . o2) soma dengan o jika oi • o2, dan tidak sama dengan o jika 
si *o 2 . 

7. Algoritnin untuk nicncntuknn jumlnh hari dnlam satu bulan 

ALOOR 1 TMIK: 
program JuinlaliHari 

7 MenentuJcan jumiefi hari dm Jam u-itu bulmn} 

DIKLARAS: 

nomor_buUm integer 
tahun i integer ( * 0 ) 
juml«h_hnri i integer 

ALQORITMA: 

read(noroor_bulan, tahun) 
capo nomor_bulan 

1 , 3 , 5 , 7 ,•, 10,12 : Jumlah_horl •- 31 
4 , 6 . 9,11 s jumlah_hari *- 30 

2 : If (tahun mod 4.0 and tahun mod 100 » 01 or 
(tahun mod 400 - 0)) then J t.%hun kablaat } 
jumlah hari «- 3 * 
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fbuk.tn C ahun kabioat } 
jumlah_hari ♦- 20 
end if 

endcano 

vrito(jumlah hari) 


PASCAL: 

program JumlahHari 

{ Hencntuk.m jumlah hari dalan oatu bulan) 

CDBKLARASI:•) 

var 

r.ooor_bulan: integer; { 1 .. 12 ) 
tahun : integer; { > 0 ) 

3 ura\ah_hari : integer; 

(•ALOOPltMAi •) 

begin 

write(‘ fiuiau ( 1 - 12 )?’) i readln (nomor.bulan) , 
write r Tahun?'), readln(tahun), 
case nomorbulan of 

1.3,5,7,8,10,12 i Jumlah hari i- 31, 

4,6,9,11 , Juwlahharl 30, 

2 , If ((tahun sod 4 - 0) and (tahun nod 100 «> 0)) 

or (tahun mod 400 • 0) 
then { tahun kabUat ) 
jumlah_har1 29 

elae fbukan tahun kabisat ) 
jumlah hari ;■ 2B; 

{audit} ~ 

end; (c/tuo) 

vriteln I' Jumlah hari dalam bulan ’, nomor bulan, 

• ad.i 1 all * . jumlah hari ) , 

end. 


C: 

/• PROGRAM JumlahHari •/ 

/• Mvnantukan Jumlah hari dal* in oatu buiari •/ 

a include <otdiu.h> 

main() 

( 

/• DBKLARA3I •/ 

int nomor_bulan; /* 1..J2 •/ 
int tahunj /•><)•/ 

int jumlah_harl, 


/• ALGORtTHA: •/ 

printf cuulan ( 1 - 12 )?-), ecanf("Id",fcnomor.bulan), 
printf <"Tahun?"), acanfCId-, fciahun), 

•witch (nomor_bulan) 
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case 1: 
caoo 3: 
case 5s 
case 7: 
caaa 8: 
caoo 10s 

caao 12 : 

junloh_harl ■ 31; 

break. 

caoo 4 i 
caaa 6: 
caao 9s 
caaa 11s 

Jumlah_harl # 30; 

braak; 

caaa 2s if ({tahun 4 4 -- 0 fcfc tahun I 100 i- 0) || 
Cahun 4 400 • • 0) 

/• cahun kabisac •/ 

Jumlnhharl • 29; 

alaa 

/* bukan tahun kablaae •/ 

jumlah harl • 28 ; 

/•endlf•/ 


prlntf (“Jumlah had da lam bulan Id adalah Id'. 
nomor_bulan.ju»lah_harU; 


Soal I.atih.m Hah 6 

1. Buatloh algoritma yang mcmbaca scbuah bilangan bulat positif lalu 
moncntukan apakab bilangan tersebut merupakan kclipatan 4. 

2. Pasar swalavan X memberikan diskon barga bagi pembeli yang nilai 
total belanjanya lebih dari Kpion.noo. Tulislah algoritma nntuk 
mencntukan barga helanja setelah dikurangi diskon. Data masukan 
adalah nilai total helanja pombeli. scdangkan keluarannva adalab diskon 
barga dan nilai helanja sctelab dikurangi diskon. 

3. Tulislah algoritma yang membaca tiga buah bilangan bulat. lalu 
mengurutkan tiga buah bilangan tersebut dari nilai yang kecil kc nilai 
yang besar. Keluaran adalah tiga buah bilangan yang temrut. 

4. Tulislah algoritma yang membaca panjang ( integer ) tiga buah sisi scbuah 
segitiga. a, b, dan c, yang dalam bal ini ci £ b £ c. lalu mencntukan apakab 
ketiga sisi tersebut membentuk segitiga siku-siku. segitiga lancip, atau 
segitiga tumpul (Pctunjiik: gunakan hukum Phytagoras). 

5. Tulislah algoritma yang membaca scbuah karakter digit Co’-V) lalu 
mengonversinva menjadi nilai integer (0..9). Misalnya. jika dibaca 
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karakter ‘5’, maka nilai konversinya ke integer adalah 5. Buatlah masing- 
masing algoritma untuk dua keadaan berikut: 

(a) karakter digit yang dibaca diasumsikan sudah benir terietak dalam 
rentang *o\.'9’ 

(b) karakter yang dibaca mungkin bukan digit *o\.'9\ Jika karakter yang 
dibaca bukan karakter digit, maka basil konversinya diasumsikan 
bemilai -99. 

6. Jika kita berbelanja di pasar swalayan/supermarket, nila total belanja 
kita seringkali bukan kelipatan pecahan rupiah yang berlaku. Misalnya, 
nilai total belanja adalah Rpi9.2i2,-. Andaikan saat ini pecahan rupiah 
yang berlaku paling kedl Rp25,-. Selain itu, juga ada pecahan Rpso,- 
dan Rpioo,-. Umumnya kasir pasar swalayan membulatkan nilai belanja 
ke pecahan yang terbesar. Jadi Rpi9.2i2,- dibulatkan menjadi 
RP19.225,-. Hal ini jelas merugikan konsumen. Misalkan Anda memilild 
pasar swalayan yang jujur dan tidak memgikan pembeli, sehingga jika 
ada nilai belanja yang bukan kelipatan pecahan yang ada, maka nilai 
belanja itu dibulatkan ke pecahan terendah. Jadi, Rpi9.2i2,- dibulatkan 
menjadi Rpi9.200. Tulislah algoritma yang membaca nilai belanja 
(integer) lalu membulatkannya ke nilai uang dengan pecahan terendah. 

7. (a) Tuliskan algoritma yang membaca bilangan bulat positif dalam 

rentang 1 sampai 10, lalu mengonversinya ke dalam angka romawi. 
(b) Kembangkan algoritma (a) di atas sehingga dapat mengonverei 
bilangan bulat positif sembarang ke dalam angka romawinya. 

8. Dalam bidang pengolahan citra (image processing), elemen gambar 
terkedl disebut pixel (picture element). Nilai pixel untuk gambar 256 
wama adalah dari o sampai 255. Operasi-operasi terhadap pixel 
seringkali berada di luar rentang nilai ini. Jika ini kasusnya, maka nilai 
hasil opera si harus dipotong (clipping) sehingga tetap berada di dalam 
interval [0..25]. Jika nilai hasil operas! lebih besar dari 255, maka nilai 
tersebut dipotong menjadi 255, dan bila negatif maka dipotong menjadi 
o. Dibaca sebuah nilai hasil operas! pengolahan citra, buatlah algoritma 
untuk melakukan clipping tersebut 

9. Tinjau kembali soal latihan Bab 5 nomor 10 untuk menentukan berat 
badan ideal. Dibaca berat badan dan tinggi badan seseorang. Tulislah 
pesan “ideal’ jika berat badan orang tersebut hanya berselisih ±2 kg dari 
berat badan ideal, atau pesan “tidak ideal" jika tidak berselisih ± 2 kg dari 
berat badan ideal. Tulislah algoritmanya. 

10. Tuliskan ke dalam bahasa Pascal dan C untuk algoritma soal nomor 1 
sampai nomor 9 di atas. 
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u 

Pengulangan 



Berputar terns bervlang kali.f Sumbmr: w*w rt-*hpltn+wor1d.comf 


Salah satu kelebihan komputer dibandingkan dengan manusia adalah 
kemampuannya untuk melaksanakan suatu perintah berulangkali tanpa 
mengenal lelah dan bo&an. Di dalam algoritma, pengulangan atau kaJang 
(repetition atau loop) dapat dilakukan sejumlah kali, atau sampai kondisi 
berhenti pengulangan tercapai. Bab 7 ini membahas struktur pengulangan. 
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7.1 Struktur Pengulangan 

Struktur pengulangan secara umum tcrdiri alas dua bagian: 

1. kondisi pengulangan, yaitu elcspresi boolean yang hams dipenuhi untuk 
melaksanakan pengulangan. Kondisi ini ada yang dinyatakan secara 
eksplisit oleh pemrogram atau dikelola sendiri oleh komputei (implisit); 

2. badan {body) pengulangan, yaitu bagian algoritma yang diulang. 

Di samping itu, struktur pengulangan biasanya disertai dengan bagian: 

1. inisialisasi, yaitu, aksi yang dilakukan sebelum pengulangan dilakukan 
pertama kali; 

2. terminasi, yaitu, aksi yang dilakukan setelah pengulangan selesai 
dilaksanakan. 

Inisialisasi dan terminasi tidak selalu harus ada, namun pada berbagai kasus 
inisialisasi umumnya diperlukan. 

Stmktur pengulangan secara umum: 

<inisialisasi> 
awal pengulangan 
badan pengulangan 
akhir pengulangan 
< terminasi > 

yang dalam hal ini awal dan akhir pengulangan dinyatakan sebagai kata kund 
yang bergantung pada konstmksi pengulangan yang digunakan. Selain itu, 
<inisialisasi> dan <terminasi> adalah bagian yang opsional (tidak selalu 
hams dituliskan). 

Di dalam algoritma terdapat beberapa macam konstruksi pengulangan yang 
berbeda. Beberapa konstmksi dapat dipakai untuk masalah yang sama, 
namun ada konstmksi pengulangan yang hanya cocok dipakai untuk 
masalah tertentu. Pemilihan konstmksi pengulangan untuk masalah 
tertentu dapat mempengaruhi kebenaran algoritma. Pemilihan konstmksi 
pengulangan yang tepat bergantung pada masalah yang akan diprogram. 
Buku ini hanya memberikan 3 macam notasi konstmksi pengulangan dalam 
bentuk pemyataan {repeat N times tidak dibicarakan), yaitu: 

1. Pemyataan FOR; 

2. Pemyataan WHILE ; 

3. Pemyataan REPEAT. 

1 . 

Pemyataan FOR adalah konstmksi pengulangan tanpa kondisi 
{unconditional looping), artinya instruksi-instmksi di dalam badan 
pengulangan diulangi sejumlah kali yang dispesifikasikan oleh pemrogram. 
Dalam hal ini, jumlah pengulangan sudah diketahui sebelum konstmksi 
pengulangan eksekusi. 
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Pada sebagian besar masalah, jumlah pengulangan tidak diketahui sebelum 
eksekusi program. Yang dapat ditentukan hanyalah kondisi berhenti 
pengulangan, artinya instruksi-instruksi di dal am badan pengulangan 
diulangi sampai kondisi berhenti terpenuhi. Jenis pengulangan ini termasuk 
ke dalam pengulangan dengan kondisi (conditional looping ). 
Pemyataan WHILE dan REPEAT termasuk ke dalam jenis pengulangan ini. 
Masing-masing konstruksi pengulangan dijelaskan pada upa-bab berikut. 


7.2 Pernyataan FOR 

Konstruksi FOR digunakan untuk menghasilkan pengulangan sejumlah kali 
yang telah dispesifikasikan. Jumlah pengulangan diketahui atau dapat 
ditentukan sebelum eksekusi. Untuk mencacah berapa kali pengulangan 
dilakukan, kita memerlukan sebuah peubah ( variable ) pencacah (counter). 
Peubah ini nilainya selalu bertambah satu setiap kali pengulangan dilakukan. 
Jika cacah pengulangan sudah mcncapai jumlah yang dispesifikasikan, maka 
proses pengulangan berhenti. 

Bentuk umum pemyataan FOR ada dua macam: menaik ( ascending) atau 
menurun ( descending ): 


FOR menaik: 

for pencacah nllal_av«l to nllai_akhir do 

akai 

andtor 


Ketcrangan: 

(i) pencacah haruslah dari tipe data yang memilfla predecessor dan successor, 
yaitu integer atau karakter. Tipe nil tidak dapat digunakan sebagai pencacah. 

(ii) aksi dapat berupa satu atau lebih instruksi yang diulang. 

(Hi) nilai_awal harus lebih kedl atau sama dengan nilaLakhir. Jika nilai_au>al 
lebih besar dari nilai_akhir, maka badan pengulangan tidak dimasuki. 

(iv) Pada awalnya, pencacah diinisialisasi dengan nilai^awal. Nilai 
pencacah secara otomatis bertambah satu setiap kali badan pengulangan 
dimasuki, sampai akhimya nilai pencacah sama dengan nilaLakhir. 

(v) Jumlah pengulangan yang teijadi adalah nilai_akhir - nilai_awal + x. 


Contoh 7.1. Sebagai contoh pertama, misalkan kita ingin mencetak pesan 
"Hello, world" sebanyak 10 kali, maka algoritmanya adalah: 

PROORAN CotakBanyak_He11oHorId 
/ Mencotak 'Kollo 00rid' aehanyak 10 kali ) 


DBKLARASI 

1 1 integer / pencacah pengulangan ) 
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ALGORITMA: 

for i f- l to 10 do { ulangi aebanyak 10 kali ) 
write r Hello, world') 
endfor 

Algorltma 7.1 Moncelak pesan *Helk>. world* sobanyak 10 kali (Vorsi FOR). 


Perhatikan Algoritma 7.1 di atas: 

• jumlah pengulangan sudah ditentukan sebelumnya, yaitu 10 kali, 
sehingga kita dapat mcnggunakan pemyalaan FOR. 

• badnn pengulangan hanya berisi satu buah pemyalaan, yaitu 
w rite ('Hello, world') 

• i adalah peubah pencacah yang bertipe integer 

• pada mulanya i bemilai 1; nilai i selalu bcrtainbah 1 setiap kali pengulangan 
dilakukan, snmpai akliimya i mencapai 10. yang berarti proses pengulangan 
sclcsai. 

• jumlah pengulangan yang dilakuknn: 10 - 1 ♦ 1 ■ 10 kali 

Keluaran dari Algoritma 71 adalah pesan "Hello, world' sebnnvak 10 kali 
seperti di bawah ini (asumsikan setiap pesan ditulis pada setiap baris): 

Hello, world 
Hello, world 
Hollo, world 
Hollo, world 
Hollo, world 
Hollo, world 
Hollo, world 
Hollo, world 
Hello, world 
Hollo, world 


Contoh 7.2. Misalkan kita ingin mencetak angka 1, 2.H di layar, dengan 

satu angka pada setiap baris. Algoritnianya sebagai berikut: 

PROGRAM CetaklSampal10 
( Mancatak 1. 2. .... 10 J 

DEKLARASI 

i i integer 
ALGORITMA: 

for i •- 1 to 10 do I ulangi aobanyak 10 kali ) 
write (1) 
endfor 

Algoritma 7.2 Mencetak angka 1 sampai 10 (dongan FOR). _ 


Perhatikan Algoritma 7.2 di atas. Angka-angka yang dicctak bersesuaian 
dengan nilai pencacah pengulangan. Ketika cacah i bemilai 1. angka 1 


ail 
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dicetak, ketika pencacah i bemilai 2, angka 2 dicetak. Jadi, instruksi yang 
diuJang cukup kita tulis writc (k). 


Keluaran dari algnritina di atas adalah angka 1 sampai 10 seperti di bawah 
ini (asumsikan setiap angka ditulis pada setiap bans): 

1 

2 

3 

4 

5 

6 
7 

B 

9 

10 


Contoh 7.3. Contoh lebih umum dari Contoh 7-2 di atas, misalkan kiln 

ingin mencetak angka 1, 2.AT. yang dalam ha I ini nilai N dibaca tcrlebih 

dahulu, maka algoritmanya menjadi: 

PROGRAM Cm. ak ISampa t N 

7 Mencetak 1, 2 . M ) 

DEKLARASI 
N 1 integer 
1 1 Integer 


ALGORITMA: 
read IN) 

for i «- 1 to II do f uliingl eebanyak N kali f 

Wite tl) 

endfor 

Algorllmo 7.3 Moncolnk angka 1 sampai N (vorsl FOR) 


Pert any a an: 

Apa yang terjadi bila N * o? N ® -1? N « 1? 

Jawab: 

Jika N = o atau N - -1, proses pengulangan tidak tcijadi, karena nilai akhir 
pencacah pengulangan lebih besar dari nilai awalnya (1). 

Jika N ■ t, pengulangan yang terjadi hanya 1 kali, karena 1 - 1 + 1 ■ 1. 

Contoh 7.4. Misalkan kita ingin menghitung jumlah angka-angka dari deret 1 
sampai N, yaitu: 

1 . 2 ♦ 3 ♦ - ♦ N 
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Nilai N dibaca terlebih dahulu. Misalnya, bila .V = 5, maka jumlah angka dan 
1 sampai 5 adalah deret 

» . 2 . 3 . 4 » 5 - 15. 

Algoritma pcnjumlahan deret sebagai berikut: 

Inti dari masalah ini adalah penjumlahan deret bilangan. Untuk menghitung 
jumlah deret. kita memerlukan sebuah peubah yang mencatat hasil 
penjumlahan, misalkan namanya jumlah. Sebelum penjumlahan dimulai, 
jumlah diinisialisasi dengnn o: 

jumlah ♦- 0 

Pada setiap kali pengulangan, kita menjumlahkan angka sekarang dengan 
jumlah deret. Jika angka sekarang adalah i, maka pemyataan penjumlahan 
adalah 

Jumlah +- Jumlah » 1 


Pemyataan penjumlahan ini diulang sehanyak N kali, yaitu sebanyak angka 
yang dijtimlahkan. Proses penjumlahan ini kita analogikan sebagai berikut: 
misalkan kita niempunyal sebuah kotak (analogi dari peubah jumlah). Mula- 
mula kotak dalam kcndnnn kosong (analogi dari pemyataan jumlah«-o). Kita 
akan mcmasukkan jeruk (analogi dari i) kc dalam kotak sccara bertnhnp. 
Dimulai dengnn mcmasukkan 1 buah jeruk, 2 buah jeruk, dan seterusnya 
sampai ternkhlr mcmasukkan N buah jeruk. Setiap kali mcmasukkan i buah 
jeruk ke dalam kotak berarti menambah isi kotak sebanyak i (analog dari 
pemyataan jumlah «- jumlah ♦ i). Karenn jeruk dimnsukkan hcrulnng- 
ulang sccara bertnhnp. maka ini berarti pemyaatan jumlah «- jumlah ♦ i 
dicksckusl bemlong-ulang sebanyak n kali. Dengan menggunakan 
pemyataan IX)R, maka pengulangan tersebut ditulis menjadi: 

for 1 ♦-1 to h 

Jumlah «- Jumlah • i 
endfor 

Algoritma penjumlahan deret selengkapnya adalah: 


PRCXJHAM Pen J uml ahanDere t 

1 Menjimlahkan deret 

1 • 2 ♦ J • - ♦ IT 

dengan N adalah bilangan buJat posieif. Nilai N dibaca terlebih dahulu.f 

DEJOARASI 

N 1 integer 

1 : Integer 

Jumlah t Integer 


ALGOR ITMA : 
read (H) 
j umlah ♦- 0 
tor 1*- 1 to IT 

( initiallsaai jumlah deret dengan 0 } 

1 ulangi penjumlahan deret sebanyak N kali ) 
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juialah *— jumlah ♦ i 
endfor 

write (jumlah) 

Algoritma 7.4 Menjumlahkan 1 ♦ 2 ♦ „ * N (versi FOR) 

Contoh 7.5. Misalkan kita ingin menghitung nilai rata-rata dari N buah 
data bilangan bulat yang dibaca dari papan ketik. Nilai rata-rata adalah 
jumlah selurub data dibagi dcngan banyaknya data. Misalkan jika N = 5 dan 
data bilangan yang dibaca berturut-turut adalah 12, to, 6. 2, 4, maka nilai 
rata-ratanya adalah (12 + 10 + 6 + 2 + 4)/5 * 34/5 * 6.8. 

Inti dari masalah ini adalah mcmbaca data dan mcnjumlahkanuya. Proses 
membaca dan menjumlahkan dilakukan sehanvak S kali. Cara penjumlahannya 
sama sepcrti puda Contoh 74- Jika pencatat hasil penjulahan adalah peubah 
jumlah dan data yang dibaca adalah x. maka tambahkan x ke jumlah dcngan 
pemvataan: 
jumlah ♦- jumlah • x 

Algoritma selcngkapnya sebagai berikut: 

PROGRAM HiCuiigHataRaCa 

f Menghitung rata-rata N buah bilangan bulat yang dibaca dari papan 
ketik. N » 0 ) 

DBKLARASr 

U t integer / Jumlah data. * 0 I 

x i intogor bilangan bulat yang dibaca dari papan ketik \ 

1 : intogor pencacah banyaknya pengulangan } 

jumlah i intogor paneat at jumlah nilai ) 

rorata i real rata-rata nilai I 

ALGORITMA i 
read(N) 

jumlah *-0 ( Intatalteam penjumlah oalutuh nilai } 

for t 1 to M do 
“ road(xl 

jumlah «- Jumlah « x 
endfor 

rorata «- jumlah/N 
write(rorata) 

Algoritma 7.5 Menjumlahkan N buah bilangan bulat yang dibaca d hi papan V unci 


Pencacah pengulangan tidak hams bertipe integer. Tipe lain pun dapat 
dijadikan sebagai pencacah asal tipc tersebut memiliki ketemmtan (ada 
predecessor dan successor - lihat Bab 3 pada bagian penjelasan tipe integer 
dan char). Bilangan bulat dan karakter adalah tipe data yang memiliki 
predecessor dan successor. Bilangan riil tidak mempunvai predecessor dan 
successor karena itu ia tidak dapat dipakai sebagai pencacah. 


Bab 7 - Pengulangan 


http://www.pakteguh.com 


Contoh pengulangan dengan pencacah bukan bilangan bulat misalnya: 

for i «- to '■>' do 
write (1) 
endfor 


yang dalam hal ini, sebagai pencacah pengulangan adalah i yang bertipe karakter. 

Adakalanya kita melakukan pengulangan dengan cacah yang menurun, yaitu 
dari nilai cacah yang besar ke nilai cacah yang kecil. Untuk memfasilitasi hal 
ini, maka kita mendefinisikan strukturfOK menurun. 

FOR menurun: 

for pencacah ♦- nilaiokhir downto nilal_awal do 
akei 

y*lsz. 

Keterangan: 

(i) pencacah haruslah dari tipe data yang memiliki predecessor dan successor, 
yaitu integer atau karakter. *npe riil tidak dapat digunakan sebagai pencacah. 

(ii) aksi dapat berupa satu atau lebih instruksi yang diulang 

(iii) nilai_akhir hams lebih besar atau sama dengan nilai_awal. Jika nilai_akhir 
lebih kecil dari mlai_awal, maka badan pengulangan tidak dimasuki. 

(iv) Pada awalnya, pencacah diinisialisasi dengan nilai_akhir. Nilai 
pencacah secara otomatis berkurang satu sctiap kali badan pengulangan 
dimasuki, sampai akhimya nilai pencacah sama dengan nilai_awai 

(v) Jumlah pengulangan yang teijadi adalah nilaLowal - nilai_akhir + 1. 

Contoh 7.6. Sebuah roket diluncurkan dengan hitungan mundur, mulai 
dari 100,99,98,.... o. Algoritma perhitungan mundur adalah: 

PROGRAM PeluncuranRokot 
I Hitung mundur poluncursn roket J 

DBKLARASI 
i 1 in teg er 

ALGORITMAi 

for 1 «- 100 downto 0 do 
wrlte(l) 
endfor 

write('Ool') { roket meluncur pada saat hitungan 0 ) 

Algoritma 7.6 PerhHongan mundur untuk peluncuran roket (versl FOR). 


Kita dapat membuat kelambatan waktu {delay) antara satu hitungan dan 
hitungan selanjutnya dengan penggunaan FOR bersarang {nested FOR ) 
seperti pada algoritma di bawah ini: 

PROGRAM PeluncuranRoket / 

{ Hitung mundur poluncursn roket } 


132 : 
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DKKLARA 5 I 

i, p i integer 

ALGORIIWA: 

for i ♦- 100 downto 0 do 
~1 delay ) 

for p «- 1 to 1000 to 

7 kooong, Cldak malakukan spa-ape J 
endfor 

write(i) 

•ndfor 

write (*Gol *) { rokeC ir.eluncur pada bitungan 0 ) 
Ajgoritme 7.7 Peftiltungan mundur untu k pefcjncuran roke( dengan dolay 


FOR terluar “diputar" sebanyak 101 kali, sedangkan FOR terdalam “diputar" 
sebanyak 1000 kali. Untuk setiap "putaran" FOR terluar, FOR terdalam 
dieksekusi - sebanyak 1000 kali. Jika setiap putaran FOR terdalam 
membutuhkan waktu a detik, maka 1000 putaran membutuhkan waktu 
toooa detik. Inilah yang disebut dengan delay. 


7.3 Pernyataan WHILE 

Bentuk umum pernyataan WHILE adalah: 

whU< kondlml do 
aka l 

•^dwhlla 


Keterangan: 

aksi akan dilaksanakan bemlangkali selama kondisi bemilai true. Jika kondisi 
bemilai false, badan pengulangan tklak akan dimasuki, yang beraiti 
pengulangan selesai. Kondisi di akhir pengulangan (setelah endwhile ) disebut 
loop invariant, yaitu variabel kondisi yang nilainya sudah tidak berubah lagi. 

Yang harus diperliatikan adalah pengulangan harus berhenti. Pengulangan 
yang tidak pernah berhenti menandakan bahwa logika algoritma tersebut 
salah. Pengulangan berhenti apabila kondisi bemilai false. Agar kondisi 
suatu saat bemilai false, maka di dalam badan pengulangan harus ada 
instruksi yang mengubah nilai kondisi. Kita memakai kcmbali enam contoh 
pengulangan yang sudah diberikan pada pembahasan pernyataan FOR 
untuk menggambarkan penggunaan pernyataan WHILE. 

l) Mencetak pesan n Hello t world " sebanyak 10 kali 

PROGRAM CetakBooyo)c_HelloMorld 
{ Mancmtak •Hallo world ' sebanyak 10 kali ) 

DBKLARASI 
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I : integer ( pencacah pengulangan I 
• 

ALGORXTKA: 

1 *- 1 

while 1 i 10 do { u langi aebanyak 10 kail ) 
write(*Hello. world') 
i *- i « 1 
endwhile 

{ 1 > 10 loop invariant I 

Algorltmn 7.8 Mencetak pesan 'Hello. wortd' sebanyak 10 kali (versi WHILE) 


Perhatikan Algoritma 7.8 di atas: 

• badan pengulangan bcrisi dua instruksi: write 1 'Hello world *} dan i4-i ♦ 1 

• kondisi pengulangan adaluh 1 s 10, artinva sclama i masih S io, maka 
badan pengulangan boleh dimasuki. 

• i hams terdeflnisi nilainya sebeluni pengulangan dilaksanukan pcrlania 
kail. Karena itu, pada bagian inisialisasi, 1 diisi dengan nilai 1. 

• instniksi yang mengubah nilai peubah kondisi adalah pemyataan 
Pemyataan ini mencacah jumlah pengulangan, sehingga jika i > 10, 
pengulangan dihentikan. 

• pada akhir pengulangan. nilai i > 10. Ini adalah kondisi loop invariant. 

Hagan alir pada Gambar 7.1 dapat monibantu memahainl Algoritma 7.8. 



Gnmbnr 7.1 Bnyon nlir yang momporliholknn ponggunann ttruMlir WHILE Perhallkiin bahwn 
kondisi solalu dipeiksa ett awnl pengulangan 


Kesalahan yang soring muncul adalah mclupakan inisialisasi. Misalkan pada 
Algoritma 7.8 di atas pemrogram mungkin lupa menuliskan pemyataan i«-i 
seperti pada algoritma bawah ini: 
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PROGRAM CetakBanyak HeUoWorld 
] Mencctak ‘Hello, world' eebanyak 10 kali f 

DEKLARASI 

i : integer ( pcncacah pengulangan ) 

ALGORITKA: 

while i S 10 do 

writer Hello, world’} 

i *-i ♦ 1 

endwhile 

I i >40 ) 

Karena nilni i lidnk terdefinisi schelumnya. maka proses pengulangan 
mungkin tidak pernah dilaksanakan (dikatakan "mungkin" karena pada 
bahasa pemrograman tertentu. hila sehuali peubah tidak diinisialisasi, maka 
peubah tersebut sudab otoinatis berisi sebuab niiai tertentu. Sebagai contoh, 
di dalam bahnsa C, peubah numerik (int atau float) yang tidak diisi niiai apa 
pun, maka niiai default peubah tersebut ndalah o. sedangkan di dalam 
babnsa Puscal, peubah integer yang tidak diisi niiai apa pun, akan diisi oleh 
komputer dengan niiai sembarang. Judi, jika niiai a\val dari sebuab peubah 
tidak memenubi kondisi pengulangan, maka pengulangan tidak pernah 
dimasuki). 

Kesalaban yang lain adalab tidak menuliskan instruksi yang mengubah 
peubah kondisi, misalnya tidak menuliskan pernyatann sebagaimanu 

pada algoritma berikut ini: 

PROGRAM Cet.iklienyek HellnWorld 
7 Menc-etaJc 'Hello world' aebanyak 10 kali f 

DEKLARASI 

l i Integer ( pencacah pengulangan ) 

ALGORITMA: 

1«-1 l iniaiallaaat I 

whUe 1 S 10 do 

writer Hello world’) 
endwhile 

l i > 10 ) 

Pada algoritma di alas, niiai 1 selalu i. Karena niiai i tidak pernah berubah di 
dalam badan pengulangan, maka pada setiap kali pengulangan kondisi l s 10 
selalu tetap benar. Akibatnva, |>engulangan WHILE di atas tidak pernah 
berhenti. Pengulangan yang tidak pernah berhenti disebut looping. 

a) Mencctak angkn-angkn I, 2,10 

PROORAM CetaklSampailO 
{ Ncncetak I. 2, .... 10 . ) 

DEKLARASI 

k j Integer 
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ALGORITMA: 


i «- 1 

{ Iniaialiaaai } 

while i S 10 

do 

write (i) 

i 4- i . 1 


endwhile 

t i > 10 ) 



Algorllma 7.9 Moncolak angka 1 sampai 10 (versl WHILE) 


3) Mencetak angka l sampai N; nilai N dihaca IcHcbih dahulu (/V > o) 

PROGRAM CetaklSampaiN 
( Mencetak 1 , 2 . N ) 

DEKLARASI 

N : Integer 
1 t Integer 

ALOORITMA: 

read(N) 

1«—1 

while l S II do ( ulangi aebanyak N kali } 

write(1) 
i •- i ♦ 1 

ondwhilo 

rr> n i 

Algorllma 7.10 Moncolak nngka 1 aompai N (vor*l WHILE) _ 


4) Mcnghitiing i -t 2 + 3 + ... + N (iV > o) 

PROGRAM PenjumlahanDerot 
f Menjumlahkan derot 

1 t 7 * 3 * - * N 

dengan N adalah bilangan bulat pooitlt. Nilai N dlbaca terlebih dahulu.) 
DEKLARASI 

N 1 integer ( banyaknya auku derat, > 0 ) 

1 1 Integer ( auku daret ) 

jumlah 1 integer { Jumlah do ret ) 

ALOORITMA: 

r ead (N) { banyaknya auku daret ) 

jumlah «- 0 ( inialallaaei Jumlah doret ) 

i *- 1 { auku deret yang pertama ) 

while M N do 

jumlah *- jumlah *1 ( Jumlah deret aekarang ) 

i «- l ♦ 1 ( auku deret berikutnya ) 

endwhile 

{i > N ) { kondlai aetelah pengulangan berhenti ) 

write (jumlah) 

Algorllma 7.11 Menjumlahkan 1 ♦ 2 ♦ ... ♦ N (versi WHILE). 
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5 ) Mcnghitung nilai rala-rata N bnah bilangan bulat yang dibaca 
dari papan kctik 

PR OGRAM IlitunqRataRata 

T~H*nghitung rats-rat* N bush bllangan bulat yang dibaca darl papan 
k*tik. N > 0. ) 


DEKLARASI 

H s integer 

x : Antqqor 
1 : Intege r 
jumloh : Integer 
rerata s real 


{ banyaknya data, > 0 / 

( data yang dibjcvi darl papan ketik ) 
I pencacah banyak data ) 

( pancatat jumloh data f 
l nilal rata-rata eelurvh data ) 


ALGORITMA: 

read(N) 

jumlah 4- 0 { Iniaialloael ) 

i •- 1 ( Initiallaaoi pencacah ) 

whll O 1 5 II do 
read lx) 

jumlah 4- Jumlah • x 
1 •- 1 « 1 
•ndwhllc 

TTTn ) 

rerata «- jumlah/N 
write!reratnJ 

Algorlima 7.12 MonohMung rala-rata N buah dnla Intogor (vorai WHILE). 


6 ) Algoritma peluncuran roket dengan bitung niundur 

PROGRAM PeluncuranRoket 
7 Hitung mundur peluncuran rokat ) 

DEKLARASI 
1 i integer 

ALGORITMAi 
14-100 

whil e m do 
write 11 / 

14-1-1 

writoCOol') { rokat mol uncur pada hltungan 0) 

Algor,'ima 7.13 Porhilungan mundur untuk poluncuran rokel (versi WHILE). 


Pada kasus-kasus di mana jumlah pengulangan diketahui di awal program, 
WHILE da pat digunakan sebaik penggunaan FOR, seperti pada enam conloh 
di alas. Namun, untuk proses yang jumlah pengulangannya tidak dapat 
ditentukan di awal, hanya struktur WHILE yang dapat kita gunakan, sebab 
kondisi pengulangan diperiksa di awal pengulangan. Jadi, meskipun kita 
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tidak mengetahui kapan persisnya WHILE ini berhenti, tetapi kita mcnjamin 
bahwajika kondisi bernilai salah, maka pcngulangan pasti berhenti. 

Untuk lebili mempeijclas, misalkan Idta akan menghitung nilai rata-rata 
sekumpulan data bilangan bulat yang dibaca dari papan ketik. Banyaknva data 
tidak diketahui di awnl. namun proses pembacaan data dianggap berakhir jika 
nilai yang dibaca atlalah o. Untuk masalah ini jelas Iota tidak dapat menggunaknn 
FOR karena jumlah pcngulangan tidak diketahui. WHILE dapat digunakan untuk 
pcngulangan semaenm ini karvnu proses pcmbacaan data dilakukan selagi data 
yang dibaca tidak sama dengan o. Algoritmanya seperti di bawah ini: 

PROGRAM HltunoRaCaRAt.i2 

l Mfnnfhi tung rata-rata dari oejumlah data bilangan bulat yang dibaca 
dari papan ketik uelama data yang dibaca tidak Kama dengan 0. J 

D8KLARASI 

x i Integer / data bilangan yang dibaca dari papan ketik J 

1 t integer / pencecah banyak data ) 

jumlah i integer ( pencatat jumlah data } 

rerata i ro«] { nilai rata-rata aeluruh data ) 

ALOORIWAi 

1 *-0 { inielaUaaai pencatat banyak data dengan 0) 

Jumlah «-0 { inleialieaai jumlah data dengan 0) 

£nnd(X) 

while » * 0 do I lakukan penjumlahan eelanui x tidak nol ) 
l ♦— 1 ♦ 1 ( naikkan pencatat banyaknya data J 

Jumlah •- Jumlah » x 
read(x) 
andwhlle 
( x~- 0 } 

If l * 0 then ( data yang dibtea minimal J buah ) 
lorata •- Jumlah/1 
write Uoratal 

tiss 

writer tidak ada data yang dimaoukkan't 
end If 

Algoritma 7.14. Monghitung rata-rata dan sojumlah data (penanda akhtr data * 0). 


7.4 Pernyataan REPEAT 

Bentuk umum pernyataan REPEAT adalah: 

repea t 

ekal 

u ntil knndiai 

Fcnjclnsa n: 

Notasi ini mendasarkan pcngulangan pada kondisi boolean. Aksi di dalam 
badan kalang diulang-ulang sampai kondisi bemilai true. Dengan kata lain, 
jika kondisi rnasih false . prases pcngulangan masih terus dilakukan. Karena 
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proses pengulangan suatu saat harus berhenti, maka di dalam badan 
pengulangan harus ada pemyataan yang mengubah nilai peubah kondisi. 

Pemyataan REPEAT memiliki makna yang sama dengan WHILE, dan dalam 
beberapa masaJah kedua pemyataan tersebut komplemen satu sama lain. 

Kita memakai kembali enam contoh pengulangan yang sudah diberikan pada 
pembahasan pemyataan FOR untuk menggambarkan penggunaan pemyataan 
REPEAT. 


i) Mencetak pesan "Hello, world ” sebanyak 10 kali 

PROGRAM CatakBonyakJielloMorld 
( Mencacak •Hollo world ' eebeiiyak 10 kali J 


DEKLARASI 

i i Integer { paneacah pengulangen ) 


ALGORI IMAi 

i ♦- 1 

• repeat f ulangi •obanya* 10 kail J 
write (*Hello, world') 

1 «- 1 ♦ 1 
until 1 * 10 

Alflortlma 7.18 Mencfk p—n *He *o, wortd* Mbenye fc 10 kaM (ytrol REPEAT). 


Perhatikan Algoritma 7.15 di atas: 

• badan pengulangan berisi dua instruksi: write ( 'Hello world') dan 
i ♦- i ♦ l 

• kondisi berhenti pengulangan adalah bila i > 10, artinya selama 
i masih £ 10, maka badan pengulangan boleh dimasuki. 

• i harus terdefinisi nilainya sebelum pengulangan dilaksanakan pertama 
kali. Karena itu. pada bagian inisialisasi, i diisi dengan nilai 1. 

• instruksi yang mengubah nilai peubah kondisi adalah pemyataan l«-i+i. 
Pemyataan ini mencacah jumlah pengulangan, sehingga jika i > 10, 
pengulangan dihentikan. 

• pada akhir pengulangan, nilai i > 10. 

Bagan alir pada Gambar 7.2 dapat membantu memahami penggunaan 

stmktur REPEAT pada Algoritma 7.15. Perhatikan di mana perbedaannya 

dengan Gambar 7-1? 
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Gambar 7.2 Bagnn oiir yang momporlihntKtn ponggunaan aUuKlur REPEAT. Porhatiknn 
bahw hondiaJ ttHto dlpil m di Mr ptnoulan om.___ 


2) Mencctak angka-angka 1, 2 ,io 

PROG PAM CetaklSampalXO 
{ Hencetak 1 , 2 . .... 10 . ) 

DSKLARASI 

i : lntcqor 

ALGORITMA: 

i *- 1 ( inieialiuaol ) 

£fiE2JL c . 

write ( 1 ) 
i «- 1 1 

until 1 > 10 

Algorltma 7.16 Moncolak angka 1 aampol 10 (varsl REPEAT) 


3) Mcncetak angka 1 sampai N (N > o) 

PROGRAM CetaklSampaIN 
{ Nencetak 1, 2 . N } 

DEXLARASI 

N. i : Integer 

ALGORITMA' 
read(N) 
i «- 1 

repeat { ulangi oebanyak N kali } 


T 70 
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write(i) 

i *- l ♦ 1 

until i > N 

Algorilma 7.17 Moncolak angka 1 sampai N (vorsi REPEAT) 


4) Mcngbitung l + 2 + 3 + ... + N (N > o) 

PR OGRAM PenjumlahanDcret 
J~Henjumlahkan deret 

1 ♦ 2 * 3 * _ * N 

dengan N adalah bilangan bulat poaltif. Nilai S dibaca terlebih 
dahulu.) 

DEKLARASI 

H j integ er / banyaknya euku deret. > 0 f 

i « Intege r { euku deret ) 

jumlah t integer { jumlah deret ) 

AIXIOR1TMA i 

read IN) { banyaknya auku derot f 

Jumlah ♦- 0 { IniaialiBaai jumlah deret ) 

i 1 { auku deret yarn; pert-tma } 

r epeat 

jumlah *- jumlah • i ( Jumlah deret aekarang ) 
i »- i ♦ 1 ( Buku deret berikutnya ) 

until i > N 

write!jumlah) 

Algorilma 7.18 Monjum lahkan 1 ♦ 2* ... ♦ N (vorsi REPEAT} _ ... _ 


5) Mcngbitung nilai rata-rata N huali bilangan bulat yang dibaca 
dari papan kclik 


program HitungRAtaRata 

( Menghltung rata-rata N buah bilangan bulat yang dibaca dari papan 

ketlk. N > 0 . } 


DKKI.ARASI 


M 1 Integer 

( banyaknya data, > 0 } 

x 1 Integer 

) 

( data bilangan bulat yang dibaca dari papan ketik 

1 * Integer 

( pencacah banyak data ) 

juniah 1 integer ( pencatat Jumlah data ) 

rerat a t real 

{ nilai rata-rata aeluruh data } 

ALOORITHA. 


read(N) 


Jumlah •- 0 

( iniaialiaaai ) 

i *-l [ 

Initial team pencacah ) 

repeat 


read(x) 
jumlah «- Jui 

Blah • x 
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1 4- i ♦ 1 
until 1 > N 
roruta 4- juralah/N 

write (rereta) _... . 

Algoritma 7.1» ManghHung rala-r»la N bush data _(vml [WHILE). 


6) Algoritma peluncuran roket dengan hitung mundur 

PROGRAM PoluncuraDRoket 
7 Hitung amadur peluncuran roket ) 


DBKLARASX 
1 t integer 

ALGORITMA: 

14-100 
repeat 
write ( 1 ) 

14 - 1-1 
until 1 « 0 

wrlte('Ooi') { roket meJuncur pad* hltungan Of 
Algoritma 7.20 Pert iRungan mun dur u ntuk poVincuran rokel (veral REPEAT). 


7.5 WHILE aim REPEAT* 

Contoh-contoh pada upabab 74 dan 7.5 memperlihatkan bahwa konstmksi 
WHILE dan REPEAT ekivalen. Kita dapat menggunakan WHILE maupun 
REPEAT. Keduanya benar untuk masalah-masalah tertentu. Tetapi, pada 
beberapa masalah, pemilihan WHILE atau REPEAT bergantung pada 
natural dari masalah itu sendiri. Ini artinya, ada masalah yang hanya benar 
bila menggunakan struktur WHILE, tetapi bisa fatal bila menggunakan 
REPEAT. 

Untuk mengetahui struktur mana yang lebih tepat, kita hams mengetahui 
perbedaan mendasar di antara keduanya. Perbedaannya adalah sebagai 
bcrikut: pada konstmksi REPEAT, kondisi pengulangan diperiksa pada akhir 
pengulangan. Jadi, instmksi di dalam badan pengulangan dilaksanakan 
dulu, bamlah pengetesan kondisi dilakukan. Konsekuensinya, badan 
pengulangan dilaksanakan paling sedikit satu kali. Sebaliknya, pada 
konstmksi WHILE, kondisi pengulangan diperiksa di awal pengulangan. 
Jadi, instmksi di dalam badan pengulangan hanya dapat dila&anakan bila 
pengetesan kondisi menghasilkan nilai true. Konsekuensinya, badan 
pengulangan mungkin tidak akan pemah dilaksanakan bila kondisi 
pengulangan pertama kali bemilai false. 
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Berdasarkan perbedaan di alas, maka kila dapat mcnarik kesimpulan kapan 
mcnggunakan WHILE clan kapan mcnggunakan REPEAT i 
=> Gunakan konst ruksi WHILE pada kasus yang mengharuskan terlebih 
dahulu pemeriksaan kondisi objek scbclum objek tersebut diraanipulasi. 
=* Gunakan konstruksi REPEAT pada kasus yang terlebih dahulu 
memanipulasi objek, baru kemudian memeriksa kondisi objek tersebut. 

Contoh-contoh berikut memperlihatkan perbedaan pemakaian WHILE dan 
REPEAT 

Contoh (a): Penggunaan WHILE bcnar, tetapi pcnggunaan 
REPEAT salah 

Dibaca sejumlab nilai bilangan bulat Or) dari proses masukan. Kit a diminta 
menghitung jumlah scluruh nilai pccahannya (i/a:). Tanda akhir pembacaan 
data adalah bila nilai x yang dibaca * o. Sebagai contoh, jika nilai x yang 
dibaca berturut-turut adalah 3. 5. 8, dan o. maka jumlah scluruh nilai 
pecahannya adalah 

1/3 + «/5 ♦ 1/8 - 0.65833 

Misalkan jumlah deret tersebut adalah S. Sebelum penjumlahan, S kita 
inisialisasi dengan o. Setiap kali membaca x. harus diperiksa apakah a- * o. 
Jika a- ■ o, maka proses pengulangan berhcnti, tetapi jika tidak, maka 
jumlahkan 5 dengan i/r. 

54-5+ i/a* 

WHILE (bcnar) 

PPOORAH PonjumlahnnDeretPecohan 

(Menghitung jumlah aeluruh nilai pecahan dal l aejumlah data bilanagn 
hula fx) yang dibaca dari papan ketik. Akhir pembacaan adalah bila 
nilai x yang dibaca - 0 . ) 

DEKLAHA3I 

x t Integer ( data bilangan bulat yang dibaca I 
S 1 real ( Jumlah derat f 

ALCORITMAi 

S*-0 ( initial inant jumlah deret j 

read lx) 

while x » 0 do 
8 «- 8 * 1/x 
road lx) 
e nd while 

( x - o'} ( kondial aetelah pengulangan berhanti I 

write(S) 

Algorllma 7.21 Monjumlahknn dorot pocahon (honor) 
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Komentar: 

Penggunaan WHILE pada Algoritma 7.21 benar, karena scbclum 
dijumlahkan, x diperiksa di awal pengulangan apakah sudah o atau bclum o. 

REPEAT (salah) 

PROGRAM PenjumlahanDeretPecahan 

{ Venghitung Jumlah aeluruh nilai pecahan dari oejumlah data bilanagn 
bula ( x ) yang dibaca dari papan ketik. Akhir pcmbacaan adalah bila 
nilfli x yang dibaca - 0 . ) 

DEKLARASI 

x 1 Integer ( harga btlangan bulat yang dibaca ) 

3 1 real { jumlah deret ] 

ALGORITMA: 

S *— 0 ( iniolal ittaoi Jumlah deret f 

read (x) 

S 4- 8 ♦ 1/x 
u ntil x - 0 

wrltelS) 

Algoritma 7.22 Monjumlahknn dorot pecahan (sala h). __________ 

Komentar: 

Penggunaan struktur REPEAT pada Algoritma 7.22 berokibat sangat fatal 
bila x yang pertama kali dibaca berharga nol sebab pembagiun dengan nol 
(l/o) tidak terdefinisi (error). 

Contoh (b): REPEATbcnmr, WHILE salah. 

Tinjau kcmbali algoritma mcnampilkan menu pada pembahasan konstntksi 
CASE di dalam Bab 6. 

PROGRAM SlmulanlMenuProgram 

( Mcnampilkan menu, raembaca pi 1 than menu, dan mcnampilkan nomor menu 
yang dipilih oleh pengguna ) 

DEKLARASI 

Memo 1 Menu i integer 
ALGORITMA: 

I Cetak menu ) 

write r MENU *) 

writer 1. Been date ') 

write!' 2. Cetak data •) 

writer 1 . Ubah data *) 

writer 4. Hapuo data •) 

write r 5. Keluar program •) 

writer Maeukkan pillhan anda 11/2/3/4/5) 7 *) 

readIMomorMonu) { baca nomor menu yang akan dipilih ) 

caoe NomorKenu 
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1 j w rite I *Anda memilih menu nomor l f ) 

7 : write (‘Anda memilih menu nomor 2') 

3 : write (‘Anda me.T.ilih cenu ncoor 3*J 

4 i write (‘Anda memllih menu nomor 4*» 

5 : write{’Keluar program..*) 

endcaae 

Algoritma SimulasiKer.uProgram di alas tidak dapal digunakan untuk 
memilih menu secara berulang-ulang. Kita menginginkan dapat memilih 
menu manapun berkali-kali sampai menu yang kita pilih adalali menu 
nomor 5. Bagaimana hal ini dapat dilakukan? Menggunakan REPEAT atau 
WHILE? Perhatikan masing-masing algoritma dengan REPEAT dan WHILE 
di bawah ini. 

REPEAT { benar) 

PRO GRAM 8imu1aslMonuProgram 

( Mennmpllkan menu, membacn pillhan menu, dan mcnampilkan nomor menu 
yang dipt Uli olah pengguna ) 

DKKLARASI 

MomorManu 1 integer 

ALGORITMA1 
repo.tt 

/ Calak menu ) 

write p mrhu •) 

write(* i. Dace data •» 

write(• 2. Cetak data •) 

write(• J. Ubah data '> 

write!' 4. Hapun data ') 

write!' 5. Koluar program •) 

writer Maaukkan pilihan anda fl/2/1/4/SI f 'I 

read(NomorMenu) / bsca nomor menu yang akan dlpllih I 
cane KomorMenu 

1 1 winter Anda memilih menu nomor 1*1 

2 1 write(* Anda memilih menu nomor 2*» 

J « write!’Anda memilih menu nomor J*l 

4 r writer Anda memilih menu nomor 4*» 

5 1 write I'Koluar program..* t 
endcaae 

unt11 KomorMenu • 5 

Alflorllmn 7.23 Simula*! menu program dongan pengutangnn (benar) 


Ketrrangan: 

Konstruksi REPEAT benar untuk masalah ini, sobab nomor pilihnn menu 
dibaca terlebili dahulu, barulnh kemudian di|H*riksa di akbir pengulangan 
npakah nomor menu vangdipilih ■ 5. 
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WHILE (salah) 

PROGRAM SimuianiMcnuProgram 

J~Menampilkan menu, membsca pilihan menu, dan nenampilkan nomor menu 
yang dipilih oleh pcngguna } 

DEKLARASI 

NomorMenu : integer 

ALGCRITMA: 

while NomorMenu < 5 do 
( Cotak menu ) 
write {* MENU ' J 

writer 1. Baca data ') 

write C 2. Cetak data •) 

write f J. Ubah data ') 

write r 4. Ilapuo data •) 

w rite r 5. Keluar program •) 
writer Maoukkan pllihan anda(l/a/3/4/5)? •» 

read(NomorMenu) { luica nomor menu yang akan dipilih ) 

caae NomorMenu 

l i write (*Anda memillh menu nomor 1 *) 
a i write(’Anda memillh menu nomor 3*) 

J i writer Anda memillh menu nomor 3*) 

4 • w rite r Anda memillh menu nomor 4*) 

5 « writer Keluar prograsu. 1 ) 
endca ao 

ondwhlla 

7 NotnorMonu -5 ) 

Algorltmo 7.24 Simula* monu program dongan pengulnngan (salah) 

Ketcrangun: 

I’cnggunaan WHILE pada niasalah ini salah karena NomorMenu bclum 
tordefinisi pada pengulnngan pertamn kali, padahnl nilai NomorMenu barn 
didcflnisiknn di dalnm kalang. 

Agar ponggunaan WHILE pada Algoritma 7.24 benar, maka di dalam 
nlgoritma tcrschut hams ditamhahkan sebtiah penbah boolean, misalkan 
atop. Peubnh atop ini muhwnula diinisialisasi dengan r aloe 

Otop faliie 


Jika menu yang dipilih nomor 5, maka pada kasus NomorMenu ■ 5 
ditamhahkan pernyataan hcrikut: 

ntop «- true 

Pcngetcsan kondisi pada awal pengulnngan menjadi 

while not atop do 
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Algoritma perbaikannya menjadi scbagai berikut: 

P ROGR AM SimulaaiXemjProgram 

/ Menampl Ikan menu, menbaca pillhan menu, dan menamp.ilJean nonr or menu 

yang dipilih oleh pengguna } 

DKKLARAS: 

KomorMenu : I ntege r 
atop t b oolean 

ALGORITMA: 

otop •— tn loc 
while not atop do 

I Cetak menu ) 

write (» MEJ.TJ * I 

write I* l. Baca data *) 

write!' 2. Cetak data 'I 

write !' 3. Ubah data •> 

write !* 4. Hapue data '» 

write (' 5. Koiuar program *| 

write!* M.mukkan pillhan anda(1/2/3/4/S)? ') 

road(KomorMenu) { haca nomor menu yang akan dipilih f 

caee NomorMonu 

1 i write CAnde memllih menu nomor 1 ') 

2 i write!’Anda memllih menu nomor 2') 

3 i writeCAnda memllih menu nomor 3*) 

4 i write('Anda memllih menu nomor 4*) 

5 i writeCAnda memllih menu nomor 5*) 

atop<-truo 
elide a n e 

undwlnl* 

f HomofMnnu - 5 ) 

Algorltmn 7 . 2 'j i menu pfogram dongan penflU fnQBn (btOf) _ 


Contoh (c)i menghitung upnh l<anawan 

Algoritma menghitung upah karyawan pada Contoh 6.11 hanyu menghitung 
upah seorang karyawan snja. Agar da pat digunakan untuk menghitung upah 
beberapa orang karyawan. maka kita harus mcnambahkan struktur 
pcngulnngan di dalam algoritmanya. Andaikan jumlah karyawan tidak 
diketahui sebelum cksekusi program, maka jumlah pcngulangan tidak dapat 
ditentukan. Namun. pcngulangan perhitungan upah untuk karyawan yang 
lain dilanjutkan jika pemakai program menjawab pertanyaan: 

write CUlangi untuk karyawan yang lain?(y/t) 'I 
readTjawob) 

dan memberikan jawaban 'y' (artinya: ya). Jika jawabnya ‘t’ (artinya; tidak) 
maka proses pcngulangan dihentikan. Jadi, proses perhitungan upah 
karyawan diulang sampai jawaban yang diberikan pengguna = Y. Karena 
konfirmasi pcngulangan dilakukan di akhir. maka konstruksi pengulangan 
yang tepat adalah dengan mengguankan pernvataan REPEAT. 
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PROGRAM UpahJCaryavan 

/ Menentukan upah mlngguan aeorang karyavan. Naaukan yang dibaca dari 
papan kunci adalah njnu karyavan. golongan. dan jumJah jam kerja. 
Keluaran program adalah nama karyawan dan upahnya. ) 

DEKLARASI 

const JamNormal - 48 { Jualah jam kerja normal per minggu ) 

const UpahPorJam - 2000 { upah per jam. Rp 2000 } 

const UpnhLcmbur - 3000 { upah per jam Jembur, Rp 3000 J 

nama : string { nama karyavan ) 

JJK : in teger ( Jumlah Jam Kerja f 

lembur j real { jumlah jam lembur ) 

upah j real { upah karyavan ) 

jawab i char 

ALGORXTKA: 
repea t 

read(nama,JJK) 
if JJK S Jan-ilorm.il then 
upah ♦- JJK • Upah Pei Jar. 
else 

lembur •- JJK - Jam|lor»J»l 

upah ♦- JamJlormal • UpahPorJam . lembur • UpahLombur 
sndif 

write(nama,upah) 

write('Ulangi untuk karyawan yang lain?(y/t)') 
road(jawab) 
until Jawab • *t* 

Algorilmo 7.26 Monontuknn honor karyawan dongon komungkman lombur 


7.6 Tabel Translasi Notasi Algoritmik 
Slruktur Pengulangan ke Notasi 
Pascal dan C 


Struk- 

tur 

Algoritimi 

Pascal 

c 

FOR 

FOR man*lk i 

FOR — nalki 

FOR merul ki 


for /wneocsA*~<t to h do 

for pfiKttruh : -o lo h 

for i jvnomi/i - 


okti 

do 

mu. -hiu- •) 


endfor 

Oku; 

i•endtor 9 ! 

K«t aiarkgan. 

•11a aksi lablh darl 
oatu buah. aaka 
runtunan akal 
dlawall dangan bagln 
dan and 

for prmwuht-u to )» 

uktii 

/•rnndtoe 9 / 

Katorangan . 
ill la akal lablh dart 
oatu buah, maka 
runtunan akal dlawall 
dangan dan *)• . 

for (pentveoh - 
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do 

a,-o<-b;a.»> 



bogia 

( 



obi i; 

abrfj: 



obii: 

aksi 3: 



•ndj 

1 


FOR -onurun: 

FOR 7«nurunt 

FOR monurun; 


to* pmeacah-e itomto 

tor ptnmcah. -a 

for {pr’icncah - 


downto b do 

0;a«-b:u.4» 


h Sri 

u*ri. 

abJ; 


■ndfor 

(•ondtor , l 

/•rndforV 







EjUlJSSID 1 

Alii iVfll lrhlh dirl 




■»tu buah, mU 

Bilo okal lobih d»rl 



tuntuiun «k*l 

Mlu buah, iNiko 



dUw.il d.ng.n b.<ln 

runtun.n okal dl.wali 



«Un *nd 

dengan d.n -}•. 



Cor (veuufii'i -u to 6 

tot i/xntiitti/i-11,11- •/»/«• 



do 

♦ ) 



bfln 

i 



Ufa.., 

obi J, 




aksi 3 1 



•nil; 

I 


-Ml« kvtuhu do 

wh 11. Aumfiri do 

•hiio a.mdiri) 


•ifcri 

obi, 

aksi 


«ndwh|U 

fo/KMiiJe-l 

/•endwhi Ji*«/ 



5*S* 

Kotorang^Qi 



B1U .KOI lobih dori 

Bilo okal lobih dvl 



o.tu bu/»»,, Mki 

Mlu buith, mnk. 



runtunon .kai 

runtunon okoi diawoll 



dl.w.l 1 d.rxj.n bogln 
don *nd 

dongan “(-dan •}•. 




whl lo 1 konJtol ) 



whll. kondiU do 

l 



b^ln 

obii; 



ofaii; 

obi 3, 



obi* 

• 



•nd. Cwhiie«» 

\ 

RKPEAT 


ropo.t 

do ( 


okst 

aksi: 

aksi 


until kondiu 

until ktmdisi; 

)%rhiio 1 tkondisfi 1 




Fctcraaqan: 
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Bila akei Ublh dari 
•atu buah, eakA 
runtunan akal tidafc 
perlu diawall dengan 
begin dan and. 

bila aksl lebih darl 
aatu bu«h, make 
runtunan akol diawall 
dengan begin dan and. 

do 

1 

flWc 

ok%ia; 




(while ( kiuuhv) 


Contoh-contoh Tran.sla.si: 

1. Algoritmn mcnghitung jumUh dcrct i ♦ 2 ♦ 3 ♦ ... ♦ N. 

ALGORITHMIC: 

a. FOR 

PROGRAM PenJumlahanDeret 
/ HonJumlahkan do ret 

1 • 2 . J • - • N 

donrjAn N ndalah bljsngan bulat poeitil. Nil Ml N dibaca torlnblh dabuiu./ 

DRKLARASl 

N ' int eger 

i . lnteg?r 

jumlah 1 Intege r . 

AhCORXTMA. 

read(HI 

jumlah ♦- 0 ( initial man JumUh dorel dongan 0 ) 

for i *- 1 to N ( uUngi ponJumUhan derot neb»nyak N hall I 
jumlah »- Jumlah * i 
endfor 

write(jumlah) 


I). WHILE 

PROGRAM PenjumlnhanDeret 
{ Honjwnlahkan deret 

l * 2 * 3 4 - 4 N 

dangan N adalah bUatfjan bui.ic pomlcit. NIJal N dlbaca torlebih dnhulu,) 

DKKLAHASI 

N : integer 
1 t integer 
jumlah j Integ er 

ALGORITMA: 
read(N) 


wi 
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jumlah *- 0 ( inisialisaai jumlah dare t dengan 0 ) 

i «- 1 

while A Si N do { uiangi per.) uni a ban de ret ucbanyak N kali } 
jumlah 4- jumlah ♦ i 
i «- i ♦ 1 
endwhlle 

n > * ; 

write (jumlah) 


c. REPEAT 

PROGRAM PenjumlahanOeret 
I Menjumlahkan deret 

J*2*J*_*N 

dongan N adalah bilar.gan hul.it pomxtif. Nilai N dib. ic.i totl<*bih dahulu./ 

DEKLARAS I 

H : Integer 
l i integer 
jumlah i integer 

ALGORITMAi 
read(M) 

jumlah *-0 { inimaliaaai Jumlah deret dengan 0) 

i ♦- 1 

repeat ( uiangi penjumlahan derat aabanyak N kali j 

jumlah ♦- jumlah • i 
1 *- 1 • 1 
until l > H 

write!jumlah) 


PASCALS 
a. EOR 

program PenjumlahanDerct; 

{ Nenjumlahkan derat 

1 ♦ 2 ♦ J * - ♦ N 

dengan N adalah bilangan bulat pout it. Nllai W dlbaca tarlabih dahulu.} 

(•DBKIJWASI‘1 

var 

N i Integer t 
1 i Integer, 
jumlah r integer! 

I •ALGOR1TMA:•) 

begin 

write CBerapa N?'jj raadln N> j ( banyaknya euku deret ) 
jumloh :• 0; / iniaialiaaai Juml ah deret dengan o) 

tor is -1 to N 
begin 

jumlah t- juniah • i: 
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1 I * V* / 

writeIn(•Jumlah deret 


juniah) ; 


b. WHILE 

program PenjuralahanDeret; 

{ Nenjumlahkan deret 

l+2 + 3*-»N 

dongan N adalah bilangan bulat poeitif. h'ilai N dlbaca terleblh dahulu.) 

(•DBKLARASI•) 
var 

N i integer; 
i i integer; 
jumlah t integer; 

(•ALGORITMAt•) 

bogin 

write ('Berapa N?‘); readln(N); { banyaknya auku deret ) 
jumlah:> 0 ; f inltnal warn jumlah derot dongan 0 ) 

ii»i; 

while 1 «• N do 
begin 

Jumlah i- Jumlah ♦ i; 
l i- i ♦ 1; 
end; {while) 

( 1 > N ) { kondlai aetelah pengulangan borhentl ) 

writeln( 'Jumlah deret • Jumlah); 

end. 


c. REPEAT 

program PKHJUMLAHAN_DERBT; 

{ Monjumlahkan deret 

l*2*3*m.*N 

dongan N adalah bilangan bulat poaltlt. Nilal N dlbaca torleblh dahulu.) 

(•DBKLARASI•! 
var 

N i integer; 

1 i Integer; { ouku deret ) 

Jumlah : integer; { Jumlah deret ) 

(•ALGORITMA:•) 

begin 

write (* Berapa N?*)| readln(N); { banyaknya auku deret ) 
jumlah: -0 ; { inlslalieaal jumlah deret dongan 0 ) 

i 1; 

repeat 

jumlah :» jumlah * i; 

i s- i ♦ 1; 

until i > N; 

writelnC Jumlah deret - jumlah); 

end. 
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C: 


a. FOR 

/• PROGRAM PenJualahanDoret •/ 

/• Henjumlahkan derec 

1*2*3 ♦ _ ♦ 51 

dengan N .td.ii.ih bi longer. buiat posicii. Niloi N diboca terlebih dahulu. •/ 

Minclude <utdio.h> 

mainO 

{ /•DEKLARASI*/ 

InC N; 
int 1; 
lnt jumlah; 

/•AtOORITNAi*/ 

prlntf("Berapa N?“); ecanf (-Id- . Ul) ; /• banya/cnya ouku doiet •/ 

jumlah • 0 ; /• Iniaialjoaoi jumlah doret dengan 0 •/ 

for (1 • 1 ; i <• N; !♦*) 

( 

jumlah • jumlah ♦ i; 
prlntf("Jumlah deret • Id \n", jumlah); 

) 


I). WHILE 

/• PROGRAM PenjumlahanDoret •/ 

/• Monjumlahkan derot 

1 . 2 . 3 • _ . N 

dengan N adalah bilangon bulac positlf. Nilai N dibaca terlebih dahulu. •/ 

nlnalude <nCdio.h> 

maln() 

/ /•DBKLARASI•/ 

int N; 

int i; 
lnt jumlah; 

/•MGORITHA i •/ 

prlntf ("Borapa N?'); ecanf I'ld".CM); /• banyaknya auku derot •/ 

jumlah - 0; /* inialaliaaeJ Jumlah deret dengan 0•/ 

1 - 1 ; 

while <i <- M) 

( 

jumlah ■ jumlah » l; 

!♦♦; /• oama dengan 1 - i * 1 •/ 

) 

/* l * M •/ /• kondial aetelah pengulangan bvrhnntl •/ 

prlntf <"Jumlah deret • Id", jumlah); 
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c. REPEAT 


/• PROGRAM Pen JurnJ ahanDere c •/ 

/• Nenjumlahkan deret 

1 . 2 . 1 . _ . N 

dengan N adalah bilongan bulst poi»itif. NiJdi W (Ithaca teriebih dahulu. •/ 

■Include <ntdio.h> 

ulnl) 

{ /•DEKLARASI•/ 

int N; 
lnt 1; 
int jumlnhj 

/•ALOORXTMAf/ 

prlr.tf ("Berapa N?") ; leant l* Id- .INI / 

jumlah • 0/ /• iniaialioani Jumlah deret dengan 0 •/ 

1 ■ l; 

do { 

jumlah - jumlah • 1/ 

1 **l /• Damn dengan 1 • J ♦ 1 •/ 

) while (1 <• tit; 

prlntf ("Jumlah doret - \d m , jumlah) j 


2 . Algoritina men^iitunj* rata-ratu (lari (lari scjumlali data bilan^an 
bulat 

ALGORITMIK 

PROGRAM HitungRataRata2 

( MenghiLong rata-rata dari tejuml.th data bilengan buJat yang dibaca 

dart papan ketik aelaoa data yang dibaca t idak mama dengan 0 . ) 

DEKLARASI 
x i integer 
i > Intogor 
Juralah : I nteg er 
rcrata : roal 

ALGORITHM: 

i *- 0 ( inialalioasi pencatat banyak data dengan 0 } 

jumlah 4-0 { inisialioasi jumlah data dengan oj 

read (x) 

while x * 0 do ( lakukan penjumlahan nclar.i x cidak no I } 
i ♦- i * 1 ( naikkan pencatac banyaknya data ) 

jumlah 4— jumlah * x 
read < x > / 
endwhil e 
{ x - 0 ~) 

if 1*0 then { data yang dibaca minimal 1 buah j 
rorata 4- jumlnh/i 
write (rorata) 


f data bilangan yang dibaca dari papan kotik ) 
{ pencacah banyak data ) 

{ pencatat jumlah data ) 

( niJai rata-rata aeluruh data ) 
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else 

write{'tidak ada data yang diiM 8 ukkan') 
endit 


PASCAL: 


program HituugRataRata 2 ; 

I Hcnghltung rata-rata dari rejumlah data bllangan bulat yang dibaca 
dari papan ketik selama data yang dtbaca tidak gara dengan 0. ) 


CDBKLARASI') 

var 

X : intogor; 

1 : Integer; 
jumlah x integor; 
rerata : real; 


data bilangan yang dibaca dari papan ketik } 

pencacah banyak data ) 

per.catat jumlah data } 

nilai rata-rata aeluruh data } 


(•ALGORITNA:•) 

begin 

ix-O; { iniaialinaai prncat.it banyak data dengan Oj 

jumlah:>0; ( inigiallnaai jumlah data dengan 0} 

write ('Ketikkan nilai x : *); readln(x); 

while x <> 0 do { lakukan penjumiahan golana x tidak noi } 

begin 

i i- i ♦ 1; ( nalkkan poncatat banyaknya data } 

Jumlah i- jumlah • X; 

write l ' Ketikkan nilai x ; '); roadlnlxJx 
end; fwhile} 

Ix-O} 


it l <> 0 then { data yang dibaca minimal 1 buah / 

begin 

rerata i- Jumloh/i; 
writeln(’Rata-rata • *. rerata); 
end 

elae 

writeln('tidak ada data yang dimaoukkan'); 

Iendit} 


C: 

/• PROGRAM IlitungRataPatmJ •/ 

/• Hcnghltung rata-rata dari eejumlah data bilangan bulat yang dibaca 
dari papan kotxk aelnma data yang dibaca tidak earn dengan 0 . •/ 

■include <atdio.h> 

main I) 

f 

/•DHKLARA8I*/ 

int x; /• data bllangan yang dibaca dari papan ketik •/ 

int i; /• pencacah banyak data •/ 

int Jumlah; /• pcncatat jumlah data •/ 

float rerata; /• nilai rata-rata aeluruh data •/ 
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/•AK20RITMA:*/ 

i - 0; /• iniai.iliu.vji poncatat banyak data dongan 0 •/ 

jumloh • Or /• iniaialioaui Jumlah data dongan 0 •/ 

print f'Ketlickan nilai x i ")j ucan?("%ftxl; 

vhllo (x 1-0) /• lefcuJcan penjvmlahan no lama x cidak nol •/ 

{ 

1 - 1 ♦ 1; /• naikkari poncatat banyaknya data •/ 

jumlah - jumlah • x; 

printf(“Kotikkan nilai x : ocanf(•»«-, txji 

) 

/• x - 0 •/ 

if (i !■ OJ /• data yang dibaca minimal 2 buah •/ 

( 

rerata - jumlah/<float)i; 

printf("Rata-rata - \t \n", rerata); 

) 

alaa 

printf(“tidak ada data yang dimauukkan"»; 

/•endif•/ 


3. Algoritma peluncuran rokct 
ALGORITMIK 

PROGRAM PcluncuranRoket 

7 ~ Hltung mundur poluncuran rokot ) 

DEKLARASI 
\.i : integer 

ALG0RX7MA; 

for 1 »- 100 dovnto 0 do 
write ( 1 ) 
endfor 

write i'Gol') / rokot meluncur pada hltungsn 0 ) 


PASCAL: 

program PoluncuranRoket; 

/ Wltung mundur poluncutan rokot ) 

( •DEKLARASI • 1 

var 

i : integer; 

CDESKRIPSl,-) 

begin 

for i :•100 dovnto 0 do 
begin 

wrlteln(i); 
end; (for) 

writeln('Ool* J; { rokot moluncur pada hltungan 0 ) 

end. 
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C: 


/• PROGRAM P oluncuranKoket •/ 

/• Hitting aundur peluncuran roket •/ 

ainclude <stdio.h> 


■tinU 

l 

/•DEKLARASI*/ 
int 1; 

/•DKSRRIPSl:•/ 

lor (i • 100i k »• li 1--) 

I 

printf("%d",i)i 

prlntf (“Oo!"); /• roket meluncur p,id«* hltunqan 0 */ 


7.7 Membaca/Menulis dari/ke Arsip 

Jika data masukan yang akan dibaca dari arsip banyak juralahnya, maka kita 
pcrlu menggunakan itraktur pengulnngan. Pembncaan data dari arsip 
bergantung pada susunan data tcrsebut di dalam arsip. Susunan data di 
dalam arsip hams dikctahui sebclum program ditulis agar dapat ditentukan 
cara membaca datanya datanya. Pcmbaca bams mengacau kcmbali ke upn- 
Bnb 5.3 perihal earn membaca/menulis data dari/ke arsip dalam bahasa 
Pascal dan C. 

Di bawah ini diberikan bebernpa contoh program pembacaan dan pcnulisnn 
dari/ke arsip teks. Algoritma dari program-program tersebut diambil dari 
contoh-contoh yang sudab dikemukakan di dalam Bab 7 ini. 

(n) Meiighitung nilui rntu-rntu (1) 

Tinjnu kembali Algoritma 7.11 untuk menghitung nilai rata-rata dari N buali 
data integer. Misalkan data banyaknya data (AO dan sclumh data integer 
sudab disimpan di dalam arsip data. txt. Susunan data di dalam data. txc 
sobagai berikut: baris pertama berisi nilai N, sedangkan baris-baris 
berikutnya berisi data integer sebanyak N buah. antara setiap data 
dipisahkan oleh spnsi. Scbagai con toll, misalkan arsip data, txt sudab berisi 
data yang telah disusun sesuai drng.111 format yang ditetapkan di atas: 

10 

4 5 7 2 3 

8 1 4 8 12 

Baris pertama. 10. menyatakan banyaknya data, sedangkan baris-baris 
berikutnya berisi 10 buah data integer. Tulislah program untuk membaca data 
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integer dari arsip dan menghitung nilai rata-rata selumh data. Keluaran 
program adalah nilai rata-rata tersebut. Keluaran program dicetak ke layar. 
Program Pascal dan C untuk spesifikasi masalah ini adalah seperti di bawah ini: 


PASCAL: 

PROGRAM HitungRataRata; 

( Menghitung rata-rata N buah bilangan bulat yang dibaca dari aroip 
"data. Cxt'. N » 0 . } 

(• DEKLARASI •) ' 

var 

M : intogor; ( banyaknya data. > 0 ) 

x J Intogor; / data bilangan bulat yang dibaca dari aroip ) 

1 J integer; { pencacah banyak data J 

Jumlah i integer; f pencatat Jumlah data ) 

rorata x real; { nilai rata-rata oelutMh data ) 

Pin i text; ( pointer ke araip maoukan } 

(• ALGORlTMAi •) 

begin 

{ buka araip m.ioukan } 
aoaign (Pin, 'data.txt'); 
reset (Pin) ; 

rend (Pin, N>; (baca banyaknya data I 
jumlah i• 0; { inioial inam ) 

i i-l i I iniaialiaaai pencacah / 

while i <■ II do 
begin 

rend (Pin, X); 
jumlah t• Jumlah ♦ x; 

1 I* 1 « ll 

end;/ while J 
! i > n ) 
roratai-Jumlah/N; 
writelnl *Rata-rata - rorata); 
end; 


C: 

/• PROGRAM HitungRataRata •/ 

/• Menghitung rata-rata N buah bilangan bulat yang dibaca dan araip 
"data.txt’. N » 0 . •/ 

mainO 

{ 

/• DKKLARASI •/ 

int N; /• banyaknya data. » 0 •/ 

int x; /• data bilangan bulat yang dibaca dan aroip •/ 

int 1; /• pencacah banyak data •/ 

int jumlah; /• pencaCat Jumlah data •/ 

float rorata; /• nilai rata-rata oeluruh data •/ 

PILB *Fin; /• pointer Ice aroip masukan •/ 
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/• ALGORIT MA: •/ 

/• buka araip maaukan •/ 

Pin - Copan("data.txt*, 'r'); 

fncanf (Fin, Md'. till; /• baca banyaknya data •/ 
jumlah • 0; /• iniaialiaaai •/ 

i • lj /• iniaialiaaai pcncacah •/ 

whlla (1 <- N) 

( 

facanf (Pin, Md'. fcx) j 
jumlah • jumlahtx; 

1 • l 4 l| 

}/• whilo •/ 

/• i * n •/ 

rcrata • (float)jumlah/M; 
prlntf('Rata-rata - If', rorata); 

) 


(b) Menghitung nilai rata-rata (a) 

Tinjau kemboli Algoritma 7.13 untuk menghitung nilai rata-rata dari 
sckumpulan data integer, tetapi pcnanda nkhir data adalali 9999 - Misalkan 
scluruh data integer sudah disimpan di dalam arsip data.txt. Susunan data 
di dalam datn.txt adalah nilai-nilai integer yang masing-masing dipisahkan 
oleh spasi. Nilai tcrakhir adalah *>999 yang menandakan akhir data, tetapi 
9999 tidak termasuk data yang nkan dihitung dalam perhitungnn nilai rata- 
rata. 

Scbagal contoh, misalkan arsip data.ext sudah berisi data yang tclah 
disusun sesuai dengan format yang ditetapkan di atas: 

0 5 7 a j 

• 1 4 1 ia 
9999 

Tulislah program untuk membaca data integer dari arsip dan menghitung 
nilai rata-rata scluruh data. Keluaran program adalah nilai rata-rata 
tersebut. Keluaran program dicctok ke layar. Program Pascal dan C untuk 
spesifikasi masalah ini adalah seperti di bawah ini: 


PASCAL: 

PROGRAM HitungRntjRAt.» 2 ; 

( Menghitung rata-rata dari anjumlah data bilangan bulaC yang dlbaca 
dari araip •daCa.txf. pcnanda akhir data di dalam araip adalah 9999 . 

I 

<• DRKLARASI •) 
var 

x j intagar; { data bilangan bula C yang dibaca dari araip } 

1 j Intagar i I pcncacah banyak data ) 
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rcraCa i ruli 
Pin : text; 


( nilai rata-rata ecluruh data } 
I pointer kc aroip maoukan } 


!• ALGORITMA: •) 
i agin 

{ buka araip maoukan ) 
aoaign (Pin, 'data.ext'); 
ronot (Pin); 


/ 


i 0; 

]uniah :• 0; 
road < Pin,x)/ 
while X «» 9999 do 

bogin 

l i * 1 ; 

jumlah j- Jumlah 
roadlPln.x); 

•nd; (while) 

( X • 9999 ) 


( imoialioaoi pencatat banyak data dengan 0) 
{ iniaialisaai junlah data dengan 0) 

( lakukan penjumlahan oelama x <> 9999 ) 

I naikkan pencatat banyaknya data ) 

♦ x; 


1 C 1 <> 0 then ( data yang dibaca minimal l buah ) 
begin 

rerata i- jumlah/ 1 ; 
wrltelnt'Ratarata • *. rorata); 
end 

olno 

wrltelnCAraip koaong (hanya berial 9999)'); 

(end if) 


C: 

/• PROGRAM HitungRataRate •/ 

( Monghitung rata-rata dari oeJumlah data bilangan bulat yang dibaca ciari 
aroip -data.ext“. penanda akhir data di dalam araip adalah 9999. ) 

mainO 

I 

/• DEKLARASI •/ 

lnt x; /• data bilangan bulat yang dibaca dari araip •/ 

lnt i; /• pencacah banyak data •/ 

lnt jumlah; /• pencatat jumlah data •/ 

float rerata; /• nilai rata-rata oeluruh data •/ 

PILE -Fin; /• pointer ke aroip naoukan •/ 

/• ALGORITMA; •/ 

/• buka araip naoukan •/ 

Fin - foponl-data.txf. -r*); 

junlah ■ 0; /• inioialiaasi •/ 

1-1; /• mxsial irasi pencacah •/ 

facanf(Pin, -%d-. 4 x); 

while (x I- 9999 ) /• lakukan penjumlahan oelama x «» 9999 •/ 

i • i • 1; /• naikkan pencatat banyaknya data •/ 
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jumlah « jumlah . xj 
focanftFin, -Id - . fcx) ; 

)/• while •/ 

/• x » 9999 n •/ 

it <i lm 01 /• rf.it a yang dibaca minimal 2 buah •/ 

{ 

recata - ( float) junrfah/i; 
prlncf (“Kata-rata - If - , rerata); 

) 

•la« 

printf (-Aroip konong (hanya be rial 9999) \n - ); 
/•endit*/ 

\ 


(c) Mcnghitiing nilai rata-rala (3) 

Tinjnu kemhali Algoritma 7.12 untuk mcnghitiing nilai rat a-rat a dari 
sekumpulan data integer. Misalkan seluruh data integer sudah disimpan di 
dalam arsip data.txt. Bunynknya data tidak diketahui sebelum pcmbacaan. 
Susunan data di dalam dnca.txt adalah nilai-nilai integer yang masing- 
masing dipisahkan oleh spasi. 

Sehagai cnntnli. misalkan arsip data ext sudah berisi data yang tclah 
disusun sesuai dengan format yang ditetapkan di alas: 

6 9 7 2 1 

■ 1 4 i 12 

Tulislah program untuk membneo data integer dari arsip dan menghitung 
nilai rata-rata seluruh data. Kduaran program adalah nilai nita-rata 
tersehut. Keluaran program dicctnk kc layar. Program Pascal dan C untuk 
spesifikasi masalab ini adalah seperti herikut ini: 


PASCAL: 

Tidak scpcrtl pcrsoalan (b) yang akbir datanya adaknh nilai 9999. maka 
pada persoalan (c) ini akbir data diidentifikasi dengan akbir arsip. Akbir 
arsip dapat ditentukan dengan fungsi KOIXJ). Fungsi ICOI\/) mongembaliknn 
nilai true jika posisi arsip mclampaui karakter tcrakhir di dalam arsip ntau 
jika arsip kosong (tidak berisi karakter apa pun); sebaliknya EOI'XJ) 
mengemiialikan false. 

PROGRAM MiCungfUtafUEAi 

( Monghitung rata-rata N buah bilangnn hulat yang dibaca dari aroip 
•data.txt”. Akhlr data dildantitikaol dengan fungal SOP. ) 

(• DKKLAHAST •/ 
var 

X 1 intoflarj { rf.it.i biJangan ixjJ.it yang dibaca dari mreip } 

1 I lntogarj { pencacah bnnyak data I 

jumlah 1 integer; { pencat at Jumlah data ) 

rorotn t real; { nilai rata-rata aeluruh data ) 
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Pin : text; ( pointer ke araip maaukan f 

(• ALOOF1THH: •) 

b.gln 

( buka araip maaukan ) 
aaaign(Fin, 'data.txt*) j 
raaat(Fin)/ 

Jumlah i- 0 ; { inieialioaal ) 

1 :• 0 ; ( lniaislleaBi pencacah } 

whila (not EOF(Fin) do 
bagin 

road(Pin, X); 

i i- i ♦ ll 
jumlah i- jumlah * x; 
and; {whila} 

{ EOF (Fin) } 

It 1 «> 0 than { date ymng dilute,, minimal I buah } 

bag in 

rerata i- Jumlah/i; 
writoln('Rata*rata • *, irorata) / 
and 

alaa 

wr 1 tain('Aroip kooong')/ 

(nndirj 

and; 


C: 

Di dalam baliasa C, fungsi yang serupa dengan fungsi EOF\J) adalah fcoflf. 
Fungsi ini mcngembalikan nilai tidak-nol jika akhirarsip dicapai. 

/• PPCOFAM HitungRataRata •/ 

/• Nenghitung rata-rat* N buah bilangan buiat yang dibaca d.iri araip 
•data.tx t". Akhlr data dUdcntiiikaoi dengan fungal EOF.*/ 

aulnO 


/• DEKLARASI •/ 

int x; /• data bilangan bulat yang dibaca dari atBip •/ 

int i; /• pencacah banyak data •/ 

int jumlah; /• pencatat jumlah data •/ 

float rorata; /• nilai rata-rata aelumh data •/ 

PILE * Fin; /• pointer ke araip maoukan •/ 

/• ALGORITMA: •/ 

/• buka araip masukan •/ 

Pin - fopon("data.txt-, "r"); 

juralah « 0; /• iniaialisaB 1 •/ 

1 - 0 ; /• iniBialioaai pencacah •/ 

whila (Ifeof(Pin)) 
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I 

fncanfiFin. -»d-, fcx»; 

i - i * 1; 

jumlah - jumlah.X; 

)/' while •/ 

/• foot(Pint •/ 

if (l 0 ) /• dace yang dibaea aiaimji 1 buah •/ 

I 

rerata • (float)jumlah/ 1 ; 
printf("Rata-rata • If*. rerata)j 

) 

alaa 

printf("Aroip koaong (hanya berial 9999) \n")/ 
/•endif/ 


Contoh-contnh program Pascal/C di atas dapat dimodifiknsi sehingga noma 
nrsip di-i/ipi/f-kan olch pcngguna program pada waktu eksekusi (jndi, tidak 
hams data.txt). Selain ilu, kcluaran program juga dapat ditulis ke dalam 
nrsip (jadi, lidnk ditampilkan ke layar). IJhat contoh hal ini di dalam upa- 
Bab 5 - 3 - 


Soal l.utihun Bub 7 

1. Huatlah algoritmn yang membaca sembarang karakter dan mcncrtaknyn 
ke layar. Huatlah algoritma untuk dua kasus: 

(a) jumlah karakter yang dibaca diketalmi. yaitu N buah (baea S' 
terlebih dahulu) 

(b) jumlah karakter yang dibaca tidak diketalmi, tetapi proses 
pembncaan berakhirjika karakter yang dimasukkan adalah karakter 
titik (karakter titik tidak ikut dicetak) 

2 . Huatlah algoritma untuk menghitung jumlah S' buah hilangan ganjil 
pertama (yaitu. I ♦ 3 ♦ 5 ♦ •••)• Catalan: .V adalah bilangau bnl.ii tidak 
negntif. 

3. Huatlah algoritma untuk menghitung jumlah hilangan ganjil dari 1 
sampai N (yaitu. 1 ♦ 3 ♦ 5 ♦ ... ♦ AO- (perhatikan perbedann soal latihan 
ini dengan soal nomor 1). 

4. Tuliskan program Pascal dan C untuk mcncetak gambar segitiga bin tang 
sebanynk N bans, setiap bans kc-i berisi 1 buah bintang. Nilai N dibaca 
dari papan kunci. 

Contoh: masukan: N = 5 
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keluaran: 




5. Tuliskan algoritma untuk menampilkan semua solusi bilangan bulat 
tidak negatif dari persamaan berikut: 
x + y + z-25 


yang dalam hal ini, x2o,y>o, dan z £ o. 

6. Buatlah algoritma yang akan mengonversi bilangan bulat positif ke angka 
romawinya. Rancanglah algoritma tersebut sehingga pengonversian 
tersebut dapat dilakukan bemlangkali sampai nilai nol dibaca dari piranti 
masukan. 

7. Scseorang mempunyai tabungan di sebuah bank. Ia dapat menyetor dan 
mengambil uangnya di bank tersebut, namun jumlah saldo minimum yang 
harus disisakan di dalam adalah Rpio.ooo. Ini artinya, jika saldonya 
Rpio.ooo, ia tidak dapat mengambil uang lagi. Kode transaksi untuk 
menyetor adalah o dan kode transaksi untuk mengambil adalah 1. Buatlah 
algoritma yang menyimulasikan transaksi yang dilakukan orang tersebut. 
Algoritma menerima masukan berupa kode transaksi dan jumlah uang yang 
disetor/diambil. Rancanglah algoritma tersebut sehingga memungldnkan 
penabung dapat mclakukan transaksi bemlangkali sampai saldo yang 
tersisa Rpio.ooo atau jumlah uang yang diambil lebih besar dari saldonya. 

Catalan: nilai uang yang diambil selalu mempakan bilangan bulat. 


»r“T 
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Contoh-contoh 
Pemecahan Masalah I 


Bab 8 ini menyajikan contoh-contoh masalah dan algoritmanya, mulai dari 
contoh yang sederhana sampai contoh yang lebih sulit Contoh masalah yang 
disajikan mencakup struktur run tun an, struktur pemilihan, dan struktur 
pengulangan. Belajar melalui contoh adalah salah satu cara terbaik belajar 
algoritma dan pemrograman. Melalui contoh kasus, kita menemukan pola- 
pola yang dapat digunakan untuk memecahkan masalah yang sejenis. 


[Contoh Masalah 8.1 Pcnquboh.in jam 


Didefinisikan tipe Jam dan peubah j dan p sebagai berikut: 

type Jam i record 

«hb i Intege r. ( 0 .. 23 ) 

mm i lntwr , ( 0 .. 59 ) 

* iEtfSSE. ( 0 . 59 ) 

> 

J i Jam 
p t Integer 

Anda diminta membuat algoritma yang: 

- mengisi ( assignment ) peubah J dengan jam 16 1 10 i34; 

- membaca p menit dari piranti masukan; 

- mengubah nilai j setelah ditambah p menit. Tampilkan jam J yang baru. 

Penyelesaian 

Penyelesaian masalah ini menggunakan prinsip konversi jam ( hhimmiss ) ke 
jumlah detik, tambahkan jumlah detik dengan p, lalu konversi kembali 
jumlah detik ke jam (hhimm.ss). 
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PROGRAM PengubahanJam 

f Henglai nilai jam ke aebuaft peubah. menaobah dengan p raenic } 
DEKLARASI 

type Jam : record <hh:integer . 

rw: integer , 
do: integer 

> 

J : Jam 

p, TotalDetik i integer 

ALGORITMA: 

{ laikan Jam 16:10:34 ke peubah J ) 

J.hh «- 16 
J.mm #- 10 
J.no «- 34 

read(p) f baca p men it / 

I konveral J ke total detik. tambahkan dengan p • 60 doilk I 
TotalDetik •- (J.hh*1600) • (J.«m«60» . J.aa . Ip»60) 

I tentukan Jam yang baru aetelah ponanbahan p men it / 

J.hh 4- TotalDetik dlv 3600 
nloa ♦- TotalDetik mod 3600 
J.rcm *- ulna div 60 
J.ea «- oioa mod 60 
write(J.hh,J.mm,J.ao) 

Algorltma 8.1 Mongubah jam sotolah d.l*mbah p mom! 



Contoh Masalah 8.2: Aritmolika pocahar 


Nilai pecahan disajikan dal am bentuk a/6, dengan syarat 6 * o. Dalam hal 
ini, a disebut pembilang dan 6 penyebut. Keduanva bertipe integer. 
Contohnyo, 4/5, 2/3. 6/10. Bilangan hulat pun dnpat dinyatakan dalam 
bentuk pecahan. misalnya 5 * 5/1. Tulislah algorithm yang membaca dua 
buah nilai pecahan, pi dan />2, lain menghitung basil penjumlahan keduanya 
(pi + p2), selisih (pi - p2), perkalian (pi x pj), dan pembaginn (pi/p2). 
Hasil perhitungan tetap dalam bentuk pecahan. 


Penydcsalan 

Misalkan dua buah nilai pecahan yang akan dioperasikan adalah p, = — dan 

h 


p a = 


£ 

d' 


Operasi aritmetika untuk pecahan: 
... o c ad + bc 

(0 p 1 + p, = _ + _ = __ 


(iii) Pi x p a 


£ x -=— 
h d bd 


»t" r 
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(ii)Pi - Ps 


a c _ ad -be 

b~d~ be 1 


(iv) p,: p. 


a c _d a _ ad 
b d c b be 


Kita definisikan tipe pecahan dan peubah pi. p2. dan p 3 bertipe pecahan 
sebagai berikut: 

type pecahan : recor d <a: integer , b:integer> 
pi, p2 : pecahan 

pi : pecahan { haail operaai pi dan p2 ) 

Algoritma operasi aritmetika dua buah pecahan sebagai berikut: 

PROGRAM AritmetikaPecahan 

I Mambaca dua buah pecahan, menghitung junlah, ooliaih, perkallan, dan 
pvmbnglan kedua pecahan tereebut } 

DHKLARASI 

typo pecahan : record 

<a;In teger , 
b: Integer 

> 

pi. p2 c pecahan 

pi » pecahan ( haeil operaai pi dan p2 ) 

ALGORITMA; 

{ baca pecahan pi dan p2 ) 
readIpl.a, pl.b) 
readlp2.a, p2.b) 

{ hltung pi • pi * p2 } 
pi.a pi.a*p2.b . pl.b'p2.a 
pl.b *- pi.b*p 2 .b 
write(pi.a,pi.b) 

{ hltung pi • pi - p2 ) 
pin *- pl.a*p2.b - p).b*p2.a 
pl.b «- pi,b*p 2 .b 
write(pi.a,pi.b) 

I hltung pi • pi • p2 ) 
pi.a a- pl.a*p2.n 
pl.b *- pl.b»p 2 .b 
write(pi.a,pi.b) 

( hltung pi m pi / p2 f 
pi.a *- pl.a*p2.b 
pl.b •- pi.b*p2.a 
write (pl.a.pl.b) 

Algoritma 8.2 Antmelika pecahan_ _ 
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Seorang pengirim surat menuliskan nama kota pada amplop surat tetapi 
tidak mencantumkan kode pos-nya. Buatlah algoritma yang menerima 
masukan nama kota dan menuliskan kode pos kota tersebut ke piranti 
keluaran. Kota-kota yang tersedia di dalam daftar hanya 5, yaitu: 

Padang : 2S000 

Handling : 40100 

Solo : 51000 

Denpaoar : 72000 

Palu i 92300 

Penyelcsaian 

PROGRAM KodePoB 

( Menerima maaukan nama kota dan nenceeak kode poo koi.t ybs ) 

DEKLARASI 

kota « atri ng 

ALGORITMA: 
rea d(kota) 
cone kota 

■padang* i w rlto (» 2 > 000 ') 

•bandung* i write {’40100') 

'oolo' t write(*51000') 

'denpaoar* : write('72000') 

'polu' i write('92300') 

otherwlee i writ! ('tidak ada dl dalam daftar') 
fmdcaae 

Algoritma B.3 Moncotnk kodo pos salah Mtudan 5 kola ^^ 


ontoh Masalah 8.4: Durasl antaro dua buah lam 


Seseontng yang menelepon dan waning telckomunikasi (wartel) selalu dicatat 
jam awal percakapan dan jam akliir percakapan bicara (dalam format 
hhimm.ss). Tulislah algoritma yang membaca jam awal dan akhir percakapan, 
lalu menghitung lama percakapan dalam format waktu hh.mm'ss dengan earn 
analisis kasus. 

Con toh: 



8:40:12 8*45:36 0:5:24 
8:40:54 8:42:10 0:1:14 
8:40:40 10:20:36_1:39:56 


Algoritma perhitungan selisih waktu harus menggunakan cara analisis kasus. 
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Penyelesaian 

Masai ah ini sama dengan Contoh 5.11, yang mana menghitung durasi antara 
dua buah jam dengan cara komputasi. Kali ini kita akan menghitung durasi 
waktu tetapi dengan cara analisis kasus. 

Algoritma menghitung selisih dua buah waktu dengan cara analisis kasus 
relatif lebih sulit dibandingkan dengan cara kalkulasi Oihat Contoh 5.7). Kita 
harus menganalisis kasus-kasus seperti ss2 £ ssi, ss2 < ssi, mm2 £ mmi, dan 
mm2 < mmi. 

Jika ss2 * ssi atau mm2 * mmi, tidak ada masalah dalam menghitung selisih 
karena dapat langsung dikurangkan. Tetapi, jika ss2 < ssi atau mm2 < mmi, 
maka kita harus "meminjam" satu menit atau satu jam dari besaran waktu yang 
lebih tinggi, sebab selisih dua buah waktu tidak boieh negatif dan harus terletak 
dalam rentang nilai yang sah (0..59 untuk menit/detik, dan 0..23 untuk jam). 

Misalnya pada kasus ss2 < ssi seperti bcrikut: 

(8:42:10)-(8:40:54) 

Karena 10 < 54, maka pinjam satu menit dari 42. Satu menit itu sama 
dengan 60 detik, sehingga pengurangan komponen detik menghasilkan 

(10+60) - (54) - 14 - 

Karena 42 menit sudah dipinjam satu menit, maka sisanya 41 menit, 
sehingga pengurangan komponen menit menghasilkan 

(41) - (40) - 1 

Cara yang sama juga berlaku jika mm2 < mmi, yaitu pinjam satu jam (=60) 
menit dari waktu hh2. Karena peminjaman ini, hh 2 berkurang 1. 

PROGRAM SoliaihWaktu 

( Menbaca waktu awal dan waktu akhir percakapan, Stl (hbitattoo) dan 
H2 lhh:non:oo). Aaumaikan W2.hb 2 Ul.hh. Kamudian, menghitung lama 
porcakapan, yaitu U2 - tfl » W .} 

DBKLARASI 

type Jem : record < hh: Integer , ( 0 .. 23 ) 

• pro: integer , (0..59) 
aa- integer ( 0 .. 59 ) 

> 

Ml 1 Jam ( Jam awal percakapan ) 

W 2 1 Jam ( Jam akhir percakapan ) 

M3 1 Jam ( lama percakapan } 

ALOORITMA: 

( baca Jam awal dan Jam akhir percakapan ) 
read (Ml.hh. Ml.mm. Ml.aa) 
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read(W2.hh, W2.mm, K2.as) 

/ pengurangan dec Ik } 

if H2.au 2 Wi.as then { tidak ada masalah pengurangan detik. OK } 
W 3 .au *— W2.S8 - Wl.su { seliaih decik ) 
else { H 2 .SB < Hi.ss ) 

W3.HS ♦- {W2.H3 ♦ 60) - Ml.aa { pinjam sac u menit dari meniC2, 

iaiu kurangi dengan detikl } 

W2 . mm «- W2.mm - 1 { menic2 berkurang oa cu karena dipinjam ) 

end if 

f pcngurangan menlC } 

i_f W2. mm k HI .mm then { tidak ada toaaalah pengurangan menit, OK } 

W3.mm ♦- W2.mm - HI. mm { aeliaih menit ) 

Qiao ( H2.mm < HI.mm I 

W3.mm 4- (W2.mm . 60) - Ml.ram { pinjam a *tu jam dari jam2. 

laJu kurangi dengan menit 1 ) 

W 2 .J «- W 2 .J - 1 { jam 2 berkurang oa tu karena dipinjam ) 

ond lf 

l pengurangan jam. Abu mail H2.hh 2 HI. Mi ) 

WJ.hh «- W2.hh • Hi.hh 

w rite (W3.hh.W3.nw.H3.aa) 

Ajgoritma M ManQhUunfl derail (MMh anfclu) wHara dua buah |am 


Contoh Masalah 8.5: Monghltung biaya porcakapar 


Kembtngkan algoritma pada Contoh Masalah 8.4 di alas schingga dapnt 
menghitung biaya pcrcakapan yang tarif tiap pulsanya bergantung pada kode 
wilayah tujuan pcrcakapan. MUalnya: 


Kode 

Wilayah Kotu 

Tarif Hap Pulsa Lama Pulsa 

02 

Jakarln 

Kp 150 

1 menit 

0751 

I’adnng 

Kp 250 

30 detik 

0737 

Medan 

Kp 375 

25 detik 

091 

Bnlikpapan 

Rp 415 

20 detik 

098 

Tomato 

Rp 510 

17 detik 


Data mosukan tambahan yang dipcrlukan adalah kodc wilayah. Untuk membatusi 
masalah, maka kode wilayah yang diberikan hanya 5 seperti label di atas. 

Penyelcsaian 

Perhitungan pulsa dan biaya pcrcakapan adalah: 

pulBa - lama percakapan /lama pulsa (bergantung wilayah) 
biaya - pulaa • tarif pulsa (bergantung wilayah) 
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PROGRAM IlitunglUayaPercakapa:. 

/ Membaca vaJceu aval dan waktu akhir percakapan, HI (hh:mm:na/ dan 
H2lhh:m:no). Aoumalkan W2.hh 2 Ml.Mi. Kcmudian. menghi tuny lama 
percakapan, yaitu H2 - Hi HJ. dart akhirnya nenghitung biaya 
percakapan. Tar if tlap pulaa borgar itung pada wilayah tujuan 
percakapan. Biaya percakapan dlbi tiing dari Jama percakapan ) 

DEKLARASI 

type Jam : record < hh: inte ger , (0..23) 
m: integer . {0..S9) 
bo ; integer (0..S9} 


> 


Ml 

: Jam 

{ jam trulai percakapan ) 

M2 

: Jam 

( Jan akhlr percakapan } 

M3 

: Jam 

{ lama percakapan ) 


KcdcWi 1 i otring ( koda wil.ty.ih tujuan percakapan I 
duraHi : integer { Jana percakapan daJam detik } 

PuloWil i real ] Jama pulaa, bergantung kode wilayah ) 

TarifWil : ronl l t aril por pulaa, bergantung pada kode viJayahJ 

biaya t real ( biaya percakapan / 

ALOORXTMA: 

rend(Ml.hh, Wl.ma, Ml. as) / Jam aw fl J parcakapan ) 

road (M2 .hh, M2.nm, M2.oo) ( Jam akhlr parcakapan / 

read(KodcWi 1 ) / kode wilayah tujuan parcakapan f 

( pengurangan detik } 

if M2.oo i Ml.oo then { tidak ada manaJah pengurangan detik, OK 

) 

M3.no <- M2,so - Ml. oo ( aoliaih detik } 
else { H2 .bb « HI.ss I 

M3.on <- (M2.oo . 601 - Ml.on ( plnjaa oatu monit dnri menir2, 

JaJu kurangj dengan detikl } 

M2.mm *- W2.nm - 1 / menitJ berkurattg oatu fcarona dlpinjam } 

endlf 

/ pengurangan men it ) 
if M2 .mm i ill .mm then 

W3 .mm 4- M2.on • Ml.no 
vine f H2 ,nvn < Ml.am ) 

M3,mm 4- (M2.mm ♦ 60) 

W2.J ♦- W2.J - 1 
endlf 


f pengurangan Jam ) 

M3 .hh «- W2.hh - Ml.hh 

I hitung lama parcakapan daJam detik } 
duraui<- (W3.hh*3600) . (Ml.mm‘60) * M3.00 

( tentukan Jama puJoa dan tarif tlap pulaa, bergantung 
pada kode wilayah tujuan parcakapan ) 


l tidak ada maaalah pengurangan monit. OK 
{ neliolh monit I 

- Ml.mm { pinjam oatu Jam dark Jam2, 

lalu kurangi dengan monit 1 J 
( jam 2 berkurang iiatu karenn dipin jam ) 
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case KodeWil 

•021' ; PuloWil *- 60 

TarltWil «- 150 
’ 0751' : PuloWil «- 30 

ToriCWil ♦- 250 
•0737- : PuloWil *- 25 

TariCWil 4- 37S 
•0912' : PuloWil ♦- 20 

TarifWil «- 415 
'0981' : PuloWil ♦- 17 

TarifWil *- 510 

endcase 

{ hitting Jumlah pulsa dan biaya untuk aeluruh puls/, ) 

pulaa ♦- durasi/PulaWil 

biaya 4- pulaa * TarlfKil 

write (Wi.hh. W3.mm ( W3 .bb. biaya) 


) pada 


Bulan Fchruari mempunyai jumlah hari yang unik. Jumlah harinya adn yang 
28 hari dan ada yang 29 hari. Bulan Februari mempunyai jundah hari 29 bila 
berada pada tahun kabisat. Pads taliun yang bukan lahun kabisal, jumlah 
harinya 28. Misalkan dibaca sebuab penanggalan pada bulan Fcbruari. 
Tulislah algoritma untuk menentukan tanggal pada hari berikutnya. 


ontoh 


Sekarang: 17-2-1999 besck: IB-2-1999 

Sekarang: 28-2-1999 {bukan tahun kobioat) -* bcooki 1-3-1999 
Scknrang: 28-2-1996 (tahun kabioat) -> bcook. 29-2-1999 
fiekarang: 29-2-1996 (tahun kabioat) -> baook: 1-3-1999 


Pcnyclcsaian 

Sebuah tanggal terdiri ntas komponen: tanggal (dd), bulan (mm), dan tahun 
(yy). Untuk menentukan tanggal kcesokun hari, kita hams mengnnnlisis 
kasus berdasarkan tanggal fiekarang: 

• jika dd sekarang < 28. maka dd kecsokan harinya adalah dd scknrang 
ditambah 1 

• jika dd sekarang = 28, periksa apakah yy taliun kabisat. Jika yy tahun 
kabisat, maka dd keesokan harinya adalah dd sekarang ditambah 1 
(tanggal 29). Jika yy bukan tahun kabisat, maka dd keesokan hari 
adalah tanggal 1 (bulan MaretJ 

• jika dd sekarang = 29, maka dd kecsokan hari adalah tanggal 1 (bulan Marct) 

TanggalBcrikutnyaDiBulanFobuari 

fHomhnc* aobuah tanggal pads bulan Frbruarl. kvmudian nrnontukan 
tanggal keoaokan harinya J 

DBKLARA8I 
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type tanggal : record <dd : integer, 

ctb i integer . { 1 .. 12 ) 

yy » Lnieger { » 0 1 

> 

T 1 tanggal 


( bulan Februari ) 

I baca komponen tar.ggal dan tahun / 
f tidak ada nasal ah dengan tahun ) 

{ tanggal benok ) 


ALG0R1THA: 

T.mm ♦- 2 
rend IT. dd, T.yy) 
if T.dd < 28 then 
T.dd ♦- T.dd ♦ 1 
elite 

if T.dd £ 28 then (tanggal besot bergar.curg tahun IcabiMt/tidaxy 
if IT.yy mod 4-0 and T.yy mod 100 i tt) or (T.yy d 400 * 0>) 
then { tahun kablaat ) 
it T.dd • 28 then 

T.dd ♦- T.dd .1 ( 29 ) 

else ( T.dd - 29 ) 

T.dd «- 1 

T.bb «- T.rm ♦ 1 ( bulan Mart t ) 

endi l 

elso {bukan tahun kabiaat, Jadi aeaudah 28 langeung tanggal 1 ) 
T.dd ♦- 1 I tanggal 1 bulan Merer ) 

T.ten •- T.rnn . 1 ( bulan Marat ) 

endlf 
«> nd if 
endlf 

write(T.dd. T.mm, T.yy) ( cerafc t.inggal baaok ) 

AlQorltma 8.5 Menenlukon langgal benfculnya pads hulan Februari. 


ialah 8.7: Mari t 


i (bob 


ILIF.96) Perluaslah ConYoh Masaloh 8.6 di atas schingga dapat menghitung 
tanggal berikutnya darf tanggal sekorang untuksembarangbulan. Misalnvn, 


Tanmul SduiranK 


12-6-1996 

13-6-1996 

30-4-1986 

1-5-1986 

31-1-1991 

1-2-1991 

*11-12-1002 

— *'t* | 993_ 


Tanggal sekarang dibaca terfehih daliulu daii pirenti masukan. 


Penyclcsaian 

Mula-mula kita hams memilah bulan-bulan berdasarkan jumlab barinya 
(libat Contoh 6 . 20 ) karena tiap-tiapbulan tidak sama jumlab barinya: 


Hulan 

Jumlah hart 

1.3.5.7.8. 10.12 

3 ” ban 

4.6.9.11 

30 ban 

2 

28 atuu 29 ban. benuntunR tahun kabkat. 
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Pad a tahun kabisat, jumlah hari dalam bulan Februari adalah 28, sedangkan 
pada tahun bukan kabisat jumlah hari dalam bulan Februari adalah 29 (lihat 
Contoh Masalah 8.6). Di samping itu kita juga harus mcnangani kasus 
pergantian tahun, misalnya pada contoh pergantian tanggal 31-12-1992 
menjadi 1- 1 - 1993 - 

PROGRAM TanggalBorikutnya 

7 HSncntukan t.\ngg.il berikutnya oetelah tanggal aekarang. Tanggal 
ttfk.iv.-tng dlbaca dari pi rand maoukan } 

DKKLARASI 

t ype tanggal i recor d < dd : integer . {1..31) 

ra : Integer . {1..12J 
YY : Integer { >0 } 

> 

T 1 tanggal 
ALGORITMA 

reader.dd. T.nm, T.yy) 
cane T.rnn 

4, 6, 9, n 1 ( ncbulan 30 hari i 
if T.dd < 30 than 
dd ♦- T.dd ♦ 1 
oloe ( T.dd - JO ) 

T.dd 4- 1 

T.era «- T.mm . 1 { bulan baru ) 

end if 


1.3.5.7.8,10.12 : I oebulan JJ hari } 
ll T.dd < 31 then 
T.dd 4- T.dd . 1 
QlPQ ( T.dd • 31 ) 

T.dd 4- 1 

T.mm 4 - T.mm • 1 f bulan baru ) 
audit 


2 1 { bulan Fobtuari) 
if T.dd < 26 then 
T.dd 4 - T.dd . 1 
ol bo 

if T.dd 2 21 then (tanggal beook bergantuag pada tahun 
kablaatj 

if (T.yy mod 4-0 and T.yy mod 100 * 0) or 
(T.yy mod 400 - 0)) then ~~J~tahun kablaat ) 
if T.dd - 28 then 

T.dd 4 - T.dd .1 { 29 ! 

elee / T.dd - 29 ) 

T.dd 4 - 1 

T.rt* *- T.mm . l ( bulan Marec f 
endij 

nine (bukan tahun kabioat, Jadi aooudah 28 langaung 
tanggal 1 ) 

T.dd •- 1 ( tanggal 1 bulan Mare t ) 
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T.tnn *- T.tan . 1 / bulan Mare t I 

endif 
endlf 

12 : l hatl-hati dcngan pergancian tahun } 
if T.dd < 31 then 
T.dd ♦- T.dd • 1 
eloe ( T.dd - 31 ) 

T.dd «- 1 

T.tnm *- l (Januari } 

T.yy *- T.yy *1 ( tahun baru } 

endlf 


endcaoe 

]~cotak tang gal berJfcutnya Itu ) 
write (T.dd. T.tm. T.yy) 

Algorilma 8.6 Menenlukan tanggal benkutnyo (bebas bulan) 



tan kuadra 


Oi SMA Antla tentu masih ingat bahwa akar-akar pcreaman kuadrat 


ax J + bx + c « O ; don pan syarat a * a 


adalah nilai-nilai x yang mcnycbabknn pcrsamaan menjadi nol. Dilinjau dari 
grafiknya, akar porsamann kuadrat mcnyatakan titik potong kurva dengan 
sumbu-x. Akar-akar pcrsamaan kuadrat dapat dihitung dcngan minus abc 
scbagai bcrikut: 

-/» + Jh : -4nc 
2 a 

-b-Jb'-Aac 

x > - u - 

Jonis akarbcrgantung pada nilai b' - 40c (ynngdiscbut diskriininan atau D): 

• jika b* - 4«c < o, maka akar-nkarnya iniaginor 

• jika />' - 40c > o, maka akar-akarnya rill dan berboda. x, * x, 

• jika b* - 4«c ■ o, maka akar-akarnva nil dan kcmbar, x* ■ x , 


'ey 

EQ1 

n on 


V J 


1 

b J - 40c < 0 

N —/ 
b • - 4 ac > 0 

X 

/>»- 4 «C ■ O 
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Sebagai contoh, persamaan kuadrat x 2 - 4x - 5 ■ o, yang dalam hal ini: 
a-i.6--4.c--5 


Nilai diskriminan persamaan kuadrat terscbut adalah 

D = b 2 - 4 ac = (- 4 )>- 4 (i)(-5)- 16 + 20 - 36 


Karena 6 a - 4ac - 36 >0. maka akar-akar persamaan kuadrat adalah nil 
dan berbeda, yaitu 


x x 


-I 


dan*,- Z±f>-y* 

20 ) 2 ( 1 ) 

Tulislah algoritma untuk mencari akar persamaan kuadrat. Sebagai data 
masukannya adalah koefisien persamaan. a, b, dan c, dengan syarat a * o, 
sedangkan keluarannya adalah akar-akar persamaannya. 


Penyelesaian 

Analisis kasus terhadap permasalahan ini menghasilkan tiga macam kasus: 

Kasus 1: D < 0, akar-akamya imaginer 

Kasus 2: D > o, akamya nil dan berbeda (x, * x a ) 

Kasus 3: D - o, akar-akamya kembar (Xi - xj 

PKOOXAX AkarPeraatnaanKuadraC 

{ Menghitung akar-akar perMBun kusfiraC fo?4 bx * a - 0. Nilai a, b, 
dao c, dlbaca sebagai meauluyi (• * 0) , scdangkan akar-akamya dlcmtMk 
sebagai ksluarsn. ) 


/ koefisien persamaan kuadratj 
diskriminan ) 

I akar-akar persamaan kuadrat ) 

ALOORlWAi 

read (a.b.c) f baca kosfloien persaman kuadrat) 

D ♦- b*b - 4*a*c ( hitung diskriminan) 

if D < 0 then ( Kasus 1 } ... . 

” write ("*kar-akar persamaan kuadrat, Imaginer I' 
else '• * ‘ 

if D > 0 then j - . i 

( dua ukar rill berbeda) 
xl ♦- (-b ♦ SQRT(D))/(2»a) * • 

x2 ♦— (-b - S0RT(D))/(2*a) 

else ( D u o ) 

" ( dua akar rill kembar ) 
xl «- (-b ♦ SQRT(O))/(2+a) 

X2 4- xl . 

endif ' 

write (xi,x 2 ) '{ cetak akar ke pi rand koluaran ) 

endif 

A1goritms 87 Menghllung akar- akar persamaan kuad rat. 


DSKLARASI 

a, b. c j real 
D i real 
xl. x2 i real 
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Keterangan: 

SQRT adalah fungsi baku untuk menghilung akar pangkat dua. Kita 

__c_: _k_i_i. ._• 


ontoh Masalah 8.9 Menghitung jumlah karakte 


Tulislah algoritma yang menghitung jumlah karakter yang dibaca secara 
berulang-ulang dari papan ketik. Pembacaan karakter selesai jika karakter 
yang dibaca adalah karakter titik (tetapi titik tidak termasuk dalam hitungan 
jumlah karakter). Misalnya, jika karakter yang dibaca berturut-turut: 'a', ’m’, 
*t\V, maka jumlah karakter ■ 3 (tidak termasuk titik). 


Penyelesaian 

Kita memerlukan sebuah peubah yang mencacah jumlah karakter yang 
dibaca. Peubah tersebut diinisialisasi dengan o. Konstruksi pengulangan 
yang paling tepat digunakan adalah WHILE, karena karakter yang dibaca 
diperiksa di awal. Jika karakter tersebut titik, maka pembacaan selesai. 

PROGRAM CacahKarakeer 

( Manghltung Jumlah karaJctar yang dibaca darl papan kotlk. Akhlr 
pmmbacaan adalah karaktar Citik. ) 

DBKLARASX 
cc 1 char 
ncc 1 Integer 

ALGORITMA 1 
ncc ♦- 0 

reud (cc) { baca karaktar partama. ou ngkln •.• ) 
while (cc '.*) do 
ncc *- ncc ♦ 1 



write (ncc) 

Algoritma 8.0 Monghllung jumlah karakter yang dibaca 


Periksa Algoritma 8.8; jika karakter pertama yang dibaca adalah titik, maka 
jumlah karakter (ncc) akan tetap nol, pertanda algoritma di atas tetap benar. 


*loh Ma 


Tulislah algoritma yang menghitung jumlah kemunculan angka (digit), 
jumlah spasi, dan jumlah karakter lainnya bila karakter dibaca secara 
berulang-ulang dari papan ketik. Pembacaan karakter selesai jika karakter 
yang dibaca adalah karakter titik (tetapi titik tidak termasuk dalam hitungan 
jumlah karakter). 
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Pcnyelcsaian 

Contoh masalah ini mempakan pengembangan dari Contoh Masalah 8.9. 
Dari karakter-karakter yang dibaca, kita klasifikasikan mana yang karakter 
angka. mana yang karakter spasi. dan karakter lainnya. Untuk setiap jenis 
karakter kita hitung jumlah kcmunculannya. Misalnya, jika rangknian 
karakter yang dibaca adalah 

.5. . u . . v . . . . ? . . a . 

maka jumlah karakter angka * 2, jumlah spasi = 1, dan jumlah karakter 
lainnya = 3 - Karakter titik tidak dihitung karena ia mempakan pcnandn 
akhir pembacaan. 

Kita inemerlukan tiga buah pcubnh yang mencacah jumlah kcmunculnn 
masing-masing jenis karakter tesrebut. Ketiga peubah tcraebut diinisialisasi 
semunya dengan o. 

CacahJonieKarakter 

7 Manghitung lumiah kctnmculan angka. apai11, dan kataktex lainnya. Karakter 
dibaca darl papan ketik. Akhlt pcrbacaan adalah karakter t It lk. / 

DEKLARASI 
cc 1 char 
n angka 1 integer 
iiupani 1 Integer 
n In limy a 1 Integer 

ALOORITNAt 

Nangka •- 0 
Nopaoi •- 0 
Hlainnya •- 0 

read(cc) ( baca kAraktor port ana, mungkln '.' / 
white (cc •.•) do 
cag e cc 

*6', -l*. * 2 \ •!*, • 4 *. 

* 5 *. '«•, * 7 ', •«*. • 9* 1 nangka ♦- nangka • l 

' ' 1 nupagt •- napaal • 1 

otherwise : nlasnnya •- nlninnya • 1 
endcaae 

read(cc) 

endwhile 

I cc - 

w rite (ndlglt, nangka, nlainnya) 

Algoritma 8.9 Menghitung |umlah karaktor angka. spasi dan lainnya 
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Tulislah algoritma untuk menentukan nilai terkedl dari N buah data integer 
yang dibaca dari papan ketik. Nilai N dibaca terlebih dahulu (N > o). 

Penyelesaian 

Baca data pertama terlebih dahulu. Asumsikan data pertama ini sebagai nilai 
terkecil (min) sementara. Selanjutnya, baca data berikutnya. Jika data 
tersebut lebih kecil dari min, maka ia menjadi min yang baru. Ulangi untuk 
data masukan yang lain. Pada akhir pengulangan, min menjadi nilai terkecil 
dari seluruh data. 

Karena banyaknya data diketahui di awal, maka jumlah pengulangan dapat 
ditentukan. Pada masalah ini, struktur FOR dan WHILE dapat kita gunakan, 
sama baiknya. Di sini kita pilih struktur FOR. Penggunaan REPEAT dapat 
menghasilkan algoritma yang salah. Penjelasannya ada di bawah. 

PROP RAM CariMlnlmuml 

( Menontukan bllangan terkecil dari N date Integer yeng dibaca dari 
papan ketik. Nilai N ditentukan terlebih dahulu (N > 0 ). ) 

DCKLARA8X 

H i integer ,( banyaknya data maeukan, » 0 ) 
x i integer . { data yang dibaca ) 
min i intwr { data terkecil/nlnimum ) 

1 i inttqtr { pencacah pengulangan J 

ALGORITMAi 

read (10 . 

raad (x) ( baca data pertama I 

nin 4- x { aaune Ikon min a da lab data pertama ) 
tor i *- 2 Jo H do ( lanjutkan dengan data ke-2 ennpai ke-N ) 
r«ad(x) 

If x < min than 
min ♦- x 

S^^ ain) ... . 

Algoritma 8.10 Moncail data tartiacil (mWmum) dart N buah data Integer yang dibaca dart 

.W___ 

Jika menggunakan konstmksi REPEAT seperti di bawah ini, SALAH: 

PROPRAM CariMinimuml 

( Menentukan bllangan terkecil dari N data integer yeng dibaca dari 
plranti maeukan. Nilai N ditentukan terlebih dahulu (N » 0). ) 

DBKLARASX 

H i integer { banyaknya data maeukan. » 0 ) 

x i integer { data yang dibaca ) 

min i integer ( data terkecil/minimum J 
i i integer ( pencacah pengulangan ) 
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ALGORITMA: 
read (N) 

read (x) { baca data pert ana } 

min 4- x< { aBumglkan min adal ah data pertama } . « 

i 4- 2 { tlnjau untuk data kedua J 

repeat 
read (x) 

lit X < min then 

min «- x . ; - 

.mUl ; 

■ i 1 ♦ 1 . 
until i > N 
write (min) 

Mengapa penggunaan konstruksi REPEAT pada algoritma di atas salah? 
Penyebabnya, bila banyaknya data hanya satu buah (N * l), maka pembacaan 
data kedua tctap dilakukan (yang sebenamya tidak ada). Hal ini karena 
pemcriksaan kondisi pengulangan dilakukan di akhir. Sebagai latihan, cobalah 
Anda gunakan struktur WHILE, lalu periksa apakah algoritma tetap bcnar. 


Ulangi Contoh Masalah 8.n, tetapi banyaknya data tidak diketahui. 
Pembacaan data berakhir bila data yang dibaca adalah 9999. 


Penyelesaian 

Dalam masalah ini, struktur FOR jelas tidak dapat digunakan, karena jumlah 
pengulangan tidak dapat ditentukan di awal. Struktur pengulangan yang 
dapat kita gunakan adalah WHILE. Contoh Masalah 8.9 ada kemiripan 
dengan masalah ini. 

Jika data pertama bukan 9999, asumsikan ia sebagai min sementara. 
Selanjutnya, baca data kedua dan seterusnya. Selama data yang dibaca 
bukan 9999, bandingkan ia dengan min. Jika data tersebut lebih kecil dari 
min, maka ia menjadi min yang baru. Pada akhir pembacaan data (ditandai 
9999), min menjadi nilai terkedl dari seluruh data integer yang dimasukkan. 

PROGRAM CerlMlnimum2 

( Menentukan bllangan terkedl dari eejumlah data Integer yang dibaca 
dari papan ketlk. Akhir pembacaan data > 9999. J 

DEKLARASI 

x 1 integer ( date yang dibaca J 
min 1 Integer ( data ter/cecil/mlnimum ) 

ALGORITMA: 

read (x) { baca data pertama J 

it x a 9999 then { perlkaa, data pertama mungkin 9999 ) 
min 4- x {aaumaikan min adalah data pertama) 
read (x) {baca data kedua ) 


«o~T 
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ghjle x / 9999 do 
if x * »in then 
min 4- x 
ondl f 

rudlxl 

endwhile 
writo(win) 


endlf 

Algoritma 8.11 Mencan ila.'a torkecil (minimum; dart N buah data integer yang dibaca dart 
papan kelik ( 2 ) 



Dibaca scjumlah bilangan bultt yang dibaca secara bcrulang-ulang, nkhir 
pcmbacaan adalah <1999* TuUslah algoritma imtuk menghituog bnnyaknya 
bilangan genap. 

Contohnya. bilangan yang kiln bacn misalkan 

5 *0 47 2 8 20 23 9999 

maka banynknyn data bilangan adalah 4- 

Penyelcsalan 

Algoritma untuk menentukan bilangan genap sudah pemah kita kemukakan di 
dalam Bab 6. Misalkan data yang dibaca adalah x. maka x adalah bilangan bulat 
jika: 

x mod 2 - 0 

Set a ip kali x yang dibaca adalah bilangan genap. maka naikkan pencaenh 
jumlahnya dengan I. 

PROGRAM Jumlahtll l*ngnn(len*p 

7 MengUitung JuntJah kemunculan data bilangan gonap. Oat* dibaca dart 
papan ketlk. ) 

DBKLWtAS: 

x * Integ er { bilangan buJnt yang dibaca ) 

nx 1 integer ( Ju^lah komuncnlan data bilangan genap ) 

ALGORITMA: 
nx *- 0 
readlx) 

while lx * 9999) do 

if x nod 2 • 0 then / x adalah bilangan genap ) 
nx •— nx ♦ 1 
end if 

r?ed(x> 
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ondWhlie 
( X - 9999 } 

write<nx) 

Aigoritma 8.12 Morvjhitiimj |umlnhkemunculan data bilangan gonap 


Contoh Mi 


8.14: Menul 


Tulislnh algoritmn untuk menuliskan teks lagu Anak Ayam Turun N dengan N 
adiilali jumlah anak ayam semula (nilai N positif dan dibaca terlebih dahulu). 


Contoh: N = 10, maka sair lagu Anak Ayam Turun io terceiak seperti di bawah 
ini (perhatikan baris terakhir sedikit berbedadengan bans sair sebelumnya): 

Anak Ayam TUrun 10 

Anak >i yam turun 10, maei aatu dnggal 9 

Anak ayam tum/J 9, matt oatu tinggal 9 

Anak ayam turun 8, mat! oatu tlnggal 7 

Anak ayan turun 7, mad oatu tinggal 6 

Anak ayam turun 6, mat 1 oatu tjngg.il 5 

Anak ayam turun 5. maci aatu r ingij.il 4 

Anak ayam turun 4, mad aatu tinggal J 

Anak ayam turun J, mati aatu tlnggal 2 

Anak ayam turun 2. maci aacu tlnggal I 

Anak ayam turun 1, mati oatu tlnggal laduknya. 

Pcnyclcsaion 

Masnlnh ini nd.il.ih mencetak string “Anak ayam turun k, mati satu tinggal f- i" 
di diilam badan pengulangan. Pads awalnya, i * N. Setiap kali pengulnngan, 
nilai i fielalu dikurangi satu. Ketika i - l, penceiakan string ditangani secant 
khusus, karena baris terakhir dari lagu tersebut berbeda dengan baris 
aebdumnya. 

prooram LaguAnskAyam 

I Nenoatsk lagu 'Artak Ay.im" ) 

DEKLARAS1 

N i inte ger ( » 0 } 

ALGORITMA: 
read(M) 

Anak Ayam Turun *. U) { cetak judul lagu ) 
t or 1 •- K down to 2 do 

writer Anak ayam turun mati satu tinggal '.i-li 

c ndwhlle 

I bait bans terakhir J 

write f Anak ayam curin 1. mati satu tinggal induknya.'l 
Aigoritma 8.13 Manc a isk l agu •Anak Ayam*.__ 


m I 
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Tulislah nlgoritma untuk menghitung juinlah deret pecnhnn 
1 - 1/3 ^ 1/5 - i /7 ♦ 1/9 ♦ — ± «/^V 
N adalah bilnngan bulnt positif (dibaea tcrlebih dahulu). 

Penyelesuian 

Si-tiap pecahan a/b tcrdiri alas pembilnng, a. dan penyebut, b. Perhatikan 
keteraturan deret tersebut: penyebut pada tiapsuku (term) bertambah 2 dari 
penyebut suku sebelumnya. Tanda suku bersclang-seiing, positif, negatif, 
positif, negatif. dan seterusnya. Tanda positif adalah sukuke-i ganjil (t ■ i, 3. 
5,...) dan tanda negatif untuk suku ke-i genap (1« 2. 4, 6,...). Bilangan ganjil 
dan gennp dapat ditentukan dengan inenggunakan operator mod* 

Karena setiap suku berbentuk i//>, maka setiap penyebut suku ke-fc dapat 
ditulis dalam rum us unnim: 

suku ke-i » 1 Ip :pm i,3 .N 

Pengulangan dilakukan selamn p £ N. Perbatikan baliwn jika N ganjil, maka 
penyebut suku terakhir ■ .V. tempi jika N gennp, maka penyebut suku 
terakbir adalah N - 1, Hash pcnjumlahan bertipc bilangnn riil dan disimpnn 
di dalam peubah juinlah yang bertipc riil. 

PROORAM PenjualahanOoretPeeahan 
f Manjumlahkan deret yang b+rbentuk pacaha a: 

2 * 2/J - 2/5 » 2/3 - 1/9 * ... * l/N 
.ViJaj V dlbaca ditentukan terleih dahulu. > 

DKKLARASI 

Jumlah 1 real 
N 1 Integer 

1 1 inte ger 

P • jwtgflfs 

ALOORITHA. 
road(Ml 
Jumlah *- 0 

1 «- 1 ( euku pottama J 

p »- 1 1 penyebut uuku pat lama » 

while p S X do 

If i mcA 2 - 1 then { vufcu ke-f ganjil ) 

Jumlah «- Jumlah - l'p 

alee i »uJtu ke-i aenap ) 

Jumlah •- Jumlah - i/p 
cndlf 

i *- 1 • 1 { twjju suku betlkutnya ) 

p •- p • 2 I exnjau penyebut auku berikuenyn ) 

endwhtle 
( P * « ) 
write IJumlah) 

Algoritma 8.14 Menghilung jumlah deicl pecahan (verw 1) 


jumlah deret I 
penyebut pada auk u terakhir. N * 0 I 
•uki j kei ) 
penyebut auku ke -1 ) 
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Algoritma 8.14 dapat disederhanakan lagi dengan mengingat bahwa tanda 
suku berselang-seling (analog dengan on/off/on/off ...). Kita definisikan 
sebuah nama peubah bemama tanda. Untuk snku pertama, nilainya: 

tanda 4- ♦1 {poeltif} 

maka suku-suku berikutnya bertanda 

tanda *- - tanda (-lx harga tanda auku eebalumnya ) 

Dengan demikian, pemeriksaan suku ke-fc ganjil atau genap dengan notasi if- 
then dapat dihilangkan. 

PROGRAM PenjulahanDeretPecahan 
TNenjumlahkan daret yang barbantuk pacahan1 ' 

1 ♦ 1/3 - 1/5 ♦ 1/7 - 1/9 * ... ± 1/N 
Nilal N dibaca ditaatukan tarlaih dahul u. ) 

DEKLARASI , f , , 

jumlah 1 raal f jumlah derot ) 

N 1 lnfqar { panyabut pads auku tarakhir, N > 0 } 

p 1 lnfqar I peoyabut auku ka-i ) 

AIXSORITMA: , . . .. • •, • , . . *. . 

read(N) , 

Jumlah 4 - 0 

tanda *- *1 { tanda auku pertama J 

P 1 

whl la p S N do 

jumlah 4- Jumlah ♦ (tanda • 1/x) 

P ♦“ P ♦ 2 

tanda *- - tanda ( tanda auku berikutnya J 

andwhlla 

( P > * ) 

writf (jumlah) 

Algoritma 8.15 Monghrturtg jumlnh doret pocahan 



Buatlah algoritma yang membaca a dan n bilangan bulat (n * o) lalu untuk 
menghitung nilai perpangkatan a" . Pcrpangkatan a" berarti mengalikan a 
sebanyak n kali: 

a"*axaxflxax...xfl ( sebanyak n kali } 

Contohnya, 

5 4 -5X5X5><5" 625 

2 B -2X2X2X2X2X2X2X2 = 256 

3 °-! 
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Pcnyelesaian 

Misalkan nilai perkalian disimpan di dalam peubah bemama p. Peubah p 
diinisinlisasi dengan i (bukan o), karcna ia akan selalu dikalikan dengan a 
(jika p diinisialisasi dengan o maka hasil perkalian akan selalu o): 

p *- i 

Lakukan perkalian p dengan a sebanyak n kali: 

P *- p • a 

PROGRAH Perpangkatan 

I Menghitung perpangkatan a", a dan bilangan buiat, dan n i 0. ) 

OKKLARAS I 

J ' £24l 

n » 

p i real 

i , integer 

ALOORITMAt 
road(a.n) 

for i •- 1 to n do 

P ♦* P * • 
omiro_r 

write Ip) 

Algoritma 8.10 MungNUing porpangKaton a*, n Mangan butal *0 


niJai yang dipangkackan ) 
pemangkat } 
haail pvrF»ngk*t*n ) 
pencacah pengulangan } 



Kcmbangkan algoritma poda Contoh Masalah 8.16 di atas sehingga jugs 
dapnt dlgunakan untuk menghitung a • dengan n bilangan buiat sembarang 
(boleh positif, negatif, atau nol): 
a" ■ a x a x a x a x ... x a { sebanyak n kali } 

(i n ■ i/a n ■ i/(a x a x a x a x ... xu) < sebanyak n kali} 

Contohnya, 

3 4 * 3X3X3x3-8« 

5 a - l/S a - */(5 x 5 ) - 1/25 - 0.25 
7° -I 

Pcnyelesaian 

Pcnyelesaiannya sama seperti Contoh Masalah 8.16, hanya saja jika n 
negatif, moka n diuhnh terlebih dahulu menjadi positif (disimpan ke dalam 
peubah lain). Setclah perpangkatan aelesai dihitung. maka jika n negatif. 
hasil perpangkatan dinyatakan dalam bentuk i/hasil. 
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PROGRAM Perpangkatan 

( Menghltung perpangkatan a", a dan n bilangan bulat aembarang. } 

DEKLARASI \ - 

a i real { nllal yang dipangkatkan ) 

n, ra i integer ( pemangkat ) 

p i real { basil perpangkatan J 

i i Integer f pencecah pengvlangan J 

ALGORITMA: 
read(a,n) 

7 hitung perpangkatan J 
p 1 

for i +- 1 to ABS(n) do 

P ♦“ P * • 

elee 


{ tuliakan haall perpangkatan, bcrgantung pada n J 
it n < 0 then 
write (l/p) 
el£e 
write (p) 
endit 

Algoritma 8.17 Monghllung perpangkatani'.nbHanganbulat aerr.barang. 


Kcterangan: 

ABS adalah fungsi baku untuk mengambil nilai mutlak dari nebiiah bilangan. 
Kita asumsikan fungsi ini sudah tcrscdia. 



Faktorial sebuah bilangan bulat tidak ncgatif n didefinisikan sebagai 
n(-ix2 X3X4x...xn , n > o 

dan khusus untuk n - o, maka faktorial dari o didefinisikan sebagai 
o! ■ l 


Tulislah algoritma yang membaca nilai n dan menghitung faktorial n. 


Penyelesoian 

Misalkan nilai faktorial disimpan di dalam peubah f«k. 
Inisialisasi f ak dengan l. 

fak «- 1 


Kalikan fak dengan i, mulai dari l sampai n: 

tak *- fak * 1 


to~l 
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Paktorial 

Henghltung nl untuk 
DBKLARASX 

n i Integer 
fak i integer 
1 

ALGORXTMAi 
read(n) 
fak «- X 

for i 4- l to n do 
fuk ♦- fak • i 


ji bilangan bulat tidak nagatif. J 
I n i 0 } 

{ nilai faktorial bilargan n J 
l panes tat pangulmngan } 


Itak) 

Afgorkmn 8.18 MenpMhifig nl 


Pcrhatikan Aigoritma 8.18 di atas; jika n sama dengan o, maka kalang FOR 
tidak dimasuki sehingga fak tetap sama dengan l (sesuai dengan definisi 
bahwa ol - i). 



Jurusan tertentu di sebuah Universitas mempunyai N orang mahasiswa. 
Tiap mahasiswa mengambil m buah mata kuliah yang sama. Tullslah 
aigoritma yang memhaca nama-nama mahasiswa beserta daftar nilai mata 
kuliah yang dia ambil (nilai bertipe rill), lalu menghitung rata-rata nilai 
setiap mahasiswa. 


Contoh: N=3, m -4 


1 _ Name J 

MKl 



MK 4 

Rata-rata 

rv 

40.0 

80.0 

20.0 

60.0 

50.0 

Santi 

450 

75-0 

100.0 

60.0 

70-0 

Kuncoro 

90.0 

125 * __] 

65.0 

60.0 

60.0 


Keterangan: 

MK = Mata KuUah 

Penyelcsaian 

PROGRAM NilaiRataRatuSetlapMahaeiewa 
{ Menentukan nilai raca-raea aetiap mahasiswa. J 

DBKLARASI 

N s Integer { jumlah m ahaninwa > 0 J 

m 1 Integer { Junlah mata kuliah > 0 J 

nama 1 atring ( nama mahasiswa J 
nilai 1 real { nilai u jian J 
Jumlah i real ( Jumlah nilai u jian J 
rerutu 1 real { rata-rata nilai ujian ) 
i, j 1 integer ( pancacah pangvlangan J 
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ALG0RI7MA: 
read(K, m) 
i «- 1 

while lSHdo 
rc^(niaa) 

j *- 1 ( mulai dart mata kuliah pertama } 

jumlah •- Oj 
while J S m do 
read(nilai) 

Jumlah «- jumlah * nilai 

J 4- j . l ( c injau untuk nata Jculiah berikutnya / 
end while 

(J > 

l hitting rata rata aelurvh nilai } 
rerata •- jumlah/m 
write frorata) 

l *- 1 • 1 { tin Jan untuk nwlinojawa bvrlkutnya } 

ondwhile 

/ 1 • W ) 

Algorltma 8.19 Menghitung mini rota-rota u|lon setinp mahotuwn 


Contoh Masalah 8.20: Valkdasi Passwort 


Buatlnh nlgoritma yang nu*nim mckanisme pemhacaan sandi-lcwat 
( password) untuk masuk kc sebuah sistem (ATM, server, renktor nuklir, 
lcmari besi, dan sebagoinya). Apabila sandi-lcwat yang dibaca salab, makn 
pemhacaan sandi-lewflt hanya boleh diulang maksimum 3 kali. Sandi-lcwat 
yang benar disiropan di dalam nlgoritma sebagai konstnnta (dalam pmktek, 
sandi-lcwat disimpnn di dalam basis data yang tcrenkripsi untuk menjaga 
keamnnnnnya). 

Pcnyclcsuiun 

Kita menggunakan peubah count untuk mcncacali jumlah pemhacaan 
sandi-lcwat. Sctiap kali pemhacaan sandi-Wwat, count dinaikkan i. .Jika 
count ■ 3 . maka pemhacaan hcrikutnyu tidak dipcrholchkan. 

PRO GRAM ValldasiPaosword 

7 Honoiirulaaika: tnekaniame peabacaan aandl-Jewat /password). Hakoimum 
pemhacaan eandi-lowaz adaJah ciga kali ) 

DEKLARASI 

cqr.ot password . 'abcl23' (sandi -lewat} 

SandlLewat : stri ng fsandi-lewat yang dimaeukkan oleh pengguna\ 
aah : bo olea n (true Jika password benar, false jika aalah} 

count ; Integer f pencatat jumlah pemhacaan aandllcwa t } 

ALQORITMA: 
count •- 1 


“?1B 1 


Atgontma don Pomrogmmn 
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while ( not sah) and (count £ 3) do 
read (SandlLowat) 

If SandlLuwat - password thon 
sah •- true 

olas ( SmndlLawat * password ) 
count ♦- count ♦ 1 
qndlf 


count > J ) 

AJgorltma 8.2 0 Valldssl pembacaan password. 


Contoh Masalah 8.21 


Buatlah algorifma yang mengonversi bilangan bulat tidak-negatif dalam 
sistem dcsiraal mepjadi bilangan dalam sistem biner. Misalnya, i8, 0 - 
10010 *. 

Penyelcsaian 

Untuk mendapatkan bentuk biner dari sebuah bilangan desimal, bagi 
bilangan desimal tersebut dengan 2 terus menerus sampai hasil pembagian 
■ o. Deretan sisa hasil pembagian menyatakan bilangan biner dari bilangan 
desimal tersebut 

Contoh: 

18 / 2 « 9 sisa o 
9 / 2 =* 4 sisa l 
4/2 = 2 sisa o 
2/2 = 1 sisa o 
1/2*0 sisa i 

Unitan bilangan biner sesuai arah panah: 10010 

Misalkan bilangan yang akan dikonversikan ke biner adalah x. Algoritma 
pengonversiannya adalah membagi x dengan 2 secara berulang-ulang 
sampai hasil pembagiannya 0. Urutan pembagiannya adalah menghitung 
sisa pembagian teriebih dahulu: 

Bias ♦- x isod 2 

baru kemudian menghitung hasil pembagian 
x 4 - x dlv 2 

Bit biner - yang merupakan sisa pembagian ditampung dalam sebuah 
peubah string yang bemama biner. Inisialisasi biner pertama kali dengan 
karakter kosong ("). Setiap kali diperoleh sisa pembagian, sambungkan 
(dengan operator V) sisa pembagian tersebut dengan biner: 
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blner *- 'O' ♦ blner { jika olaa - 0 } 
blner ♦- ' 1 * ♦ binor { Jika alas mi) 

Algoritma selengkapnya adalah seperti di bawah ini: 

PROGRAM DeolnalKeBlner 

( Nmngkonvmrtl bllangan bulat tldak-negatll dalam ala turn daalmal 
m onjadi bllangan dalam alatem bluer } 

DBKLARASI 

X, aiaa i integer 

blner i string { acting yang tronanpung bit bluer ) 

ALGORITMA: 
read lx) 

blner • ( string koaong, bukan apaal ) 

repeat 

aioa ♦- x i»gd 2 
x «- x div 2 

caee elea 

0 t blner ♦- '0' ♦ blner { operas 1 penyambungan at ring ) 
1 i blner «- ' 1 ' ♦ blner f operaul penyambungan string 
endow 

until * - 0 

writetblner) 

AigorUma 8.21 Konv eral bllungan deetmal ke bllanqar blner 


onloh M .isalah 8 22. 


Tulislah program dalam bahasa Pascal dan C untuk mencetak segiliga 
bintang berikut ini jika diberikan tinggi segitiga adalah N (asumsikan N > o) 
Contohnya, jika N - 5 . maka segitiga yang dihasilkan adalah 


MM 


• •• 
*• 


Penyelesaian 

Perhatikan gambar segitiga untuk contoh N = 5 pada soal. Baris ke-i terdiri 
dari 1 bintang, bans ke-2 dua bintang, baris ke-3 tiga bintang, .... dan 
seterusnya baris ke-5 lima bintang. Secara uroum, baris ke-i terdiri dari i 
bintang. Setelah baris ke-N, baris-baris berikutnya merupakan pencerminan 
dari baris N -1 sampai baris l. 
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PROGRAM CetakSegitigaBincang; 

/ Mcncetak eegitiga bintar.g dengan Cinggi eegitiga - N ) 

(• DEKLARASI •) 
var 

M. i. 3 » intagor; 

(• ALGORITHA: •) 
bagin 

wrltaf Tinggi oegitigara N • ? •); readln(N) 

( cetak baglnn eegitiga dari baric 1 ear-pat N } 
for i:-l to N do 
bagin 

for j r«l to l 
writer •*) i 
fendfor) 
writeln; 
and, 

I cetak bagian yang motupakan penceminan dari eetengali 
legitiga port ana } 
for ii-N-1 downto 1 do 
bagin 

for jt*l to 1 

wrltaC •* )» 

(cndtor} 

wrltaln; 

and; 



Algorltma B.22 Moncolak sog.lKja bmlaog (Uoiam bahasa Pascal) 


/• PROGRAM CatakSegltigaBintang •/ 

/• Mencetak eegitiga bintang dengan tinggi negltiga - N •/ 

Olncluda <fltdlo.h> 

aaln() 

{ 

/• DEKLARASl •/ 
lot N, l. J; 

/• ALGOR ITHA: •/ 

prlntf (■ Tinggi oegltigam N • ? -Ij acanfCId'. fcM» 

/* cat ak bagian eegitiga dari barie i aampax N •/ 

tor (i-lj i«-N; i.*) 

( 

for (J-l; j«-l; 

prlntf (••*)» 

/•endfor*/ 
prlntf {-/n-J ; 

1 
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/• cetafc bagian yang mcrupakan penceraJnan dari setcngah 
aeglciga pertama •/ 
for (i-N-lj i<»lj i--) 

{ 

for {j-lj j<-ij j**) 
prlntf(*•*)» 

/•endfor'/ 
printfl-/n‘)j 


Algorltma 8.23 Moncolak sogitiga bintang (dalam bahasa C) 
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Pengantar Pemrograman 

Modular 


Untuk mencapai suatu tujuan bcsar, maka tujuan tcrsebut 
harm dibagi-bagi menjadi tujuan kecil 
sampai tujuan kecil itu merupakan tujuan yang dapat 
dicapai berdasarkan kondisi dan potensi yang dimi/iki saat itu 

(Al-Khuwarizmi) 

Ucapan Al-Khuwarizmi di atas sangat mcngena dalam kegiatan memprogram. 
Program yang besar lebih sulit dimcngerti (dibaca) dan lebih sulit lagi dalam 
melakukan pclacakan kesalahan (jika ada). Olch karena itu, program sebaiknya 
dipecah mcnjadi beberapa upa-program ( subprogram ) yang lebih kecil. Setiap 
upa-program melakukan komputasi yang spesifik. Upa-program yang baik 
adalah upa-program yang independen dari program utama sehingga 
programnya dapat dirancang tanpa mempertimbangkan konteks di mana ia 
digunakan. Dengan kata lain, pemrogram tidak perlu mempermasalahkan 
bayaimana upa-program tersebut dilakukan, tetapi cukup memikirkan apa 
yang ia lakukan [KER88J. Upa-program yang bagus menyembunyikan detail 
operasi dari bagian program yang tidak perlu tahu tentang upa-program 
tersebut Teknik pemecahan program menjadi sejumlah upa-program 
dinamakan teknik pemrograman modular (modular programming ). 
Beberapa bahasa pemrograman menamakan upa-program dengan sebutan 
sub-rutin ( subroutine ), modul, prosedur, atau fungsi. 


9.1 Contoh Pemrograman Modular 

Gambar 9.1 adalah struktur pohon yang meraperlihatkan dekomposisi 
program A menjadi beberapa buah upa-program. Pada aras 1, program 
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dipecah menjadi tiga buah upa-program, Ai, a2, dan A3. Jika upa-program 
dianggap masih terlalu besar, maka upa-program tersebut mungkin perlu 
dipecah lagi menjadi upa-program yang lebih spesifik. Misalnya upa- 
program A2 dipecah menjadi upa-program A21 dan A22. 



Gambar 9.1 Dokompostu program menjadi boborapa buah upa-program 


Sebagai ilustrasi pcmecahan program menjadi sejumlah upa-program, tinjau 
kemhali program pertukaran nilai A dan II dalani Halim C (yang d iambi I 
dari Contoh 5.3) yang disalin lagi sepcrti di bawah ini: 

/• PROGRAM Pertukaran •/ 

/• Mempertukarkan nilai A Jan 0. Nilai A dan B dibaca terlebih dahuJu, •/ 

wInclude «atdlo.h> 

(Mini) 

( 

/• DRKLARASl •/ 
lnt A. B. tempi 

/♦ ALGORITMA: •/ 

/• baca nilai A dan D •/ 
printf <-A - ?• I ; acanfCId*. &A) r 
printf |"B • ?•), acanfCId-. LB) i 

/• proaea pertukaran •/ 
temp - hi 
A • B; 

B - teirp; 

/• TUJ la nilai A dan B aetelah pertukaran •/ 
printf(“A - Id \n", A); 
printf (*B • Id \n". B) x 


Algoritma 9.1 Program memperlukarkan nHai A dan B (dalam bahasa C) 
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Program pertukaran di atas dapat kita pecah menjadi liga buah upa-program 
yang spesifik, vaitu upa-program untuk membaea data (A dan B), upa- 
program untuk melakukan pertukaran nilai A dan B. dan upa-program 
untuk mencetak nilai A dan B setelah pertukaran. Ketiga upa-program 
tersebut adalah seperti di bawah ini: 

/• UpA-program pcrtama •/ 
void Bacnlint *A. Int *B) 

/• Nombaca nilai A dan fl. •/ 

l 

/• ALGORITMA:•l 
/• baca nilai A dan B •/ 
prineC("A - ?-)j LAM 

printfl'B • ?•>.* «c«nffld' ( LB) ; 

I 

/• UpA-ptogr.iv kodua •/ 
void Tukartint *A. int *B) 

/• Nempertukarkan nilai A dan B. •/ 

I 

/• DRKLARAS1 •/ 

int tamp; ( peubah bantu ) 

/• ALOORITHA: •/ 
tamp • *A s 

•A - *B; 

•U • temp; 


/• Upa -program ketiga */ 
void Tulin (int A, int B) 

/• Noncatak nilai A dan B •/ 

( 

/• ALGORITNAi •/ 

printf(“A • %d \n-, A); 
printC (*B - Id \n". Bt; 

) 

Masing-masing upa-program mempunyai struktur yang senipa dengan program 
uUtmn: adn judul upa-program. ada bagian dcklnr.isi. dan kigian algoritma. Setiap 

upa-program dapat arimpan *ii daEm baios ii> atau irersatu dengan 
berkos program utama (lihat Algoritma 9.2). Dengan |>emeeaban program 
menjadi scjumlah upa*program. program utama terlihat menjadi lebih seilerhana. 
Program utama hanyn pcrlu mendeklarnsikan ketiga upa-program tersebut 
selrclum mercka digunakan (program utama dinyatnkan sckigai bagian yang 
dinroir gelap pada Algoritma 9.2). Upa-program dreksokwri dengan mcmanggil 
namunya. Ketikn sebuali upa-program dipanggil, pelaksannau program sekarang 
berpindah ke upa-program tersebut. Sclanjutnya sclunrh instmksi di dalam upa- 
prognim dilaksannkan. Setelah sduruh instnrksi di dalam U|M-program selesai 
dikeijnkan, pelaksanan program kembali herpindah ke program pemnnggil 
(dalam lull ini program utama), untuk melaksannkan instniksi Ivrikutnya. 

/• PROGRAM Partukaran •/ 

/• Mongertukarkan nilai A dan B. Nilai A dan H dibaca terlobih datiuhi. •/ 

Mincludo «ntdto.h> 

void n.icntint *A, Int *B) 

void Tuknr(int »A. int «B) 


Bab 9 - Pongantar Pomrograman Modular 


m 


http://www.pakteguh.com 



void Tulls (lot A, lot B) 

main() /• program uCans •/ 

/• DSKLARASI •/ 
int A, B; 

/• ALGORITMA : •/ 

Baca(A,B); /• Baca nllal A dan B •/ 

Tukar(&A,4£)i /* prone b pertukaran •/ 

Tulls(A,B )i /• Tul la allal A dan B aetelab pertukaran •/ 


void Baca(lot *A. lot «B> 

/• Henbaca nllal A dan B. •/ 

/• ALOORITHA:•) 

/• baca nllal A dan B •/ 
print*(-A - ?*)i scanfCId-. &A)» 
print*CB . ?•), scaa*(-%d*, ta» i 


void Tukar(lnt *A. Int *B) 

/• Hampercukarkan nllal A don B. •/ 

/• DBKLARASI •/ 

lnt tamp; ( psubah bantu ) 

/• ALQORITViA: •/ 
temp • •hi 
•A o *B; 

•B - tump; 


void Tulls(int A. lnt B) 

/• Mancatak nllal A dan B •/ 

{ 

/• ALOORITHA: •/ 
print*("A • Id \n - . A)i 
print* CB • Id \n*. B); 

} 

Algoritma 9.2 Program utama Pertukaran (baglan yang diarslr) 


9.2 Keuntungan Pemrograman Modular 

Modularisasi program memberikan dua keuntungan. Pertama, untuk 
aktivitas yang harus dilakukan lebih dari satu kali, modularisasi 
menghindari penulisan teks program yang sama secara berulangkali. Di sini, 
upa-program cukup ditulis sekali saja, lalu upa-program dapat dipanggil dari 
bagian lain di dalam program. Di sini, penggunaan upa-program dapat 
mengurangi panjang program. Sebagai ilustrasi, tinjau program dalam 
bahasa C di dalam Algoritma 9.3. Hanya bagian algoritma yang sama dan 
ditulis berulang-ulang yang ditampilkan di sini (bagiai; yang diarsir). Bagian 
algoritma lain cukup dinyatakan dengan 
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/• PROGRAM xyz •/ 
-include <stdio.h> 


Mint) 

( 

/• DEKLARASI •/ 
int A. B, C. D. temp 

/• ALGORITMA: •/ 


/• Portukarkan nllal A dan B •/ 
temp - A; 

A - B; 

B - temp; 


if 1C > D) 

/• Pertukarkan nllal C dan D •/ 
temp - C; 

C - D; 

^ D • temp: 

I » • 

• • • 

) 

Algorilma 9.3 Conloh program ynng bobornpa kali bontl bagum portukaran 


I)i (lalam Algorilma 9.3 di alas, ada Iwninn program yang dilulis bcrulangkali 
padahal keduanya melnkukan nktivitas ynng sama. yaitu pertukanin niiai antara 
dua Iniah pcubah. Kila dapal mcnulis bagian yang dilulis Iwrulangkali terscbut 
kc dalam sain buah u pa-program yang dibcri naina Tukar. Upa-program yang 
liemama Tukar diakscs dcngnn nuinanggilnyn dnri dnlain program utainn. 
Algorilma 9.3 dilulis kcinbali dcngan |R'nggunanan upa-program Tukar mcnjadi 
Algorilma 9 -d- 

/• PROGRAM xyz •/ 
ninclude <«tdio.h> 

void Tukar tint »A. int *B)j /• do klaraal upa-program yang d igunakan •/ 

Mind 

( 

/• DEKLARASl •/ 
int A. B. C, D. tomp; 

/• AIX&R17MA: •/ 


• t • 

/• P&rtukarkan nllal A dan B •/ 
Tukar(fcA,fcBI; 
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if (C > D) 

/• PertuJearJcan ailai C dan D •/ 
Tukar(iC,ID), 

) 


) 

void TUkar(int «A. int *B) 

/• MenparcuArarAan niial A dan B. •/ 

/• D8KLARASI •/ 

int tamp; { peubah bantu ) 

/• ALQORITHAi •/ 

temp • A; 

A - B; 

^ B - tamp; 

AlgortbnaM Oa Boh program denp>nm«iyrt^ bag ian ptrMara n m^^ 

Keuntungan kedua dari modularisasi program adalah kemudahan menulis dan 
menemukan kesalahan (debug) program. Kemudahan menulis akan sangat 
berguna pada masalah besar yang dikeijakan oleh salu tim pemrogram yang 
beranggotakan beberapa orang Masalah yang diprogram dipecah menjadi 
beberapa masalah yang lebih kecfl. Setiap masalah yang lebih kedl tersd>ut 
ditulis ke dalam modul yang spesifik dan dikcrjakan oleh orang yang berbeda. 
Satu modul blsa berisi satu atau lebih upa-program. Seluruh modul 
diintegrasikan menjadi satu buah program yang lengkap. Program yang 
modular menjadi lebih mudah untuk dibaca dan dimengerti. Program yang 
tidak modular sulit dipahami, khususnya kalau program tersebut panjang atau 
terdiri dari puluhan, ratusan, atau ribuan bans instruksi. 

Karena setiap upa-program melakukan aktivitas spesifik, maka apabila terdapat 
kesalahan di dalam program, kesalahan tersebut cukup dilokalisasi di dalam 
upa-program yang bersangkutan. Sebagian besar program komputer ditulis 
modular, meskipun program tersebut tidak melibatkan eksekusi yang berulang 
dari aktivitas yang sama. Pemecahan program menjadi modul-modul program 
yang lebih kedl umumnya dianggap sebagai praktek pemrogram an yang baile 

Terdapat dua bentuk upa-program, peitama prosedur (procedure ) dan kedua 
fungsi (Junction ). Stniktur setiap upa-program tersebut pada hakikatnya sama 
dengan stniktur program biasa, yaitu ada bagian judul ( header ) yang berisi 
nama modul, bagian deklarasi, dan badan (body) program yang berisi instruksi 
yang akan dilaksanakan. Pembahasan lengkap mengenai prosed ur dan fungsi 
akan diberikan di dalam Bab 10 dan Bab n. 
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10 


Prosedur 



Prv$edur btrisi $enmgkaian keglatan yang bcrtujutin t/tesi/ik ( Sumhrr : wwwfyJUiu.com) 


Kata "prosedur’* soring kita dengar dalam kehidupan sehari-hari. Seorang 
mahasiswa pada setiap awal semester selalu nielakukan pendaftaran ulang 
(registrasi). Lmgkab- langkah pendaftaran ulang lazim dinyatakan dalam 
sekuah prosedur yang dinamakan prosedur daftar ulang. Secara sederhana 
prosedur daftar ulang dituliskan sebagai berikut: 
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Prosedur Daftar Ulang 

1. Ambil Form Rencana Studi (FRS) di kantor Tata Usaha Akademik 
dengan memperlihatkan Kartu Tanda Mahasiswa (KTM) dan Kartu 
Studi Mahasiswa (KSM). 

2. Lakukan pembayaran SPP di loker pembayaran dan minta kwitansinya. 

3. Isi FRS dengan mata kuliah - mata kuliah yang akan diambil di semester 
ini. 

4. Lakukan perwalian untuk mengesahkan FRS oleh Wali Akademik. 

5. Jika SPP sudah lunas, maka serahkan FRS yang sudah disahkan oleh 
Wali Akademik ke petugas di Kantor Tata Usaha Akademik. Jika SPP 
belum lunas, kembali ke langkah 2. 

6. Serahkan foto ukuran 2x3 untuk KTM yang baru, untuk kemudian di¬ 
cap oleh petugas. 

7. Selesai 

Kctika sebuah prosedur dieksekusi, maka instruksi-instruksi di dalamnya 
dikerjakan satu per satu. Pada contoh registrasi mahasiswa, mahasiswalah 
yang mengeksekusi prosedur daftar ulang. Mahasiswa membaca setiap 
langkah di dalam prosedur, lalu melaksanakan instruksi yang tertulis pada 
setiap langkah. Efek dari pelaksanaan prosedur dapat diamati sebelum dan 
sesudah prosedur dijalankan oleh mahasiswa. Sebelum pelaksanaan 
prosedur daftar ulang, mahasiswa belum terdaftar di semester yang baru, 
dan sesudah pelaksanaan prosedur, mahasiswa terdaftar di semester yang 
baru. 


Di dalam dunia pernrograman, prosedur adalah modul program yang 
mengeijakan tugas/aktivitas yang spesifik dan menghasilkan suatu efek 
netto [UE96]. Suatu efek netto diketahui dengan membandingkan keadaan 
awal dan keadaan akhir pada pelaksanaan sebuah prosedur. Oleh karena itu, 
pada setiap prosedur kita perlu mendefinisikan keadaan awal (ICAwal) 
sebelum rangkaian instruksi di dalam prosedur dilaksanakan dan keadaan 
akhir (K.Akhir) yang diharapkan setelah rangkaian instruksi di dalam 
prosedur dilaksanakan. 


10.1 Pendefinisian Prosedur 

Pendefinisian prosedur artinya menuliskan nama prosedur, mendeklrasikan 
nama-nama konstanta, peubah dan tipe (jika ada), dan menjabarkan 
rangkaian aksi yang dilakukan. Pada dasarnya, struktur prosedur sama 
dengan struktur algoritma yang sudah Anda kenal, yaitu: ada bagian judul 
(header) yang terdiri atas nama prosedur dan deklarasi parameter (jika ada), 
bagian deklarasi untuk mengumumkan nama-nama, dan bagian algoritma 
yang disebut badan prosedur. Setiap prosedur mempunyai nama yang unik. 
Nama prosedur sebaiknya diawali dengan kata keija karena prosedur berisi 
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suatu aktivitas, misalnya HitungLuas, Tukar, CariMaks, Inisialisasi, 
AktifkanMenu, dan lain sebagainya. 

Parameter adalah nama-nama peubah yang dideklaraskan pada bagian header 
prosedur. Sebagian besar program memeriukan pertukaran data/informasi 
antara prosedur (atau fungsi) dan titik di man a ia dipanggil. Penggunaan 
parameter menawarkan mekanisme pertukaran informasi tersebut. Tiap item 
data ditransfer antara parameter aktual dan parameter formal yang 
bersesuaian. Parameter aktual (kadang-kadang disebut juga argumen) 
adalah parameter yang disertakan pada waktu pemanggilan prosedur, 
sedangkan parameter formal adalah parameter yang dideklarasikan di dalam 
bagian header prosedur itu sendiri. Kedka prosedur dipanggil, parameter 
aktual menggantikan parameter formal. Tiap-tiap parameter aktual 
berpasangan dengan parameter formal yang bersesuaian. 

Notasi algoritmik untuk mendefinisikan prosedur (tanpa parameter) adalah: 

proce dure NamaProoodur (dekUrael parameter, jika a da) 

ISpeairikaal prosedur, berlei panjalaaan toataag apa yang dilakukan 
olah proacdur ini. ‘1 * 

K.Awal i keadaan aobolum proaadur di lakannakan. 

K.Akhiri keadaan ootolah proaadur dilakaanakan. J 
DBKLARASI 

{ a emu* noma yang dipakai di dalam proaadur dan hanya berlaku lokal 
di dalam proaadur didafinlaikan di aini ) 

ALOORXTMAi 

( badan proaadur, bariai urucan inotrukai J 
Alporttma 10.1 Stnjfctur pro—duf _ 


Pendeklarasian parameter di dalam prosedur bukanlah keharusan. Dengan 
kata lain, parameter boleh ada atau tidak ada. Kelak Anda akan memahami 
kapan diperlukan pendefnisian prosedur dengan parameter. Marilah kita 
mulai dengan sebuah contoh mendefinisikan prosedur tanpa parameter. 


Contoh 10.1. Buatlah prosedur yang membaca panjang alas dan tinggi 
segitiga, menghitung luas segitiga dengan rumus luas ■ (alas x tinggi)/2, dan 
mencetak luas segitiga tersebut. 
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Penyelesaian 

procedure HitvmgLuaaSegitiga 

{ Menghltung luaa eegiciga dengan nanus L « (alaa x tioggl )/2 } 
{ K.Aval t eembarang ) 

{ K.Akhlr: luao oagltlga tercetak.) 

DCKXJUtASX 

alaa i reel ( panJong alaa aogltlga, dalam cm } 

tinggi i real { clnggl aogltlga. dalam cm ) 

luao i real / luma oagltlga. dalam car 1 I 


ALGORITMA: 

read (alao,tinggi) 

luao 4- (alao • tinggi)/2 

write Hue a) 

Algorttma 10^2 Prosedur untuk mengNlur >9 Ium seg«ga 


Perhalikan Algoritma 10.2. Keadaan awal (ICAwal) prosedur adalah sembarang 
kondisi, namun setlah prosedur selesai dilaksanakan, keadaan akhimya 
(ICAkhir) adalah kondisi di mana luas scgitiga tercetak (misalnya ke layar). 


10.2 Pemanggilan Prosedur 

Prosedur bukan program yang berdiri sendiri, jadi ia tidak dapat dieksekusi 
sccara langsung. Ini berarti, instruksi-instruksi di dalam prosedur baru 
dapat dilaksanakan hanya bila prosedur tersebut diakses. Prosedur diakses 
dengan cara memanggil namanya dari program pemanggil (misalnya dan 
program utama atau dari modul program lainnya). Jika prosedur tanpa 
parameter, maka pcmanggilannya cukup dengan namanya saja: 

NamaProsedur 

(cara pemanggilan prosedur dengan parameter akan kita bahas di dalam 
upa-bab 10.4). 

Ketika NamaProsedur dipanggil, kendali program berpindah secara otomatis ke 
prosedur tersebut. Seluruh instruksi di dalam badan prosedur dilaksanakan. 
Setelah semua instruksi selesai dilaksanakan, kendali program berpindah secara 
otomatis kembali ke instruksi sesudah pemanggilan prosedur. 

Agar nama prosedur dikenal oleh program pemangil, maka di dalam program 
pemanggil, kita harus mendeklarasikan purwarupa (prototype ) prosedur 
tersebut. Purwarupa prosedur hanya berisi bagian header prosedur. 
Pendeklarasian purwarupa juga untuk memberitahu program pemanggil 
bagaimana cara-cara mengakses prosedur (jumlah parameter dan tipe 
parametemya, jika ada). 
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Misalkan kita mempunyai N buah segitiga dan kita ingin menghitung luas 
semua segitiga. Prosedur untuk menghitung luas segitiga sudah kita 
definisikan di dalam Contoh 10.1. 

PROPRAM Segitiga 

{ Honghltung lues N buah aegltlga. ) 

DBKLARAS1 

i, W i Integer 

procedure HltungLuaaSegitiga 

{ Hocghitucg luas segitiga dengan maua L - (alee x tlnggl)/2 J 
ALGOR1TMA: 

read (M) { tentukan banyaknya segitiga ) 

Cor 1 *- 1 to » do 
HitungLuaaSagltlga 
orjdfor 

Aiflorlt mi 10.3 Menghttun p luei N buah eegltlpa..... 


10.3 Nama Global, Nama Lokal, dan Lingkup 

Nama-nama (konstanta, peubah, tipe, dan Iain-lain) yang dideklarasikan di 
dalam prosedur (termasuk parameter, jika ada) hanya “dikenal" di dalam badan 
prosedur yang bersangkutan. Nama-nama yang dideklarasikan di dalam 
prosedur tersebut dikatakan lingkupnya (scope) “lokal". Nama-nama lokal 
hanya berlaku di dalam prosedur yang melingkupinya saja. Setelah prosedur 
selesai dieksekusi, nama-nama tersebut tidak dikenal lagi di luar prosedur. 
Tinjau prosedur HitungLuasSegitiga pada Contoh 10.2. Peubah alas, tinggi, 
dan luas hanya dapat digunakan di dalam prosedur yang bersangkutan. 

Sebaliknya, nama-nama (konstanta, peubah, tipe, dan lain-lain) yang 
dideklarasikan di dalam program utama dikatakan lingkupnya “global". Nama- 
nama global dapat digunakan di bagian manapun di dalam program, baik di 
dalam program utama maupun di dalam prosedur yang dipanggil Tlnjau 
program Segitiga pada Contoh 10.2. Peubah i dan N dapat digunakan di dalam 
program utama maupun di dalam prosedur HitungLuasSegitiga (kalau 
diperlukan). 

Sekarang, man kita modifikasi prosedur HitungLuasSegitiga dengan 
meniadakan peubah alas, dan tinggi di dalam bagian deklarasinya, dan 
menghilangkan pemyataan pembacaan data di dalam prosedur. 

procedure HitungLuasSegitiga 

( Menghitung luaa aegltlga dengan rumue Luas - (alaa x tinggi)/2 ) 

{ K.Aval t aemberong ) 
i K.Akhin luaa aagltlga tercetak.) 

DEKLARASI 
luae i real 
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ALGORI TWAi 

lunrt *- (al<IB • tlny'jU /2 
wrlcu Uua*) 

Algorllma 10.4 ModifiAnsi prosodur menghllung luas sogibgn 


Sclanjutnya, modifikasi program utama segitlga dengan mcmasukkan 
peulmh al »:- t dan r ingg. kc dalam bagian dcklarasi program utama, dan 
mcmbaca . i dan t i nag i: 

PROGRAM Segitiga 

( Kenghtcung luas N buah segitiga. } 

DEK LARAS 1 

i. II I l nt«»goi 

alau, liuggi : real 

p roced uto 111tungLunnSegit1 g a 

{ Henghltung luap aegitiga dengan nmuo L • (alas x tinggl)/2 I 
ALOOKITKAt 

ii'.wliH) f tentukan banyaknya aegitiga } 

Tor i *- l w H 4u 
madia Ian. tln'vjll 
HitungLuaoBi'iJ t \q* 

Kreltni 

Algorllma T0.5 Modifikasi program utama untuk mcnghitung luas N buah segitiga 


Peubah ..la:- dan t ingyi dideklarasikan di dalam bagian dcklarasi program 
utama. Karcna itu, ala:; dan t in-jgi adalnh peubah global sehingga mereka juga 
’dikcnal" dan dapat digunakan di d&lnm proscdur Hi tungLuasSegi ciga. 

Sebaliknya, peubah luas dideklarasikan di dalam proscdur iiicur.cjLu.inSogir. Iga, 
jadi peubah tcrscbut adnlah fxmbah lokal dun ia hanya dapat digunakan di dalam 
iingkup proscdur itu saja. Anda tidak dapat mcnulisknn pcmyataan wr Uo ( lua;) 
di dalmn program utama. 

Apakah menggunakan ptubali global atau peubah lokal? 
Kcpulusan apakah suatu peubah nknn dideklarasikan global atau lokal 
bergnntung kepadn ix-nggunaan tiama tcrscbut. Bila suatu peubah digunakan di 
sclunih bagian program (termasuk di dalam proscdur), maka peubah tcrscbut 
hunts dideklarasikan global. Sebaliknya, bila peubah tcrscbut hanya digunakan 
di dalam proscdur saja, maka ruima peubah “sebaiknyu dideklarasikan sebagai 
peubah lokal (dikatakan “sebaiknya" karcna bila dideklarasikan global pun 
masih tetnp benar). 

Usahakanlah menggunakan peubah global sesedikit mungkin. Pcnggunaan 
peubah lokal akan membenkan kcuntungan. sebab peubah lokal niemhuat 
program lebih clegan, dan dapat mcminimumkan usuha penenrian 
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kesalahan yang disebabkan oleh nama tersebut, karena peubah lokal hanya 
“bermain" di dalam lingkup prosedur saja. 

Prosedur yang baik adalah prosedur yang independen dan program 
pemanggilnya. Pemyataan ini menyiratkan bahwa prosedur yang baik tidak 
menggunakan peubah-peubah global di dalam badan prosedumya. Jika 
program utama periu mengomunikasikan nilai peubah global ke dalam 
prosedur, maka ada satu earn untuk melakukannya yaitu dengan menggunakan 
parameter. I*bih jauh mengenai parameter akan dijelaskan di dalam upa-bab 
104 berikut ini. 


10.4 Parameter 

Sebagaimana sudah disebutkan di dalam upa-bab 10.1, kebanyakan program 
raemerlukan pertukaran informasi antara prosedur dan titik di mana ia 
dipanggil. Penggunaan parameter menawarkan mekanisme pertukaran 
inform asi tersebut. 

Prosedur dengan parameter diakses dengan cara memanggil namanya dari 
program pemanggil (program utama atau modul program lain) disertai 
parametemya. Parameter yang disertakan pada waktu pemanggilan disebut 
parameter aktual. Cara pemanggilan prosedur dengan parameter adalah: 

Namjpxosedur(paxaneter aktual) . ‘ 

Ketika prosedur dipanggil, parameter aktual berkoresponden dengan parameter 
formal (parameter yang dideklaarsikan pada bagian header prosedur). Hap-tiap 
parameter aktual berpasangan dengan parameter formal yang bersesuaian. 

Aturan yang hams diperhatikan dalam korespondensi satu-satu antara 
parameter aktual dan parameter formal adalah: 

1. Jumlah parameter aktual pada pemangilan prosedur harus sama dengan 
jumlah parameter formal pada deklarasi prosedumya; 

2. Tiap parameter aktual hams bertipe sama dengan tipe parameter formal 
yang bersesuaian; 

3. Tiap parameter aktual harus diekspresikan dalam cara yang taat-asas 
dengan parameter formal yang bersesuaian, bergantung pada jenis 
parameter formal (dijelaskan di bawah ini). 

Berdasarkan maksud penggunaanya, terdapat tiga jenis parameter formal 
yang disertakan di dalam prosedur: 

1. parameter masukan (input parameter ) 

2. parameter keluaran (output parameter ) 

3. parameter masukan/keluaran (input/output parameter ) 
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Parameter masukan adalah parameter yang nilainya berlaku sebagai 
roasukan untuk prosedur. Pada bahasa pemrograman, istilah parameter 
masukan ini sering dinamakan parameter nilai (value parameter atau 
parameter by value). Parameter keluaran adalah parameter yang 
menampung keluaran yang dihasilkan oleh prosedur. Sedangkan parameter 
masukan/kcluaran adalah parameter yang berfiingsi sebagai masukan 
sekaligus keluaran bagi prosedur tersebut. 


10.4.1 Parameter Masukan 

Padn parameter masukan, nilai {value) parameter aktual diisikan {assign) ke 
dalam parameter formal yang bersesuaian. Nilai ini digunakan di dal am 
badan prosedur yang bersangkutan. Nilai yang dinyatakan oleh parameter 
masukan tidak dapat dikirim dalam arah sebaliknya. Itulah alasan mengapa 
parameter jenis ini diacu sebagai parameter masukan. Perubahan nilai 
parameter di dalam badan prosedur tidak mengubah nilai parameter aktual. 
Knrcnu yang dipentingkan adalah nilainya, maka nama parameter aktual 
bolch berbeda deugan nama parameter formal yang bersesuaian. 

Tinjau kembali prosedur menghitung luas segitiga di dalam Algoritma 10.3. 
•lika program utama ingin mengomunikasikan panjang alas dan tinggi 
segitiga ke prosedur Hltungi.u/iHSogitiga, maka peubah alas dan tinggi 
hams dideklarnsikan sebagai parameter formal di bagian header prosedur: 

ptacoduro lUCungl.iivinSo'iit 1 <m Hn;mt alas, tinagi s rual, ) 

f Nonghltung luaa oegitlga dongnn rumue Luaa - la Ian x tinggi 1/2 } 
K.Awat 1 ulao dan tinggi i»ud*h t ovdellnial nilainya } 
i K.Akhlx: luaa nngitlga torcatak.} 

UEKLARASf 

luaa r intt Hior 

AUiQRlTOAt 

Uw» •- lalHU • tlnugil/2 
writer Uuaa) 

Algorltmn 10.6 Prosodur monghilung luas sogiltga dengan paramelof masukan 


Perhntikan Algoritma 10.6. Kata kunci im ut pada bagian header menyntakan 
balnva alas dan tinggi adalah parameter masukan. Keadaan awal (K.Awal) 
prosedur adalah kondisi di mann nine dan tinggi sudah terdefinisi 
nilainya. Ini berarti bahwa »las dan tinggi sudah hams sudah berisi nilai 
sebelum pelaksanaan prosedur. Keadaan akhir (K.Akhir) prosedur adalah 
kondisi di mann luas segitiga tercetak (misalnva ke layar). Program utama 
yang memanggil pmsedur HUungLuasSogitiga hams mcndeklarasikun 
prosedur ini dan memnnggilnya dengan parameter aktual yang bersesuaian: 




tma don Pemrograman 


http://www.pakteguh.com 




PROCRAM Segitige 

(Menghitung luaa N buah negltig.i. ) 

OEKLARAS 1 

i. N : Integer 
alan, tinggi : :mil 

procedure H1 tunqLuan8oqitiga ( ir.put .»lao, tinggi i real ) 

{ Menghitung Juan nogittga dengan rumuo L • Inlno x tinggi)/2 ) 


ALGOR I m\: 

read (H) { tentukan banyaknya eegitiga / 
for l «- 1 to N do 
read (alas, tinggi) 

HitungLuasSegitigaUlas,tinggi) 
endfor 

Algorilma 10.7 Program ulama unluk menghitung luas N buah sogitlga 


Pcrhatikan Algorima 10.7. Prosedur HicungLuanSegitiga dipanggil dari 
program utama dengan menyertakan panjnng alas dan tinggi segitiga: 

MitunglUmmegitigatalrtB. tinggi) 

Karena yang dipentingkan adalah nJiainya, maka noma parameter aktual 
tidak hams sama dengan nama parameter formal yang bersesuaian asalkan 
tipenya tetap sama (lihat Algoritma 10.7)* 

PROGRAM Sogitig.i 

{ Menghitung Juan N buah oegitlga. } 

OEKLARAi!! 

i. M : integer 
a, t .* real 

p rocedure Mi t ungl.ua itSegitiga l Input, a'.an. tinggi j real ) 

/ Menghitung luan nagltiga dengan rumuu l. - (alna x tinggi) /2 } 

AIXJOKITMAt 

ruad(N) { tentukan banyaknya oegitlga } 
for. i*-t to N do 
reacj talaa. tinggi) 

MltungLuaeSegirlya(a.L) 

Endfor 

Algorilma 10 8 Program ulama untuk monghllung luas N buah nogibga (nama pornmolor 
aktual tidak sama dongan nama parameter formal). 


Pcrhatikan Algoritma 10.8. Di sini prosedur • -ngi.uasScgic. : ga dipanggil 
dengan menyertakan nilai alas dan tinggi di dalam peubah « dan : 

Mi tungLUdiiSog itlga (a, C) 

Ketika prosedur Hi tungLuar.s*. jitiga dipanggil, maka nilai parameter aktual .• 
dan c diisikan ke dalam parameter formal alas dan tinggi (lihat Gambar 10.1). 
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Misalkan nilai «i yang dibaca adalah 10 dan nilai t yang dibaca adalah 5, maka 
parameter alas akan menerima nilai 10 dari a dan parameter tinggi akan 
menerima *, dari t. Selanjutnva nilai alas dan tinggi digunakan untuk 
menghitung luas segitiga di dalam prosedur HitungLuasSegit iga. 

PROGRAM Segitiga 

/ Henghitung luaa N buah segitiga. J 


9 0 '4 

Hltungl.uauSogltlga(a. t) 

1 1 

V V 

pzoceduru lIHungLuoaSogltlgo ( input alas, tinggi t real ) 

{ Xcnghitung luan segitiga dengan ruaua Luas • talao x tinggi) /2 ) 


luna*-(a 1«»* tinggi )/2 

a # • 

Gombor 10.1 Mokonlsme korospondenil sotusatu antara parameter aklual dongon parnmolor 
formal yang bffrnls iraauksn._ 


Karcna yang dipentingkan adalah nilainya, maka parameter aktual boleh 
berupn ekspresi atau konstanta. Jodi, pemanggilan berikut: 

nitunyLuoasag11 1 «.» (.1*0.2, t • 0.1 > 

benar (misalnyn pnnjnng alas dan tinggi segitiga dikoreksi dengan 
mengalikannya dengan faktor 0.2 dan 0.1). 

Bcgitujuga pemanggilan 

II 1 tungLuaiiSeg l c ign ( 12 , 6 ) 

adalah benar. 

Contoh 10.2. Buatlah prosedur yang menerima nomor menu program dan 
menuliskan pesan nomor menu yang dipilih. Misalnva, jika pengguna 
memilih menu nomor 3. maka tuliskan pesan “Anda memilih menu nomor 
3". Jumlah menu scluruhnya ada 5 (lihnt Contoh 6.18 di dalam Hub 6). 

Penyclesainn 

ptoceUut AktlfknnMnnu( input UcnorKenu 1 integer ) 

( Mencotak notaor nony yang dipilih ) 

l K.Await WoraorMenu audah berlai nooor wnu yang dipilih } 

{ K.Akhlrt Penan yang beraeauaian dengan NoaorXenu tercetak. ) 

DF.KLARA 3 I 

I tldak ada ) 
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ALGORITMA: 

case NomorMenu 

1 s write PAnda menilih menu ncoor 1*) 

2 i write PAnda memllih menu nonor 2*) 

3 i write PAnda memllih menu nomor 3') 

4 « write PAnda merailih menu nomor 4*) 

5 : write PAnda mcmilih menu nomor 5*) 
endcaae 

Algor ltma 10.10 Mencetak nomor menu progr a m yang diptt ih. 


Catalan: 

pemyataan write ('Anda memilih menu nomor -') dapat dig anti dengan 
pemanggilan prosedur/fungsi yang berkaitan dengan menu yang dipilih. 


10.4.2 Parameter Keluaran 

Prosedur mungkin menghasilkan satu atau lebih keluaran yang akan 
digunakan oleh program pemanggil. Jika ini kasusnya, mak nilai keluaran 
tersebut ditampung di dalam parameter keluaran. Ketika prosedur yang 
mcngandung parameter keluaran dipanggil, maka nama parameter aktual 
menggantikan ( substitute ) nama parameter formal yang bersesuaian di 
dalam prosedur. Selanjutnya, nama parameter aktual akan digunakan 
selama pclaksanaan prosedur (ini be rl a wan an dengan parameter masukan, 
yang dalam hal ini nilai dari parameter aktual yang di-assign ke dalam 
parameter formal). Karena nama parameter merupakan suatu lokasi di 
memori, maka bila di dalam prosedur parameter aktual diisi suatu nilai, nilai 
ini akan tetap berada di dalam parameter aktual meskipun prosedur selesai 
dilaksanakan. Jadi, setelah pemanggilan, parameter aktual berisi suatu nilai 
yang merupakan keluaran dari prosedur tersebut. 

Parameter keluaran dideklarasikan di dalam header prosedur, sebagaimana 
parameter masukan. Tetapi, parameter keluaran harus dideklarasikan 
dengan kata kunci output . 

Tinjau prosedur HUungLuasSegitiga di dalam Algoritma 10.5. Luas 
scgitiga disimpan di dalam peubah luas dan nilainya dicetak di dalam 
prosedur tersebut. Andaikan kita menginginkan luas segitiga dicetak di 
dalam program pemanggil (jadi. bukan di dalam prosedur), maka kita harus 
menyatakan luas sebagai parameter keluaran, scperti yang dituliskan di 
dalam Algoritma 10.11 berikut ini: 

procedure HltunqLuaBSeqUiqa ( input alas, tlnqqi 1 real . 

output luas 1 real) 

{ Menghitung luas eegicigs dengan runua Luas - (alee x tlnggi)/2 ) 

( K.Awal 1 alao dan tinggi eudeb c erdeflnlai nilainya ) 

{ K.Akhir: luaa beriei luaa eegltiga. ) 
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DEKLARASI 

( t idak j da / 

ALGCSITMA: 

lufts - (alas • tincgU/2 

Algoritma 10.11 Prosedur menghitung luas sogibga dengan luas sebagai parameter keluaran 


Pcrhatikan Algoritma 10.11. Kata kunci :nput sebelum alas dan tinggi pada 
bagian header menyatakan bahwa kedua parameter tersebut parameter 
masukan, dan kata kunci output sebelum luaa menyatakan bahwa luas 
adalah parameter keluaran. Keadaan awal (K.Awal) prosedur adalah kondisi 
di inana alas dan tinggi sudah terdefinisi nilainya. Ini berarti bahwa alas 
dan tinggi sudah harus sudah berisi nilai sebelum pelaksanaan prosedur. 
Keadaan akhir (K.Akhir) prosedur adalah kondisi di rnana luas berisi luas 
segitiga. Program utama yang memanggil prosedur MitungLuasSugitiga 
harus mcndeklarasikan prosedur ini dan memanggilnya dengan parameter 
aktunl yang bersesuaian. Keluaran prosedur, yaitu luau, dicetak di dalam 
program utama: 
phoohak Sag1tiga 

I Menghltung luaa N buAh aegltiga. J 

DBKLAItASl 

i, N i Intagat 

«. t, I. i twi ( aim, tinggi. dan Juan aogxtlga) 

procedure HltunqLuanS«*jltlgi» llnput tinggi ; real. 

output luas t real) 

{ Nenghltung Juan aegltlg « dengan tvmua L - (slari x tinggi//a ) 

ALGOKXTMAt 

foad (M) I tencukan banyaknya aegltlga / 
for 1 h i to [l do 
ro.vita, t) 

IlitungLuaaSugi t tg.i («», X., LI 
write(L) 
o ndfor 

Algoritma 10.12 Program utama untuk morvjlwtunq kins N bunh aogllign 


Ketika prosedur HitungLuas8i>gitiga dipanggil, maka nilai parameter 
aktual o dan t diisikan ke dalam parameter formal alii dan tinggi (lihat 
Gambnr 10.2), sedangkan nama parameter aktual L menggantikan nama 
parameter formal luas (lihat Gambnr 10.3). 


24T1 


Algonima dan Pemrograman 


http://www.pakteguh.com 





PROGRAM Segitiga 

{ Mcnghitung luao N buah segitiga. J 
HitungLuasSegitiga(a, t. L) 


V V 

procedure HitungLuao 3 cqttiqa( input alas, tinggi : real, output lunasreal) 

I Henghitung Juaa segitiga dengan rumus Luas - (alas x tinggi1/2 ) 

• • • 

luaa «- (aIon • tinggi)/2 

Gnmb.ir 10.2 Mekanlsmo korospondonsl salu-salu ontaro parameter actual dongnn pnramotar 
formal yang berjenls kelunran 


Hal lain yang hams dipcrhatikan pada jenis parameter keluaran ini adalah 
parameter aktual hams benipa peubah. tidak boleh bempa konstanta atau 
ekspresi. Jodi, pemonggilon seperti contoh di bawah ini adalah SAI.AII: 

Hlumql.uaoSmjltlyalUAfa, t, 10) { karena JO adalah konstanta ) 

UltungLu.ioSnyltlgalOAU. t. I 0 *o) { karona 10 ».t adalah ekspresi J 

Contoh 10.3. Huatlah prosedur untuk mcnghitung nilai rato-rata N buah 
data bilangan bulat. Data bilangan bulat dihaca dari piranti masukan. 
Masukan prosedur adalah N dan kcluarannya adalah nilai rata-rata. 

Penyelcsaian 

Prosedur mcnghitung nilai rata-rata: 

procedure HltungkntnR.tt.i(input N : integer, output u 1 real) 

( Mcnghitung rata-rata .V buah bilangan bulat yang dibaca dari piranti 
masukan. ) 

{ K. Akr.1l 1 N sudah bermi banyaknya bilangan bulat, N > 0 . } 

( K.Akhiri u berisi rata-rata seluruh bilangan. ) 

DEKIARASI 

x 1 integer ( data bilangan bulat yang dibaca dari papan kunci } 

k « integer { pencacah banyak bilangan ) 

jumlah r integer { Jumlah seluruh bilangan ) 

AI.OORITMA: 

jumlah ♦- 0 { inislalisasi ) 

for k «- 1 to N do 
read(x) 

jumlah *- jumlah • x 
•ndwhilo 

u ♦- jumlah/N 

Algoritma 10.13 Men gNtung rniai rata rata _ 
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Contoh 10.4. Buatlah prosedur untuk menentukan nilai terbesar antara 
dua buah peubah bilangan bulat, A dan B. Masukan prosedur adalah A dan 
B, dan keluarannya adalah nilai terbesar. 

Penyelesaian 

procedure TencukanMakai»u»( input A, B 1 Integer . output make 1 
Integer ) 

( Menentukan nilai tarbaaar dari dua buah paubah, A dan B. f 
( K.Awal I Nilai A dan B audah terdofiniai. ) 

( K.Akhirt maka burial nilai tarbaaar antara A dan B. J 

DBKLARASI 

{ tldak ada J 

ALGORITMA: 

if A > B then 
nako ♦- A 
elee 

make «- B • . 

9 nflll ... 

AljDrtmt 1M4 Menentu kan will twtoe—i dart due buah dele._ 


10.4.3 Parameter Masukan/Keluaran 

Kita sudah melihat parameter masukan digunakan pada situasi di mana 
informasi dikirim hanya dari titik pemanggilan prosedur ke prosedur itu 
sendiri. Sedangkan parameter keluaran hanya mengirim informasi dari 
prosedur ke titik pemanggilan prosedur. Pada kebanyakan aplikasi, 
informasi juga harus dikirim dalam kedua arah. Dengan kata Iain, prosedur 
juga haras dapat mengakomodasi baik masukan dari dan keluaran ke blok 
program pemanggil. Parameter masukan/keluaran umumnya digunakan 
pada situasi seperti ini. 

Ketika prosedur yang mengandung parameter keluaran dipanggil, nama 
parameter aktual di dalam program pemanggil menggantikan ( substitute ) 
nama parameter formal yang bersesuaian di dalam prosedur. Selain itu, isi 
atau nilai parameter aktual juga ikut disalin ke dalam parameter formal. 
Jadi, nama dan nilai parameter aktual digunakan di selurah bagian 
prosedur. Aldbat penggunaan parameter masukan/keluaran, bila parameter 
aktual diubah nilainya di dalam badan prosedur, maka sesudah pemanggilan 
prosedur nilai parameter aktual di titik pemanggilan juga berabah. Ini 
berbeda dengan parameter masukan, yang dalam hal ini meskipun nilai 
parameter aktual di dalam badan prosedur diubah, nilai parameter aktual 
tersebut tidak berabah di titik pemanggilan. 

Parameter masukan/keluaran dideklarasikan di dalam header prosedur 
dengan kata kunci input / output . Hal lain yang haras diperhatikan pada 
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jenis parameter masukan/keluaran ini adalah parameter aktual harus 
bempa peubah, tidak boleh bempa konstanta atau ekspresi. 

Contoh 10.5. Di dalam bahasa Pascal terdapat procedur inc(x) yang 
berkoresponden dengan x:-x*i. Tulislah prosedur inc dalam notasi 
algoritmik. 

Penyelcsaian 

Peubah x harus dinyatakan sebagai parameter masukan/keluaran, sebab 
prosedur trie harus mencrima nilai x dan menghasilkan nilai x yang bam 
setelnh ditainbah satu. 

procedure Inc (input /ou’.put x 1 inlegorl 
{ Henalkkan nil.ti x aebcaar 1. } 

{ K.Aval 1 x oudah terdetlnxal nllalaya. ) 

I K.Akhlrt nilai x berumlmh J. / 

DEKLAKA8I 

ALGORITMAt 
x «- x • 1 

Alfloriimn 10.15 Mpn.iikmn nSal psubdmbsssr I. _ 


Contoh program yang memnnggil prosedur ;nc ditunjukkan pada Algoritma 
10.14. Prosedur mencetak nilai-nilai x dari o sampai 10. 

program ci’Lukoi><uBp4iio 

J Mencetak nllat d*ri 0 $an%>al 10. I 

DBKLAKA3I 

x i integer 

p roce dure Inc<inp ut/output x s > 

( Nenaikkan nilai x aebaaar I. J 

AI-OORlTWAt 
x *— 0 
ropoAt 
W£ltO(X) 

Xnc(x) 

until x > 10 

Algorllma 10.18 Pfo«r 1 untuK moncelak 0 sa» _ 


Mekanisme kores|M)iulensi satu-satu antara parameter aktual dengan 
parameter formal yang beijenis masukan/keluaran diperlihatkan pada 
Gambar 10.3. Andi pannh yang bolak-balik menunjukkan bnhwa x berfungsi 
sebagai parameter mnsukan sekaligus parameter keluaran. 
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PROGRAM CetakOSairpailO 
{ Mencecak nilai dart 0 sampai 10 . ) 


Inc(x) 

•" A 

y 

procedure Inc (Input/output x : integer) 

{ Menaikkan nilai x aebeaar 1 ) 


x *- x • 1 


Gambar 10.3 Mekanisme korespondens) salu-satu antara paramolor actual dengan paramoter 
for mal yang barfonla masufcan/keluaran. _ 


Untuk memperlihatkan efek penggunaan parameter masukan dan 
perbandingannya dengan parameter masukan/keluaran: 


Prosedur dengan parameter masukan 

procedure TambehKwp.it( Input x.y i Integer ) 

( Nenambahkan nilal x dan y maaing-oaning dengan 4. ) 

{ K.Awal : x dan y audah bertai nilal. ) 

{ K.Akhir: nilal x dan y maaing-maatng bertambah 4, Jaiu dicetak. 

DEKI-ARAUI 

{ tldak ada ) 


ALOORITMAi 
X 4- X • 4 

y *- y . 4; 

output ’nlIni x dan y di akhii pronrdur Kmpati*) 

writer x - x) 

write r y • \ y) 

Algorltma 10.17 Monambnhkan nMai parameter masukan dengan 4 


Program utama: 

PROGRAM XY7. 

/ Program yang memperlihatkan ofek penggunaan parameter maeukan ) 

DKKLARASI 

a. b i integer 

procedure TambahEmpat(input x.y : integer) 

{ Monambahkan nilal x dan y oasing-maoing dengan 4 ) 


ALGORITMA: 
a 4- 15 
b ♦- 10 
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writ©{’nilai a dan b sebelur pecwmggilan prosedur TambahEmpat: ') 
writoC a - a) 

writer b - b) 

TambahEmpat(a.b) 

write(’nilai a dan b sesudah pemanggilan prosedur TambahEmpat: *) 
writo(’ a - *, a) 

writer b - \ b) 

Algorilma 10.18 Program utama unluk memanggil prosedur TambahEmpat 


Keluaran dan Algoritma io.li dan Algorilma 10.18: 

nllai a dan b sobolum pemanggilan prosedur Tambahmpat: 
a • 15 

b - 10 , . 

nilai x dan y dl afchir prosedur TambahEmpat: 
x - 19 
y - 14 

nilai a dan b sesudah pemanggilan prosedur TambahEmpat: 
a - 15 

b - 10 


Jadi, sctelah pemanggilan prosedur, nilai .1 dan b tidak berubah. 


Prosedur dengan parameter ma.sukan/kcluaran 

Sekarang, uhah prosedur TaoiKihl/nj it dengan x dan y se hagai parameter 
mnsukan/ keluaran, seperti contoh berikut ini: 

procadure TambahEmpat (input/ouput x.y : Integer) 

{ Monambahkan rilJai x dan y mining- dengan 4. ) 

{ K.Awal 1 x dan y audah bartat nilai. ) 

{ K.Akhiri nilai x dan y bartambah maaing-maaing 4, Jalu dlcetak. ) 

DKKLAJIA31 

f tidak .id.i ) 

ALGORITHAi 

X X » 4 
y «- y • 4» 

wilteCnll.ii x dan y dl akhlr prosedur Expat: 1 ) 
writer x - x) 
writer y - \ y) 

Algoritma 10.19 Monnmbahknn n. 1.11 p.iiomotof masukon/koluaron dongnn 4 


Program utama: 

PROORAM XY L 

l Program yang morr.p*rlihatkan alrk panggunaan parameter manukan } 

1) EKLARASI 

a. b : integer 

procedure TambahEmpat(input/output x.y 1 integer) 
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{ MenamhaWcan nilai x dan y masing-nasing dengan 4 } 

ALGORJTMA: 

U«-1S 

l*-10 

write!'nilai a dan b sebclusi pmnggilan prooedut ToirbahEaipat: ') 
write!' a • *. a) 

vritoC b - *. b} 

TamliahEirpat (a.b) 

write{'nilal a dan b nen Uriah per.inggilan proHodut TairbahEmpat: *J 
wrlto(‘ a • *, a) 

writoC b - \ b) 

Algorllmo 10.20 Program ulama unluk mo wnflO l prosodur TnmbnhEmpat_ 


Kclunran dari Algoritmi 10.19 dan Algorithm 10.20: 

nilal rt Clan b nebelum ponanggllan proi'tdur Tnmbal»*pat« 

a - 15 

b - 10 

nilal x dan y dl akhli proaodui TaraluibKrpati 
x - 19 

y - U 

nilal .1 dan b nooudah poranggllan prooodur TaflfcahBnpat t 

a - 19 

b • 14 


Jelaslah, akibat penggunaan x dan y scbagai parameter masukan/kcluaran, 
bila nilai a dan b diubah di dalam prosedur .irnhahr_-np.it , maka perubahan 
ini dibawn ke titik pemanggilan prosedur rami min pat. 

Contoh 10.6. Tuliskan prosedur untuk ineinpcrlukarkan dua buah nilai 
disimpan di dulam peubah A dan II. 

Pcnydcsaian 

Di sini kita bams menyatakan A dan II sclngai parameter masukan/kcluaran, 
karena nilai A dan B dimanipulasi di dalam prosedur dan basil pertukaran 
disimpan dalam peubah A and /Jjuga. 

proceduro Tukar(lnpuc/output A. B : integer) 

{ Nompertukarkan nilai A dan B. / 

{ K.Awal : nilai A dan B audah texrdefinioi. ) 

{ K.Akhir: A beriai nilai B yang lam*, B beriai nilai A yang lama. ) 

UKKLARASI 

temp s integer [ peubah bantu f 
ALGOR 17 KA: 

temp *- A f sirrpan nilai A ke dalar- temp f 

A *- B ( ieikan nilai B ke dalam A f 

B ♦- tomp ( iaikan nilai temp ke dalam B I 

Algorilma 10.21 Mempertukarkan nilai A dan B 


“an 
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Contoh 10.7. Buatlah prosedur untuk menamhah suatu jam dengan satu 
detik. Misalnya, 


Jam 

Jam Haru Sctclah Ditnmbah Satu Detik 

14 : 27 : 3 * 

14:27:32 

15:36:59 

15:35:00 

10:59:59 

11 : 00:00 

23:59:59 

00:00:00 


Penyelesaian 

Contoli ini sudah pcrnah kita bahas di dalam Hah 6 (Conloh 6.16). Jam yang 
ham (set dull penambahan 1 detik) do|»nt dilcntukan dengan cnra 
perhitungan (komputosi) atau dengan eara anallsis kasus. Di sini kita tulis 
Ingi olgoritmanya dalam hentuk prosedur untuk maxing- mnsing earn. 

Vcrsi 1 (komputasi): 

ptcur odura JamHoi ifcutny tinpue/outpm .r 1 Jam) 

I Nenalkkan Ja m J dengan aatu detik. ) 

( K.Awal 1 J atidah berlal nllal jam (hhumtaa). ) 

( K.Akhiri J burial Jam yang baiua etelah dit ambah 1 dot Ik. } 

DBKUAKAS 1 

TotalU*:lk, Si«aD«*tik i Intaga t 
ALOOKITMA: 

( konveroi J ka total detik / 

Total Oat ik ♦- j.hhMCOQ • • J.iio 

{ tambalikan totaldetlk dengan J J 
TotalDotlk •- TotalDetik»l 

( konverni totaldetlk ke hhiam:aa } 

J.hh «- TotalDetik dlv 3600 
SifldDoUk ♦- TotalDetlk mod 3000 
,I.trap <- SioaDotik dlv 60 
J.ua «- SinaDetik mod 60 

Algorltmo 10.22 Monambah jam sokarang dengan 1 detik (ve il) 1 ). _ 


Vcrsi 2 (analisis kasus): 

proco duro Jar.Borlkutnya( :nput / outp uc ; i Jam) 

( Henaikkan jam J dengan aa tu detik. ) 

( K .Aw,1 1 : J audah beriei nllal jam (hh:mw:aa). ) 

{ K.Akhic: J beriei Jam yang barua etelah dltanbah 1 detik. ) 

DBKLARA 3 I 

{ tidak ada ) 

ALOOfU'DlA i 

it J.sa * 1 < 60 then ( tidak ada mama 1 ah penambahan 1 detik. ) 
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J.na *— J.os • 1 
elso { J.os * J - 60 } 

J.aa*-G ( detik keaball menjadl nol. mcnit bertambnh 1 , tapl 
perikea dulu apakah mcnit • 1 < €0 ) 
if J■ run • 1 <60 thou { tidak ada maealah penambahan 1 menit ) 

J.tnir *- J.rsi • 1 
uIgo { J.mm * 1 ■ 60 } 

J.mai*-0 { menit menjadi r.ol. jam bertambah 1. topi perikan dulu 
npakah Jam • 1 < 24 ) 

H J.hh • 1 < 24 then { tidak ada mannish penambahan 1 jam ) 

J.hh *- J.hh*l 
cine { J.hh • 1 - 24 j 
J.hh ♦- 0 
cndif 

'’MAI 

»MU 

Algorltma 10.23 Monambah Jam sokaran g dtnQM 1 dotik (vorsl 2)_ 


Misalkan program utamanya adalnh mencetak perjalannn waktu yang terns 
bertambali detik demi detik. dintulai dari jam yang dibaca sebagai masukan. 
sampai mencapai pukul o:o:o. 

rgOGKAM Junllidupl 

{ Mvmbuat Jam " hldup ■ yang aelalu bertambah i detik tetua manorun 
aampal jam OOiOOtOO. Hanukan Jam dibaca dari phantl manukan. Set lap 
pertambaltsn 1 detik. Jam yang baru dltampilkan oebagai koluaran ) 

DBKLARASI 

typo Jait. : roconK hht lntoqar . { 0 S hh S 59 ) 
wi infqor . I o s hh S 59 J 

•• i Integer [ o i hh 1 2t ) 

> 

J t .f.im 

p r Pen tium Janitor ikutnya fir-put / output J i Ja»I 
/ Nenalkkan Jam J dengan *atu detik. ) 

ALGORlTWAi 

road(J.hh, J.bot, J.tia) { baca Jaw aval ) 
repen t 

wr l to (J.hh. J.m. J.opI / cetak Jaw trekararig J 
JamBorikutnya<J} 

until (J.hh • 0) and IJ.bt • 0) and (J.bb • 0) 
vrlto (J.hh. J.m. J.oai f cetak Jam OrOrO } 

Algorltma 10.24 Program untuk mencotak jam sampai pukul OM _ 


Jika kita ingin membuat jam yang tidak pernah berhenti perjalanan 
waktunya, maka konst ruksi kalangnya hams diubah menjadi loop forever 
(yaitu pengulangan yang tidak pemah berhenti). Loop forever dapat 
dipecahkan dengan paksa (misalnya menggunnkan instmksi break dan 
return dalam bahasa C). 
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P ROGR AM JarHt Juj'2 

I MflmiJii.it Jam •hldup" yang eelalu bercambah J deiik torn* none run 
iranpal Jam 00:00/00. Haoukan Jan dibaca dari piranti m-iouA4n. Set lap 
portanbahan 1 detik, -Jam yang bam dltanpllkan aebagal keluaran ) 

DEKLARA3I 

typn J l ycotd slUi: intycjc: , { 0 S iih i S9 ) 

-.xn Antogei . / 0 i hh i S9 } 
sgt integer f 0 S hh s 33 ) 

> 

J i Jam 

S rocedut e JamBer lkatnyal input / output J : Jam) 

Henaikkan jam J dor.gan earn detik. } 

ALGOKIIW: 

i uftd (J.hh.J.nj,J.3f) ( baca Jam awal ) 

StlUf Hue do 

Y« Itol '.hfi,J.iwn,J.# b) ( c etak Jam awal / 

Jomn.'rlkutnyold) 

en dvihl lu 

Alyorltma 10.25 Program unluk moncolak jam yang torus htdup dolik tlorrt Uot.k 


10.4.4 Program dengan Prosedur atau Tanpa 
Prosedur? 

Sangat dianjurkan menulis program yang modular. Program yang dipccah 
menjadi beberapa prosedur (atau fungsi) menunjukkan teknik pemrogruman 
yang baik dan terstruktur. 

10.4.5 Prosedur dengan Parameter atau Tanpa 
Parameter? 

Sangat dianjurkan inenulis prosedur dengan parameter. Parameter berfungsi 
sebagai media komunikasi antara modul dengan program pemanggi). Sdnin itu, 
parameter da pat mengurangi kebutuhan penggunaan peubah global. 


10.4.6 Parameter Masukan atau Parameter 
Keluaran? 

Bcrgantung pada masalahnya. apnkah prosedur fersebut menghasilkan 
keluaran yang digunakan oloh program pemanggil atau tidak. Bila prosedur 
menghasilkan keluaran yang digunakan oleli program pemanggil, gunakan 
parameter keluaran untuk menampung keluaran tersebut. Scbaiiknya, bila 
prosedur tidak menghasilkan keluaran, atau kabupun menghasilkan keluaran 
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dan temyata keluaran tersebut hanya digunakan di dal am prosedur itu saja, 
gunakan parameter masnkan. Bila prosedur menerima raasukan sekaligus 
keluaran pada parameter yang sama, gunakan parameter masukan/keluaran. 


10.5 Translasi Notasi Algoritmik Prosedur ke 
dalam Notasi Bahasa Pascal dan C 


Beberapa aturan yang harus diketahui dalam proses translasi: 

1. Dalam bahasa Pascal, pendefinisian prosedur ditulis bersatu di dalam 
program utama, kecuali jika direalisasikan sebagai unit. Prosedur 
diletakkan di bawah kata var. 

2. Dalam bahasa C, pendefinisian prosedur ditulis di luar blok program 
utama (main), kecuali jika direalisasikan sebagai file include. Prosedur 
umumnya diletakkan sesudah blok main(), sedangkan deklarasi 
prosedur ditulis sebelum blok main() sebagai punvarupa saja 
(purwarupa prosedur hanya berupa header dari prosedur tersebut). Jika 
pendefinisian prosedur ditulis sebelum blok main(), maka 
pendeklarasian purwarupa prosedur tidak diperlukan lagi. 

3. Dalam bahasa C, tidak dikenal istilah prosedur. Semua modul program 
adalah fungsi. Prosedur adalah fungsi yang tidak mengembalikan nilai 
apa pun. Karena itu, return value untuk prosedur adalah void, (yang 
artinya 'kosong') 

4. Dalam bahasa C, bila prosedur tidak mempunyai parameter, maka tanda 
kurung *(‘ dan *)' tetap ditulis setelah nama prosedur tersebut. 

5. Semua parameter dalam bahasa C adalah parameter masukan. Oleh 
karena itu, semua argumen parameter aktual dilewatkan sebagai “by 
value". Ini artinya nilai parameter aktual disalin ke parameter formal 
yang bersesuaian. Suatu cara untuk memperoleh efek parameter 
keluaran maupun efek parameter masukan/keluaran adalah melewatkan 
pointer terhadap parameter aktual dengan menambahkan karakter 

di awal nama parameter aktual yang berjenis parameter masukan atau 
masukan/keluaran. Tanda menyatakan alamat dari peubah. 
Sedangkan parameter formal yang berjenis masukan atau 
masukan/keluaran ditambahkan karakter di depannya. Karakter 
menyatakan operator indirect, yang berarti sebuah peubah yang diawali 
dengan operator ini diakses secara tidak langsung melalui alamatnya 
yang disimpan di dalam peubah lain (pada contoh prosedur, alamat 
disimpan oleh parameter aktual diawali oleh karakter “&"). Uhat contoh 
translasi prosedur yang mengandung parameter keluaran atau masukan 
/keluaran. 

6. Bahasa Pascal yang memungkinkan prosedur mempunyai parameter 
masukan, parameter keluaran, dan parameter masukan/keluaran. 
Parameter formal yang bertipe keluaran atau masukan/keluaran harus 
diawali dengan kata kunci var, sedangkan parameter formal yang 
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bertipe masukan tidak diowali dengan kata kund var. Argumen 
parameter aktual dilcwatkan ke parameter fonnal yang bertipe masukan 
sebngai 'by value ", sedangkau bila parameter formalnya bertipe 
masukiin atnu mnsukan/keluamn, maka argumen parameter aktual 
dilewntkan sebngai m hy reference". 


ALGOR 1 TMIK: 

procoJui t- NaruaProeadur (deklacaai parameter, Jika 4 daJ 
/ Spcsitlkaul prooadur. bcrlal penjelaaan tencang apt yang dilakukan 
cleh proacdur ini . 

K.Aital i keadann Bcbelux proacdur dUakuanakau. 

K.Akhlr: kuadaan oetdah proaedur dllakoanakan. f 

T1K KLARAS 1 

I actinia natna yang dipakai di dalam proacdur dan hanya berlaku lokal 
dl dal,im proacdur didafiniaikan di ainl } 

AI-OORUKAr 

l l:\dan proacdur. benal uzut.an inutiukoi ) 


Can mcmanggil prosedur: 

NamaProsvdur 

jika prosedur tidak mempunyai parameter, atnu 
NamaProavtlurfpartmicler aktual) 
jika prosedur mcngandimg parameter. 


PASCAL: 

proceduru NainaProiwdur\d*klaraat parameter, Jika ada) ; 

( Spenifikaiti proacdur, banal penjelanan tentang apa yang dilakukan 
oleh proitmdur ml ) 

I K .Aw«iJ r kandaan acbolum prouadui «li Jakcan.ik.tn ) 

( K.Akhlr i koadaan net etch proacdur dilakuanakan. / 

<* WiMAhA-'U •) 

( aamne nam yang dip-iA*i dalam praiwdur dan hanyn berlaku lokal dl 
dalum promt dur didetiniaikan til iiini / 

r AUxnmMAi • > 

begin 

{ hid.in proncdur. benm kvirpuhin hwtrukai ) 

end, 


Cara memnnggil prosedur 
NumuPrototliir: 
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jika prosedur tidak mempunyai parameter, atau 

NunmProsedur (parameter aktual); 

jika prosedur mengandung parameter. 


C: 

void t.’amaProncdur (deklaraai parameter, Jika a da) 

/• Speitlftkaai proaedur. berlai penjelaaan tentang apa yang dllakukan 
oleh proaedur ini. •/ 

/• K.Awal : keadaan aebelua proaedur dilakaanakan. •/ 

/• K.Akhlr: keadaan aetelah proaedur dilakaanakan. •/ 

| 

/• DRKLARASJ • 

/• aemua name yang dipakai da Iam proaedur dan hanya berlaku lokal di 
da lam proaedur didefinioikan di aini •/ 

/• ALGOR ITHAt •/ 

/• bad/in pcoBodur, bonoi jcuopulan lnitrukii •/ 

I 

Cnra mcmanggil prosedur: 

NamuPrmvdurO; 

jika prosedur tidak mempunyai parameter, atau 

Namul'rosetlurfparamvter aktual); 

jika prosedur mengandung parameter. 


1. Contoh translasi prosedur tanpa parameter 
ALGORITMIK: 

Prosedur: 

procedure HiCU&gLuABSegitiga 

( Menghitung luaa aegltiga der.gan ruouc L • talao * Linggi )/2 l 
( K.Awal : aerbarang ) 

( K.Akhlr: luaa aegltiga tercetak.} 

DBKLARASI 

alnn : roal { panjang alaa aegitiga, dalam cm ) 

llntfgl 1 real { tinggi aegitiga. dalam cm } 

iuan : roal ( luaa aegitiga, dal an cur } 

ALGORITMAt 

read( a lao,tinggi) 

luan *- (alas • tinggi )/2 

write (tuna) 
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Program uiiima: 

PR OGRAM Segitiga 

{ Kenghitung Juaa S buah ocgltlga. } 

DEKIARASI 

i, K i integer 

procedure MitungLuasSegiuga 

I Menghitung luas ocgltiga dengan rumua L - (*1an x tinggi)/2 I 
AI-GORXTMA: 

roodIN) { tentukan bnnyakny a uogltlga ) 

Fot i - 1 to N* do 
Hi tungLutioGogi t ign 

ppdtor 


PASCAL: 

PROGRAM 5.<gitig.»; 

( Menghitung Iujii N buah Bagltig*. f 

(• DB KLARAS I •/ 
v«r 

1, H ; Intoga*-. 

procedure lUtunqLuaoSuplt i«ja; 

I Menghltimg Juaa mogitlga dangan rumua i • falaa x tlnggl 1/2 ) 
I K.Axal i nvmbaiang \ 

{ K.Akhln Juaa oeglttga tercetefc.J 

{• DEK1ARASI •) 

ver 

rtlar I rwl; { pan Jang a Ian aogitlga. dalam cm I 

ting'll * reel; / tlnggl aogitiga, dalam cm } 

luari 1 Kamii ( loaa aegltig.i, dalam cm 1 f 

(• ALGORJ7HA : •) 

begin 

write!'Pnnjnng «]aa oogitiga? ’); raedlnwilon )i 
writ* (‘Tinggi BtgUiga?* *); reedlnttlnggl) ; 
lu«o :• (alas*£inggi)/ 2 ; 

write('Luas segltign - ‘,luas)j 

and; 


f* PROGRAM ItTAMA : •) 

begin 

writ* ( Banyaknya oegitiga? J; roadlmNI 
for i :• 1 to K do 
HitungLuaaSegitiga; 

fandtor) 

and. 
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C: 

/• PROGRAM Segitiga •/ 

/• Menghi tung luaa 11 bumh aegitlga. •/ 

a include <BUJlc.h> 

/• Deklarasl purnarupa protedur yang digunakan •/ 

void HI CungLimsSoqi tig.i O ; 

Mini) 

I 

/• DBKLARASI •/) 
lnt i. N; 

/• PROGRAM UTAMA: •/ 

printf (-Hanyoknya ccgitiya? ")j scanf (fiM); 
for (1 - l; i<-H; !•*> 

HHungl.uanSogitigaO . 

/•cndlor 4 / 

I 

void HUungl.tiaaSegUigaO 

/• Henghltung luaa nogitlga dengan rumuo L - (alua x tingqii /2 •/ 
/• K.Aw.il t nombvirang •/ 

/• K.AkhJr: hutu aegitlga tercetak. •/ 

( 

/* DKKLARASI •/ 

float alas; /• panjang alao oaglUga, dalam cm */ 

float linggl; /• tinggi aegitlga, dalam cm •/ 

float lu«8/ /• luao aegitlga, dalam cm* •/ 

/• ALGORJTMA: •/ 

printf (-Panjang ala: segitiga? "); aoanf Ualao) ; 
printf("Tinggi ••‘giti^? 1 -); ocanf (fct lnggi) ; 

ludn- (alaii-tinggil /2.0j 

printf(-Luap negitiga - %2 -.luuu)j 


2 . Contoh translnsi proscdur dengan parameter masukan 
ALGOR1TMIK: 

Proscdur: 

procodurn HltunoUmafloalt iqn ( Input alan. tlnggi : real) 
l Wenghitum; luan aegitlga dengan rumuo loiaa - (alaa x C lnggi)/* } 
l K. Aw.il t nlaa d.ir. t lnggi oudah tordetinial nilainya } 

{ K.Akhirt lunn aegitlga tercetak.) 

DBKLARASI 

luaa : rcaj { luaa aegitlga, daiam cal' ) 

ALGORlTMAi 

luas «- (aifls • tinggl)/? 

^rlto(iunu) 
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Program utama: 

PROGRAM Segitiga 

( Menghltung luas ll buab segitiga. f 

DEKLARASI 

l, N ! Integer 
a, t i real 

procedure HltungLuaBSogitiga { input nlao, tinggi j real ! 

I Nanghltung luaa segitiga dengan rumuo Luas • (alao x tinggii/2 } 

ALGORJTMA: 

roadIN) / tentuJran banyaknya segitiga ) 
for 1 4- l to N do 
rendI n, t) 

HItungLuaoflegitigala,tl 

•ndtor 


PASCAL: 

PROGRAM Hogltlga; 

{ Nnngh 11 ung luan « buah aogitlga. I 

(• DKKLARASI •) 
ver 

1, N i Integer; 

a, t i reel; 

procedure Hitur.gLuaoSog11igi(aloo. tinggi i reel)/ 

{ Monghltung luaa aegltlg. i dengan rumus Luas - (alas x tinggi)/2 } 
( K.Awal i alas dan tinggi audah t atdoflnlsl nllalnya } 

{ K.Akhirt luas sag ItIga ter cotak.f 

<• DKKLARASI •) 
ver 

luan i real; / luaa aogitlga. dalan cte J ) 

(• AUWRITNA: •/ 

begin 

luan i- lalau • tinggi)/?; 
write! ‘Luan eogitlga • Muao); 

end; 

(• PROGRAM UTAMA: •) 

begin 

write (’ lianyaknya aogitlga? * ) ; readln(H) 
for 1i •1 to N do 
begin 

write! 'pan Jang ala* aogitlga? *); readln(a); 
write! ’Tinggi segitlga?' •); reedlmt); 

Hitungl.uaoSogltlga(a. t); 
end;(for^ 

end 
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C: 

/• PROGRAM Segitiga *f 

/• Manghitung luaa .V buah segitiga. •/ 

ulncluda <sCtlio.h> 

/• Deklaraai purvarupa prosedur yang digunakan •/ 
void HltungLu 4 BSeqitiga(float a. float t); 

Mln() 

I 

/• DRKLARASI '/) 

lnt i. Ni 

float a, tt 

/• PROGRAM UTAHAi •/ 

printf ("Banyaknya aegltlga? M; acanf (*N>; 
for (l • U 1<-N; 1**J 
( 

prlntf I'Panjang alaa a-gitiga? *); acanf Ua); 
prlntf rTlnggl mtcjlt tya?’ •)/ acanf Ut); 

111 tunyLuartllng Itiga(<i, t); 


void IIUungl.u«ioS**gitiga( float alas, float tinggi) 

/• Menghltung luaa segitiga dongan rumua Luaa • talau x tinggi)/2 •/ 
/• K.Aw.il i alas dan t Inggl audah t erdetlnlal nllalnya •/ 

/• K.Akhlrt luaa aegltlga tercetak. •/ 

I /• DKKIJiRASI •/ 

float luan; /' luaa aegltlga, dalam cri •/ 

/• ALGORITMA: •/ 

luan • (n l.ui't lii'jji) /2.0; 

prlntf CLuaa aegltlga - If -.luasli 

» 


3. Contoh translasi proscdur dcngan parameter keluaran 
ALGORITMIK: 

Prosedur: 

piocoduro Hi tunqUiasSegltiga ( input alas, tinggi x real . 

output luas : teal ) 

l Menghl tung luaa aegitiga dengan mania Luaa - {alaa x t inggi)/2 ) 
I AT.Aval ; alas dan tinggi audah tcrdcllniai nllainya ) 
l K.Akhir: luaa beriai luaa aegltlga.) 

PEKLARASI 

( tidak ads ) 

ALGORITMAx 

luao +- (alaa • tinggi )/2 
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Program utama: 

PROGRAM Sogitiga 

( Menghitung luaa N bv.ih oegitiga. } 

DEKLARASI 

i. N : Integer 
a. t ! real 

L : real { luaa oegitiga } 

procedure HitungLu.inSogltlga!I nput aids, tlnggi : roal ) 

{ Menghitung luaa oegitiga dengan rumut Luao • fa Jan * C inggi)/2 ) 


ALGORITMA: 

iead (M) ( tentukan banyaknya oegitiga ) 
lot 1 *- 1 to H do 

£ead(a. tT 

MltungUiaaaegUlgdU. t.L) 
wrlt«(L> 
undtor 


PASCAL: 

PROGRAM Sugltlgd; 

( Menghitung luaa N buah oegitiga. ) 

(• DBKLARAill •) 
ver 

i. H » integer; 

«* t . reel; 

I. i reel; { luao oegitiga } 

procedure HUungLuoaSagltige Ulan. tinggi : real; ver luaa j real); 

( Menghitung luan oegitiga dengan ruauo Luao - (alaa x txnggD/2 ) 

. ( K.Aw.ti i aJ ju dan tlnggi audah terdefinioi nilainya ) 

{ K.Akhir: luao oegitiga tercetak.J 

(• DSKUUtASI •) 

( tidak add ) 

(• ALGORITMA, •) 

begin 

luaa :• (alan • tlnygl)/ 2 ; 

end; 

f PROGRAM ITTAMA : •) 

begin 

writef'Banyaknya oegitiga? '); readln<N) 
for i j- 1 to N do 
begin 

write('Pnnjang alas oegitiga' ’); readlnia); 
write!'Tingijt negltiga?* *) j reedln .t); 

IlitungLuanSegitigala. t. L) < 
writoCLuan oegitiga ‘.L); 

ond; (tor) 

end. 
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Perhatikan bahwa luan adalah parameter kcluaran, sehingga di dalara 
header prasedur luas diawali dengan kata v.»r. 


C: 

/• PROGRAM SegltJga •/ 

/• Menghltung Ju.ie N buah aeglliga. •/ 

Hinclude <8tdio.h> 

/• Deklaraal purvarupn proaed ur yang diguri.tk.tr: •/ 

void IIItungUioiiSogi tle<* (float ». float t, rioot *L»; 

Mini) 

/* DEKLARASI •/) 
int i, N; 

float a. t: 

float Lj /• Juan aegtti ga. UaJani cot •/ 

/• PROGRAM UTAMAi •/ 

print f t'Hanyaknyrt imgtr.lga? -i; iicanf UN) i 
tor (l • If i<-Nj 1**) 

I 

prlntf ("Pan Jong alaa n.«jUiga? "1; icufiu); 
printf ("Tlnggl noglt t»j«f ' ">j aaanf(fct)} 
IlitungLuaoSogltlga (a. t. fcL) i 
printf ("Luan aegitiga - %1 ".!.)/ 

I 


void HItungl.uaa8ogltlga( float ala», float tlnjg:. float 'l-.a) 

/• Menghltung Juan aagltiga dengan njmua Luan • fa law x ttnggli/2 •/ 
/• K.Awal : ala/> dan Unggi oudah tardafiniai nilalnya •/ 

/* K.Akhtrr luan aegitiga tercet, ik. */ 

I 

/* DEKLARASI •/ 

/• ALGORITHA: •/ 

•luan * (ulna • tlngglJ / 2 . 0 ; 


Perhatikan bahwa luan adalah parameter kcluaran, sehingga di dalam 
header prosedur luas diawali dengan karakter * menjadi "luas. Semua 
pernyataan yang menggunakan peubah lu * • juga hams dinyatakan dengan 

• luaa: 

•lu«a - (aidi • tlnggl) / 2.0; 
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Ketika prosedur dipanggil. maka parameter aktualnya diawoli dengan 
operator alamat &: 

HitungLuasSegitigoU. t, fcL); 


4. Contoh translasi prosedur dengan parameter 
masukan/kcluaran 

ALGORITMIK: 

Prosedur: 

procedure Tukar(Input/output A. b 1 integer) 

( Numpartukarkan nllai A dan B. / 

{ K.Awal 1 nllai A dan B audah tetdefxnlol. ) 

[ K.Akhlri A beriol nllai B, B berlal nllai A ecmula. I 

UEKLARASI 

temp : integer ( peubah bantu I 
ALGORI IMA: 

twrp ♦- A ( alapan nllai A ke dalam temp f 

A 4- B { lalkan nllai B ke dalam A ) 

H 4- r.«jtnp ( lalkan nllai temp ke dalam B } 


Program Utnma: 

PROGRAM SolinihXY 

f Program untuA menghltung eeltalh nllai X dan Y, dengan ayarat X Z Y. 
Jlka X * Y, maka X dan Y dlpertukarkan dengan menanggll pronedur Tukar.J 

UEKLARASI 

X. Y, Z 1 lntegor 

pcocodur tf Tukar( Inpu t/ output A. U t intogot ) 

1 Mempertukarkan nllai A dan B. ) 

ALOORITMAt 

tcaiH X.Y» { baca nllai X dan Y terleblh dahulu f 

f Jlka X * Y. pertukarkan nllai X dan Y dengan memanggll 
proaadur Tukar ) 

If X < V than 
Tukar(X, Y) 

"ndtf 

2 «- X - Y { hJtung aellalh X dan Y ) 
vrltctZ) 
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PASCAL: 


program SolisihXY; 

{ Program uncuk menghitung aeliaih nilai X dan Y. dengan eyara t A’ 2 Y. 
Jlka X < Y. mafca X dan Y dipertukarkan dengan memanggil prosedur 
Tukar.) 

(• DEKLARASZ •) 

v»r 

X, Y, Z t Integer; 

procadura Tukar(var A. B i Integer!; 

{ Mcmpevtuknrkan nilai A dan B. } 

( K.Awal X Nilai A dan B audab Cerdcl imai . ) 

{ K.Akhlr i A bertoi nilai B, B beriai nilai A oemila. I 

(• DRKLARASI •) 
var 

temp : lntagar, ( peubah ban Cu / 

C ALGORITMAt •) 
begin 

torap i- A; 

A !• B; 

D i a comp; 

endj 


(• PROGRAM UTAMA •) 

bagin 

( baca nilai X dan Y C erlebib dahulu I 
write(*X • ?’); readln(X )i 
write(*Y • 7*J i readln(Y); 

{ )ika X < Y, portukarkan nilai X dan Y dengan mcmanggil 
prooedur Tukar I 
if X < Y than 

Tukar(X.Y) 
fendif) 

Z X - Y; { hitung aeliaih X dan Y ) 
write ('Z • \Z)i 

and. 


( aimpan nilai A di dalam terrj> ) 
( iai A dengan nilai B ) 

( iai B dengan nilai temp } 


Perhatikan bahwa a dan b adalah parameter masukan/keluaran. sehingga di 
dalam header prosedur a dan B diawali dengan kata var. 


C: 

/• PROGRAM SelisihXY •/ 

/• Program utana untu* menghitung nelielh nilai X dan Y. dengan ayarat 
X 2 Y. Jika X < Y, raaJca X dan Y dipertukarkan dengan memanggil 
proacdur Tukar. •/ 
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aincludo <»tcllo.h> 

void Tuknrdnt *X. int -V) 

/• Momportukarkan nilai X dan Y •/ 

Mint) 

I 

/- DEKLARASI •/ 
int X, Y. Z: 

/•PROGRAM UTAMA •/ 

print! ("X • ?•>: oc*nt Cld" . AX); 

print!(“Y - ?’); «c«nf(-td-, 4Y) ; 

/• Jika X < Y, pertukarkan nilal X dan Y dengan memanggll 
prone dur TU*»r •/ 
i! iX < V) 

TuknrUX.AY); 

/•audit*/ 

Z - X Y; /• hlCung aellalh X dan Y •/ 
print!(-Z • Ad \n". Z); 


void TUkardnt *A. int *B» 

/• Wenportu/carAan niloi B dan B •/ 

/• X.Awal : nilal A dan B rudah teidelSnlal . •/ 

/• K.AUilr: A berlai nilal B. B berlai nilal A aemuia. •/ 

I 

/* DEKLARASI •/ 

int temp; /• pouAah bantu •/ 

/• ALGORITNA: •/ 

terp • •As /• a inpan nilal A dl dnlam too p •/ 

•A * «n/ /• iai A dengan nilal B •/ 

•B • tocip; /• i#J B dengan nilal temp •/ 

) 

Perhatikan hnhwn a dan adalnh parameter masukan/keluaran, aehingga di 
dalam header proscdur a dan h diawuli dentin karaktcr • menjadi *a dan 
•:». Sentua pernyataan yang mcnggunakan pcuhah a dan !« juga ham* 
dinyatakan dengan *Adan *u: 

r«rp - *Ai /• arn-pnn niiai A di dalan tcap •/ 

•A - *Bj /• iai A dengan nllai B •/ 

•B tewpj /• iai B dengan nilal tump •/ 

Ketika prose dur dipanggil. niaka parameter aktualnya diawali dengan 
operator alamat a: 

Tukar (fcX, AY) ! 
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5- Contoh translasi lainnya 
ALGORJTMIK: 

Prosedur: 

procedure HitungRataRata(input N : integer, output u i roal) 

{ Hcnghitung rac.1-r.1cj N buah data bilangan rill. ) 

{ K.Awal : N audah berioi banyaknya data (N > 0). } 

{ K.Akhic: u berioi rata-raca neluruh bilangan. ) 

DEKLARASI 

x : real { data yang dibaca ) 

i t integer { pencacah banyaknya data ) 

Jumlah : real { Jumlah neluruh data ) 

ALGORITMA: 

Jumlah *- 0 { initial loam ) 

for i «- 1 to N do 
coad(x) 

Jumlah «- junlah • x 
endfor 

u *- jumlah/fJ { nilal rata-rata J 


Program Utama: 

PROPHAM RorataData 

f Program untuA menghitung nilat rata-rata N orang mahatlova. ) 
DEKLARASI 

N « integer f Jumlah peaerta ujJan ) 

rerata i real { nilal rata-raca toluruh pcaerta I 

procedure HitungRataRata( input N i Integer , output u i real ) 

( Manghltung rata-rata N buah data bilangan rill. I 

ALGORITMAi 

road( H) { tontukan Jumlah peaerta ujian f 
HltungR/itaRataOl. reratal 
writo (rotnta) 

If rerata < 50 then 

wrlto CMllal rata-rata ujian nahaeiewa tidak bagua*) 
oIbo 

write r Nilal rata-rata ujian mahaeiRwa bagun’) 
endlf 


PASCAL: 

program RerataData; 

f Program untuk menghitung nilal rata-rata .V orang mahaaiowa. } 


262 
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{• DEKLARASI •) 
var 

N z Integer; ( juni ah pcaerta ujian J 

rerata ; real; ( nilai rata-rata aeluruh peoerta } 

procedure HitungRataRata(N : Integer; var u s real); 

{ Menghitung rata-rata X buah data biiangan rill. J 
( K.Awal s N sudah beriai banyaknya data (N > Of f 
( K.Akhir: u beriai rata-rata aeluruh bilangan. ) 

(• DEKLARASI •) 
var 

X i real; 

1 : integer. 

jumlah l real; 

(• ALGORITXA: •) 

begin 

jumlah :• 0 ; 

for l;•l to N do 
begin 

write (*x i ?*); reading); 

Jumlah:-Jumlah-x; 
end; (tor) 
u ;• Juralah/N; 

end; 

{• PROGRAM UTAMA •) 

begin 

write('Jumlah poorrt* ujian? *1; readU(H); 
HitungRataRata(N.rorata); 
wrlteln('Nilai rata-rata • \ u); 

If rarnta < 50 then 

writeln('Nilai rata-rata ujian mahaniowa tidak baguo*» 

elee 

wrlteln (‘Nilai rata rata ujian mihauifiwa baguM') 

(end if) 

end. 


( data yang dibaca } 

I pencacah banyaknya data I 
( jumlah aeluruh data I 


( iniatallaaal ) 


C: 

/• PROORAM RerataData •/ 

/• Program uncuk menghitung nilai rata-rata X orang mahaaiawa. •/ 

■include <ntUlo.h> 

void HitungRataRatatint N, float «u); 

/• Menghitung rata-rata X buah data bilangan rill. */ 

mainU 

I 

/• DEKLARASI •/ 

float torata; /• nilai rata-rata aeluruh data •/ 


Bab 10 - Prosedur 


http://www.pakteguh.com 






lnt X; /• j uni ah pesert* ujian, N >0 •/ 

/• PROGRAM XJTAKA •/ 

printf -Jumlah peeerta UjiOfi? •'» scant I“ VJ*,*N)} 
Hitur.gRataRata'N.itGrata) i 
printf{-Nilai rata-rata • \l ", r«n r.4 . 
if (rcrata < 501 

printf("Nilai rata rata ijiar; tldak bagu* %T»"I 

alas 

printf ("Nilai rata r.ita ujian r-iluiBiawa baguh \n") 

/•endit•/ 

I 

void HitungRataHatn { int H, float *Uj 

/• Ma right tung rata-rata N bitali data bllangan till. •/ 

/• K.Awal i N audah bcrial banyaknya data (W > 0/. •/ 

/• K.Akhlr: u burial rata-rata ooJuruh hiiangan.. •/ 

/* DEKLARASl •/ 

float xi /• data yang dlbaca •/ 

int i; /• pancacah banyaknya data •/ 

float jumlah; /• Jumlah aoluruh data •/ 

/• ALOCRITKA: •/ 

jumlah • 0; /• InialaHaaal panjumlah •/ 

for (i- 1 ; 1<-N; i*») 

I 

printf fx : ?->,• acanf (• %f-. 4Xj i 

Junlah • Jutr.lah’Xj 

I 

•u - Jumlah/H; 


Soal Iaitihnn Bab 10 

1. Tulislah proscdur unluk mcnghitung jumlah N buah bilangan genap 
pcrtama (bilangan genap dimulni dari o). Proscdur mcnerima 
(parameter) masukan N dan memberikan (parameter) keluaran jumlah 
Nbuah bilangan genap pertuma. 

2 . Tulislah proscdur yang menghasilkan nilai rata-rata sekumpulan data 
bilangan bulat yang dibaca secara bcrulang-ulang dari papan ketik (akliir 
pembacaan adalah 9999)- Proscdur mcmiliki parameter keluaran, yaitu 
nilai rata-rata yang dihasilkan. 

3 . Ulangi soal nomor 2 tetapi proscdur menghasilkan nilai tcrkccil. 
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4. Misalkan Anda menyimpan uang di bank konvensional sejumlah A 
rupiah pada awal tahun. Jika Anda mendapat bunga tahunan sebesar i 
persen, maka jumlah uang Anda setelah n tahun adalah 

A{(i + i/100) + (l + i/ioop + (1 + i/ioop 4 -... 4 - (i 4 - i/ioo)"] 

Buatlah prosedur yang menerima masukan A, i, n dan memberikan 
kcluaran F. 

5. Tulislah prosedur dalam bahasa Pascal dan bahasa C yang menerima 
masukan berupa nilai integer positif dan menampilkan nilai tersebut 
dalam kata-kata. 

Contoh: 
masukani IS 

keluarani lima bslas t 

masukani 2347 

ksluarani dua ribu tiga ratus esfiat puluh tujuh 

6. Tuliskan prosedur yang menerima masukan sebuah jam ( hh:mm:ss ) dan 
p menit kemudian memberikan keluaran jam yang lalu setelah jam 
sekarang dikurangi p menit Oatihan ini merupakan kebalikan dari 
Contoh Masalah 8.1 di dalam Bab 8). Buatlah dua verei algoritmanya, yang 
pcrtama menggunakan cara perhitungan, yang kedua menggunakan cara 
analisis kasus. 

7. Tulislah prosedur yang menerima nama hari sekarang dan mcnentukan 
nama hari besok. Misalnya, jika hari sekarang "rabu" maka hari besok 
adalah "kamis". 

8. Ulangi nomor 5, tetapi menentukan nama hari sebelumnya. 

9. Tuliskan prosedur yang menerima sebuah tanggal dalam bentuk dd-mm- 
yyyy (contoh: 12-8-1996) dan memberikan keluaran tanggal sebelumnya 
(latihan ini merupakan kebalikan dari Contoh Masalah 8.7 di dalam Bab 8). 
Catalan : parameter tanggal betjenis masukan/keluaran. 

10. Tuliskan prosedur yang menerima sebuah tanggal ( dd-mm-yyyy ) lalu 
menghitung berapa hari jarak tanggal tersebut dari tanggal 1-1-1900. 

11. Tulislah prosedur yang menerima jam sekarang ( hh:mm:ss ), tanggal 
( dd-mm-yyyy ), dan nama hari, kemudian jam terns berputar detik demi 
detik sehingga ketika mencapai pukul 0:0:0, tanggal berikutnya juga 
berubah, begitu pula nama hari berikutnya. Perhatikan kasus tahun 
kabisat. 
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12. Buatlah prosedur dalam bahasa Pascal dan bahasa C untuk mencetak 
piramid dengan “ketinggian" n (asumsi: n < 10) Scbagai contoh, jika n = 6. 
maka piramid yang dihasilkan adalah: 

1 

232 

34543 

4567654 

567898765 

67890109876 


13. Buatlah prosedur dalani bahasa Pascal dan bahasa C untuk mcncctak 
gambar seperti di bawah ini jika diberikan nilai N (yaitu lebar bans 
terpanjang). dengan asumsi N adalah ganjil. 

Contoh: N * 7 
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EE 

Fungsi 


Seperti halnya prosedur, fungsi juga merupakan upa-program yang 
mempunyai tujuan spesifik. Di dalam Bab 11 ini akan dijelaskan pengertian 
fungsi, cara mendefinisikan fungsi, cara pemanggilan fungsi, dan translasi 
fungsi ke dalam bahosa Pascal dan bahasa C. Pada akhir bab juga dijelaskan 
konversi prosedur menjadi fungsi dan sebaliknya konversi fungsi menjadi 
prosedur. Baik fungsi maupun prosedur keduanya merupakan upa-program 
yang ekivalen, namun pada beberapa masalah adalanya kita lebih tepat 
menggunakan fungsi ketimbang prosedur, demikian juga sebaliknya. 


11.1 Definisi Fungsi 

Fungsi adalah upa-program yang memberikan/mengembalikan (return) 
sebuah nilai dari ripe tertentu (ripe dasar atau ripe bentukan). Definisi fungsi 
di dalam program bcrsesuaian dengan definisi fungsi di dalam matematika. 
Di dalam matematika, kita mengenal cara penulisan fungsi seperti pada 
contoh berikut: 

1. f(x) - 2** + 5x - 8 

2. H(x,y) = 3 x-y + xy 

Pada kedua contoh di atas,/dan H adalah nama fungsi, sedangkan x dan y 
adalah parameter fungsi yang bersangkutan. Nilai yang diberikan oleh 
fungsi bergantung pada masukan parameter. Sebagai misal: 

1. x - 2, maka/(2) - 2.2 a + 5.2-8-10 

2. x « 1, y ■ 2, maka H(l, 2) ■ 3 .1-2 + 1 . 2*3 
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Nilai 10 dan 3 pada kedua contoh di atas adalah nilai yang diberikan (return 
value) oleh masing-masing fungsi/dan fungsi H. 

Sebagaimana halnya dengan prosedur, fungsi diakses dengan memanggil 
naraanya. Seperti pada prosedur, fungsi juga dapat mengandung daftar 
parameter formal. Parameter pada fungsi selalu merupakan' parameter 
masukan. Dengan kata lain, tidak ada fungsi yang mempunyai parameter 
keluaran atau parameter masukan/keluaran. Parameter masukan pada 
fungsi berrati bahwa bahwa parameter tersebut merupakan masukan yang 
digunakan oleh fungsi tersebut untuk menghasilkan nilai. 


11.2 Pendefinisian Fungsi 

Sebagaimana halnya pada prosedur, stniktur fungsi sama dengan struktur 
algoritma yang sudah Anda kenal: ada bagian header yang berisi nama 
fungsi (beserta parameter masukan, jika ada) dan spesifikasi tentang fungsi 
tersebut, bagian deklrasi, dan badan hingsi. 

Notasi algoritmik untuk mendefinisikan fungsi adalah: 

function NaouaFungnl ( input daklraai pararmter, Jika ada)-* tip* 

7 apaaltikaal fungal, manjalankan apa yang dilakukon dan yang 
dlkamballkan oleh fungal. ) 


DRKLARAfiX 

l aamua nana yang d ipakai di da lam fungal don hanya barlaku lokal di 
da lam proaadur didafiniaikan di ainl ) 

ALGORITMA: 

( badan fungal, berlal inatrukal-lnotrukol untuk monghaallkan nilai 
yang akan dlkamballkan oleh fungal ) 

raturn okaproal { pangambalian nilai yang dihaallkan fungal ) 
Algoritma 11.1 Struktur fungsi 


Tipe menspesifikasikan tipe nilai yang diberikan oleh fungsi. Nilai yang 
diberikan oleh fungsi dapat bertipe dasar maupun bertipe bentukan. 
Parameter formal selalu berjenis parameter masukan sehingga deklarasi 
nama parameter selalu diawali dengan kata input . Sebagaimana halnya pada 
prosedur, parameter fungsi pada fungsi tidak selalu harus ada. 

Semua nama peubah/konstanta yang hanya berlaku di dalam fungsi saja 
diumumkan di bagian deklarasi. Nama yang didefinisikan di dalam bagian 
deklarasi fungsi hanya dikenal dan berlaku di dalam fungsi yang bersangkutan 
saja, fungsi lain atau program utama tidak dapat menggunakannya. 
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Pcrnyataan 

rtturn okoprcol 

di dalam badan fungsi bertujuan untuk mengcmbalikan nilai png dihasilkan 
olch fungsi tercebut. Ekspresi dipat berupa konstanta, atau scbuab pcubab. atau 
sebuah rumus. Di bawah ini diberikan belierapa contoh pendefinisian fungsi. 

Con toll 11.1. Tul islah fungsi untuk mcnghasilkan nilai F[x) = 2X° 4- «>x - 8. x e K 

Pcnyelesaian 

junction Ffinput x : real ! — real 
f mengembalikan nilai Fix) • 2xf • 5x - B. x e F ) 

DEKLARASI 

{ tldak ad* i 

ALOOR1TMAI 

retu rn a«x»x • s*x - • 

Algorltmo 11.2 Pondoflnlslnn fangs. F(x) » It 1 ♦ 5*-8._ 


Di dalam Algoritma 11.2 di atas, 
f adalah nama fungsi, tipe-nyn rcoi 
x adalah parameter (by value) formal 

dan di dalam badan fungsi, nilai yang dihasilkan oleh fungsi dikembalikan 
( return) ketitik pcmanggilan dengan pcrnyataan: 

return 2 «x«x • 5*x - B 

yang dalam hal ini, return mengcmbalikan basil evaluasi dari ekspresi 

2 *x*x ♦ s«x - a 

Contoh H.2. Tuhaluh fungsi untuk menghitung H(u,v,w ) * 21 iu 1 3Utn + 
1 OV dengan u, v, dan w bertipe bilungan bulat 

Pcnyelesaian 

function H<input u.v.w t integer) -*intcgcr 
7 m»ngomtalikan nilai H(a,v,v>m Juv* . Jw . JOv ) 

DF.KLARAS I 

( tidak ada ] 

ALGORITMA: 

return 2 «u«v*v * 3»v«w . I 0 «v 
Algoritma 11.3 Pondofmlalan fungsi H(g.v.w) ■ 2uv ; ♦ 3/* ♦ lOv 
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Contoh 11.3. Buatlah fungsi untuk menentukan apakah sebuah bilangan 
bulat mempakan bilangan genap. Bilangan bulat disebut genap jika ia habis 
dibagi dengan dua. 

Penyelesaian 

function Oenap ( Input n : Integer ) -♦ boolean 

7 true Jika n adalah bilangan genap, atau false Jika tidak genap J 

DB KLARAS I 

( tidak ada J 

AU30RITOA: 

return (n mod 2 » 0 ) 

Aiflorit ma 11.4 Funpsl untuk menentikin bilangan qo na p atau ganji. _ 


Perhatikan pemyataan 

return (n mod 2 - 0 ) 


di dalam fungsi Oenap di alas. Eksprcsi th mod 4 
boolean (nilai ckspresi mungkin true atau false). 
ekivalen jika ditulis sebagai berikut: 


if n mod 2-0 then 
~ return true ] o genap ) 
else ( berarti, n mod 2 * 0 , 
return falae fnganjil . 
•ndlf 


- 0 adalah eksprcsi 
Pemyataan tersebut 


Contoh 11.4* Buatlah fungsi untuk menentukan apakah sebuah tahun 
merupakan tahun kabisat atau bukan kabisat. Suatu tahun disebut tahun 
kabisat jika tahun tersebut habis dibagi 4 atau habis dibagi 400 jika tahun 
tersebut kelipatan 100. 


Penyclcsaian 

function Kablout( Input th 1 Integer ) -* boolean 
7true Jika th adalah tahun kablaat, atau false Jika tidak ) 

DBKDUtASI 

( tidak ada ) 

ALQORITMA: 

if (th mod 4-0 and th mod 100 * 0) or (th mod 400 - 0) then 
return true 7~t«hun kablaat } 
else 

return falae { bukan tahun kabieat i 
endlf 

Alporttrea 11.5 Fungsi untu k menenUiVan tahun kabisat 
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Contoh 11.5. Tulislah fungsi untuk munentukan nama-nama bulan 
berdasarkan nomor bulannya (1 sampai 12). 

Penyclcsaian 

function NamaBulanIinput bln : integer) —* string 
( mengemba1ikan nrtnu bulan bcrdaoarkan nomor bln I 

DEKLARASI 

nama j strin g 

ALGORITMA: 
case bln 

1 : nama «- ' janu.tri’ 

2 1 noma *- ‘tebruarl* 

I j nama *- 'maref 

4 r nama •- ‘april* 

5 1 nama 'mol* 

6 : nama «- *Juni' 

7 1 nama 4 - *juli* 

8 i nama *- 'agudtus* 

9 : nama •- 'neptomber* 

10 1 nama •- ' oktobor* 

II t nama •- 'november' 

12 1 nama •- ‘denember’ 

endcase 

r eturn nama 

Algorltma 11.6 Fungsi numn bulan (vorsi 1 monggunaknn peubah) 


function NamaBulanlinput bln : Integer) -» strin g 
7 ~tnengembal ikan nama bulan berdaaarkan nomor bln ) 

DBKLARASI 

{ tidak ada I 

ALGORITMA: 
cane bln 

1 : return 'januari* 

2 * return 'februari' 

3 : return 'maret' 

4 : r eturn 'april* 

5 r return 'mei* 

6 1 r eturn 'Juni* 

7 1 return ‘juli* 

B 1 return 'agustus* 

9 : return * September' 

10 : retu rn 'okteber* 

11 r return 'november' 

12 : return *deoember' 
endcase 

Algoritma 11.7 Fungsi nama bulan (versi 2 lanpa menggunakan poubah) 
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Contoh 11.6. Tulislah fungsi untuk mengonversi karakter digit C'o'.. ‘9’) ke 

angka (o.. 9)- 

Pcnyclcsaian 

Cunction KarKclnt( Input c : char ) -♦ integer 
I mengkonversi karakter digit (') ke integer (0..9) } 

DKKLARASI 

{ cidak ada ) 

ALGORITMA; 
case c 

• 0 * : return 0 
• 1 * : return 1 
* 2 * 1 return 2 
'3* 1 return 3 
* re turn 4 
'5* : return 5 
•6’ 1 return 6 
*7' i return 7 
*«' ‘ turn 8 
•9' 1 return 9 
endoeee 

Algorltma 11.8 Fungsi konvorsl koraktef ke w/oger 


Contoh 11.7. Buatlnh fungsi yang membcrikan nilai maksimuni dari dun 
huah nilai bilangan bulat a dan b. 

Pcnyclcsaian 

t unction Mako ( Input a, b . Integer) -* Inte ger 
{ mengembalikan nilai t orbenar dari a dan b } 

DEKLARA8I 

{ tidak ad .» } 

ALOORITMA: 

if a i b the n 
return a 
else 


retur n b 
end if 



Contoh 11.8. Buatlnh fungsi untuk menghitung titik tengah dari dua buah 
titik dalnm koordinat kartesian. Jika Pi(x,.yi) dan P,(x 2 ,y 3 ) adalah titik, maka 
titik tengah P, dan P 2 adalah Pi(x,,y t ), yang dalam hal ini: 

x, = (x, + x 3 )/2 dan y, = (y, + y,)/2 
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Penyelcsaian 

f junction TitikTengah(input_Pl. P2 : Titik)-*?itik 
fmengcmbalikan til Ik length dari PI dan 92) 

DEKLARASl 

Pt i Titik 

ALGORITMA: 

Pt.x «- (Pl.x . P2.x)/2 
Pt.y *- (PI .y ♦ P2.y)/2 
return Pt 

Algoritma 11.10 Fungsi unluk menontukan tmk tongah dari dua buah litik 


Contoh 11.9. Buatlah fungsi unluk memeriksa pemeriksaan kebenamn sclntah 
sandi-lewat ( pauword ). Sandi-krwat /j dihandingkan dengan kata sandi yang 
dirahasiaknn. Hila /> sama dengan kata sandi. maka sandi /> sail (Ix-nar). 

Penyelcsaian 

function Valid (Input p 1 etring) boolean 
( trua jika paaavotd p benar, atau talae Jlka ildak } 

DRKLARASI 

conot password • 'abcl2)‘ ( otndlltwat yang benar ) 

ALGORITMA: 

return (p - passwordl 

Algoritma 11.11 Fungsi unluk memenksa kobo nor an tandi-lMl_ 


Contoh 11.10. Buatlah fungsi untuk mengldtung nilai fnktorial dari 
hilangan bulnt tidnk negatif. Faktoriul dari n didcfinisikan sebagai: 

n! ■ 1 ,jikan-o 

— 1 ^ ^ 3 ^ ••• x (n-i) x n ,jikan>0 

Misalnva, 51-1x2x3x4x5- 1^0 

Penyelcsaian 

fu nctio n Fak( Input n : intege r) -*inteaor 
( roengemto.ilikan nilai nt. untuk n 2 0 ) 

DEKLARASl 

i. f x integer 

ALGORITMA: 

n-i 

for l *- 1 to n do 
' t *- t • i 
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endfor 
return f 

Algorit ma 11.12 F ungsi untuk menghilung faktortal. nl. 


Contoh 11.11. Buatlah fungsi untuk menghitung perpangkatan a", n £ o, a e R. 
Perpangkatan a" berarti mengalikan a sebanyak n kali: 

fl n = flxflxaxax.„xa { sebanyak n kali} 

Contohnya, 

5 4 "5 X 5 X 5 X 5" 625 
2*-2X2X2X2X2X2X2X2 = 256 
3°- 1 

Penyelesaian 

function Fangkat( input a 1 real, input m integer ) -♦ real 
{ mengemba 1 ikan nilal perpangkatan x *) 

DBKLARASI 
P • real 
i 1 Integer 

ALGORITMA1 
P ♦- 1 

for i ♦- 1 £2 n do 

P «- P • • 
endfor 
ratum p 

Algoritma 11.13 Fungsi untuk menghitung perpangkatan. a", n 2 0. x*R 


11.3 PemanggiIan Fungsi 

Fungsi diakses dengan cara memangil namanya dari program pcmanggil, 
diikuti dengan daftar parameter aktual (bila ada). Karena fungsi 
mcnghasilkan nilai, maka nilai tersebut dapat dieprlakukan dengan dua 
cara. Pertama, nilai yang dikembalikan oleh fungsi ditampung di dalam 
sebuah peubah yang bertipe sama dengan tipe fungsi, 

peubah ♦- Nana Fungal(parameter aktual, jik* ada); . 

misalnya (berdasarkan contoh-contoh fungsi yang sudah diberikan di atas), 

y «- F(5) ( y ha rue bertipe real ) 

* *- H(x,y,z) ( z harue bertipe.integer/ x. y. dan z harue audah 
terdefinlei nllainya} 

hh ♦- Genap(ia) { hh bertipe boolean; k harue audah terfeniei nllainya } 


m 


Algoritma dan Pemrograman 


http://www.pakteguh.com 





Kedua, nilai yang dikembalikan oleh oleh fungsi dapat langsung dimanipulasi 

sepcrti pada contoh-contoh berikut: 

write(F( 5 >) 

p *- 2»H(x,y,z)- x . y 
li Genap(m) then ... 

Contoli 11.12. Misalkan kila ingin menampilkan label vang berisi nilai-nilai 
a- dan Fix) di dalam selang [ 10.15] dengan Sx = 0.2. sepcrti contoh berikut: 


X 

nx) 

10.0 

242.0 

10.2 

251.08 

10-4 

••• 

•H 

••• 

14.8 

•et 

•M 

15.0 

•— 


Kungsi I'Xx) ■ 2 X 1 ♦ - 8 sudah didcfmisikan di dalam Algoritma 11.1. Kila 

nkan memanggil fungsi terscbut dari program ulama. 

PcnycleMuian 

PROGRAM TubelFungal 

/ Pxogum utrtma yang memparagakan cara pamanggilan tungai P. Program 
ini tncnampiiican Cabal nllal-nilai x dan tIxl di dalam uelang [10,15/ 
dengan .lx - 0.2 } 

IJKKLARA3I 

X I real 


function r(Input x 1 real)-*re*l 
{ mrngombalikAn nilai Ffxi* 2 jC * 5 x - 8 . x € P ) 

ALGORITMA: 

f bua t header Cabal / 

write ('.-.---*) 

writer x fix) •) 

write!*.-.M 


x 4- 10.0 
while x S 15.0 do 
write (x. 1 *.P(x)) 

x *- x ♦ 0.2 
ondwhll e 

/ buat garls penutup cabal } 

write r ----.•) 

Algoritma 11.14 Program unluk moncetak tabel mlai-mlai fungsi F(x) di dalam solang | 10 . 15 ). 
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Perhatikan Algoritma 11.14 ini. Fungsi f dipanggil dari pcmvataan 
write (x.’ *.F(x)J 

yang dalam hal ini, nilai fungsi f unluk x yang diberikan langsung dicetak. 

Contoh 11.13. Dibaca sebuah tahun, hams dilcntukan apakah tahun 
tersebut merupakan tahun kabisat atau bukan. 

Pcnyclesaian 

PROGRAM TahunKabioat 

I Program utamj menentukan apakah auatu tahun merupakan tahun kabisat. 

DKKLARA5I 

tahun 1 Integer 

fun ction Kabinat (Input th t Integer) -« boo lean 

I true jlka th adalah tahun kohl Bat. atau lalBe Jika bukan kabiaat ) 

ALGORITMAr 

read(tahun) 

If Kabiaat(tahun) then 
write('tahun kabiaat'} 
elao ( betartl Kabiaat(th) - false f 
vrlteCbukan tahun kabioat') 

«ndlf 

Algoritma 11.15 Program unluk monontukan apakah sebuah tohun morupakan lahun kabisat 

atau bukan. _ 


Contoh 11.14. Dibaca dua buah nilai integer, a dan h. Tentukan nilni yang 
terbesar dari keduanya. 

Pcnyclesaian 

PROGRAM TontukanMakoinum 

/ Program yang memanggil fungal Haka untuk menentukan nilai makaimum 
dari dua buah maaukan nilai bilangan bulat a dan b. } 

DBKLARASI 

a. b t integ er 

function Maku ( Input a, b i Integer ) -^ Integ er 
( mengembalikan harga terbesar dari a dan b } 

ALGORITMA: 
read(a.b) 
write (Mako(a. b)) 

Algoritma 11.16 Program untuk menentukan nrfai terbesar (maksimum) dari dua buah nilai integer 
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Contoh 11.15. Dibaca dua buah titik, P, (x,.y,) dan PAxj.yi), cetaklah titik 

tengah dari dua buah titik tersebut. 

Penyclcsaian 

P ROGRAM MenghitungTitikTengah 

{ Program untuk raenghitung titik tengah dari dua buah titik di 

bidang datar. } 

DBKLARASX 

typo Titik : rocord < xt real , 

> 

PI, P2 1 Titik 

Pt I Titik ( titik tengah PI dan P2 ) 

function TitikTengah( input Pi. P2 1 Titik)-*Titik 

( mengombalikan titik tengah dari PI dan P2} 

ALGORITMA: 

roadlPl.x, Pl.yJ 
road(P2.x. P2.y) 

Pt *- TitikTongah(PI,P2) 
writo(Pt.x, Pt.y) 

Algor limn 11.17 Program untuk menentuk »goh dan dun buah tilik 


IVrluitikan Algorithm 11.17 ini. Nilai yang dikcmbaliknn oleh fungsi 
Tit ikTengah ditampung di dalam peubuh Pt: 

Pt «- Tit lkTongnh (Pi. P2I 

Contoh 11.16. Dibaca schuah sandi-lewat (password), periksa apakah 
password merupakan sandi-lewat yang sah. Bila sandi-lewat tidak sah, ulangi 
lagi peugisiannyu (mnksimal hanya boleh3 kali pengisian sandi-lewat). 

Pcnyelcsaian 

program PemerikoaanKebcnaranSandiLewAt 

/ Morn nr ikon kebenatan aandi-lewat. Sandi-lewat dibaca dari papan 
ketik. Bila vandi-lewat aalah. peraoukan sandi-lewat dapat diulang 
lagi nukuirui J kali } 

DEKLARASI 

SandiLewat : ntrinq f kata aandi yang dibaca dari papatt ketik ) 
oali : boolean ] true Jika password benar. talae Jika oalah ) 

i i intege r { pencatat jumlah pexbacaan aandilewat ) 

fu nction Valid ( input p s atrinq ) -^boolean 
7 true Jika password p benar. atau false jika tidak ) 

ALGORITMA: 
i «- 1 
nnh «- false 
repeat 

read(SandiLewat) 

if Valid(SandiLewat) then 
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sah *— true 

else / SandiLewa c * password } 
i *- i ♦ 1 
end If 

u ntil (sah) or (i » 3 ) 
if not sah then 

write Cnandl lewat salah. Anda tidak punya hflJc mengnkoen oiotem* ) 
endif 

Algoritma 11.18 Program unluk memonksa kobenaran sandi-lowat 


Contoh 11.17. Tulislah fungsi unluk mcnghitung nilai hampinin cxj)(x) 
yang didcfinisikan dcngan dcrcl bcrikut: 

« 


e “ l+,+ ¥ + ¥ + - + 5 


Ilampiri nilai c dcngan dcrct sampai 10 bunh suku (n * 10; pcrhatikan 
bahwa scmakin besar nilai n scmakin tcliti nilai hampinin exp(x)). 


Pcnyclcsaiun 

Pcnghampiran nilai exp(x) membutuhkan pcrhitungan pangkal dan 
fnktorial. Kita dapnt mcmanfaatkan fungsi Fak dan Pangkat yang sudah 
ditulis pada Conloh 10.9 dan Contoh 10.10. Nilai n da pal dideklarasikan 
scbngai konstanta, misalnya 10. Pcrhnlikan juga bahwa dcrcl exp(x) 
sebcnarnya ditulis Icbih jclax scbagai 


.1 


1 




Tiapsuku dnpat dinyatakan dalani bcntuk ,k* 0 ,\, 2 .11. 

k ! 

Jadi, jumlah dcrcl adnlah S+-S + x*/k\, yang dalain hal ini. 

S diinisinlisasi dcngan o 
x* dihitung dcngan fungsi Vumjkut 
k\ dihitung dcngan fungsi I'ak 

function Exp(Input x 1 «o«l| -* real 
(ncngcmbaHkan nil a l expYx) I 

DKKLARASI 

const n 1 inte ger • 10 
S : reel 
k 1 integer 

function Fak(input n t integer ) -* integ er 
i mengembalikan nilai nt. untuk n 2 C ) 


«n 
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function Pangkat( input x : real , inpu t m : int eger ) -♦ real 
7 mengembalikan nilai perpar.gkatan x* f 

ALGORITMA: 

S #-0 

for k «- 0 to n do 

S «- S ♦ Pangkat(x.k)/FAK(k) 
endfor 
return S 

Algorilma 11.19 Fungsi hampiran exp(x) _____________________ 


Perliatiknnlah bahwa di dalam Algorilma n.iy, fungsi pangkat dan Fak 
didcklarasikan di dalam fungsi Exp. Conloh ini seknligus mcmporlihatkan 
pemanggilan fungsi dari dalam fungsi lain. 

Contoh program pemanggil fungsi Exp: 

PROGRAM CetflkTabelEXPX 

( Program uncuk manghitung nilai oxp(x) dari x • 0 onmpai x - 100 
dengan portambahan .lx - 0.5 ) 

DF.KLARAfil 
x i real 

function Exp(input x:real)-rreoi 
I mengvmballkan nilai exp(x) } 

ALGORITMAi 
X ♦- 0.0 

while x 1 100.0 do 
w rit e(x. Bxp(x)) 
x ♦- x ♦ 0.5 
endwhile 

fx 100 f 

Algorilma 11.20 Moncolok label n-iai x dan oxp(i) di dalam wiring |0. 100| 


Kompilalor bnhnsa pcmrogramnn mcnycdiakan fungsi-fungsi pustaka {library 
function) yang siap pakai. Spcsifikasi fungsi pusalaka tcrscbut dijclnskun di 
dalam buku reference guide bahasa pcmrogramnn lx-rsangkuian. Penjclasan 
Icrsclnit berisi apa .vang dilakukan fungsi. paramclcmya. lipo paramater, dan 
lipc basilnya. 

Misalnya: 

function ain(input xircal) -* real 

{ mengcmbalIkan hnrga ainua x, x dalam radian ) 

function coo(input x:real) -* real 

I mangombalIkan harga coainua x. x dalam radian I 

function oqrt(input x i real) -♦ real 

{ mangombalikan harga ix } 

function nbn(input x:real) -* real 
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{ mengembalikan harga muClaJc x ) 
function ord(input xichar) -* integer 
{ mangemballkan nllal ordinal karakter ASCII darl x } 
function trunc(input x : real) -♦ integer 
{ memo C or* g x pad a bag i an bllangan bulatnya ) 

dan lain-lain sebagainya. 


11.4 Prosedur atau Fungsi? 

Pertanyaan yang scringkali muncul dal am pcmrograman modular adalah: 
apakah sebuah modul program akan dibuat sebagai prosedur atau fungsi? 
Jawaban untuk pertanyaan ini sebcnamya tidak sulit: fungsi digunakan 
apabila modul program mengembalikan sebuah nilai, sementara prosedur 
digunakan bila modul menghasilkan efek netto dan (satu atau) sekumpulan 
aksi. Namun dalam praktek, sering perbedaan antara keduanya tidak jelas, 
karena sebuah prosedur dapat juga ditulis sebagai fungsi, demikian pula 
sebaliknya. Pemilihan apakah sebuah modul direalisasikan sebagai fungsi 
atau prosedur bergantung pada kebutuhan dan seni memprogram. 

(a) Mengubah fungsi mer\jadi prosedur 

Sebuah fungsi dapat dikonversi sebagai prosedur dengan cara 
menyatakan nilai yang dikembalikan (return value ) oleh fungsi tersebut 
sebagai parameter keluaran pada prosedur. 

Sebagai contoh, tinjau kembali fungsi Hake untuk menentukan bilangan 
terbesar di antara dua buah bilangan. 

Fungsi: 

function Makat Input a. b: Integer ) -♦ Integer 
{ mengomballkan barga c arbeaar darl a dan b } 

DBKLARASZ 

I tidak ada ) 

ALGORITHM: 

if a 2 b then 
return a 
eloe 

return b 
ondif 

Prosedur: 

procedure TentukanMako( input a. b: integer , output moke i integer ) 

( Menentukan nilai terbeaar darl a dan b, dan toenylmpannya dl max ) 

{ K.Awal: a dan b oudob tardafinlai nilainya. J 
( K.Akhle: m aka berlal nllal terboear darl a atau b J 
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DEKLARASI 

( tidak ada I 

ALGORITMA: 

If 4 2 b then 
make «— a 
eloe 

maka *— b 
endif 


(h) Mcngubah fungsi mcnjadi proscdur 

Prosedur yang mempunyai satu buah parameter keluaran dapat ditulis 
sebagai fungsi dengan cara menyatakan parameter keluaran sebagai nilai 
yang dikembalikan oleh fungsi. 

Sebagai contoh, tinjau prosedur menghitung nilai rata-rata dan 
sejumlah data hilangan bulal sebagai berikut: 

Prosedur: 

p rocedure HltungRataRata( Input Hdata : Integer, ou tput U i real) 

( Membaca data, mvnjumlahkannya , dan aonghltung rata-atanya. / 

( K.Avah Ndata audah bcrsiai b.inyaknya data; .vdaca > 0 } 

( K.AkhiC: V berioi rata-rata aeluruh data ) 


{ data yang dibaca f 
( pvncacah banyaknya data } 

( jumlah nilai eeleuruh data ) 

ALGOR1TMA: 

jumlah ♦- 0 ( inialalittaai penjumlah J 

for i *- 1 to Ndata do 
read(x) 

jumlah *- jumlah • l 

endfor 

U •- jumlah/Kdata { rata-rata acluruh data / 

Prosedur HltungRataRata memiliki satu parameter keluaran, knrena itu ia 
dapat ditibnh menjadi fungsi. Apabila ditulis sebagai fungsi, maka parameter 
keluaran u tidak diperlukan lagi, karena nilai u merupakan nilai yang 
dihasilkan (.return value) oleh fungsi. 

Fungsi KutuKutu: 

fu nctio n RataRata (input Ndata : Integer) -* real 
7 Wenvbaca data, nenjuad ahkannya. dan menghitung raca-ratanya. 

Banyaknya data adalah Ndata (> 01. ) 

DEKLARASI 

x : Integer ( data yang dibaca ) 


DEKLARASI 

x i integer 
1 : integer 
jumlah s Integer 
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i : i nteg er { pcncacah banyaknya data ) 

jumlah s integer ( jumlah nilal peJurufs data / 

ALGORITMA: 

Jumlah +- 0 / Iniaialisaai penjumlah ) 

tor i t- 1 to Ndata do 
read(x) 

jumlah 4- jumlah ♦ x 
endtor 

return jumlah/Hdata { cata-rat.t aeluruh data / 


Unuimnya modul program direalisaslkan sebngai fungsi apabila nilai fungsi 
digunakan langsung dalam sualu ckspresi misalnya: 

(a) 2 4 - { fU)*f (b) )/2 

(b) if fla)•£ (b) > 0 then 

writ e(*Selanq U.bj tidak mcngandung akar fungoi*) 
endlf 

dengan f adalah fungsi yang pendefinisiannya sebagai burtkut: 

function f(input xtirali —real 
( mcr.gcmb.il Ik an nilai tlx) - 2*x*x • 5»x § I 

DKKLARAS1 

I tidak ada ) 

ALGORITMA: 

return 2 *x«x • 5«x - A 

Contoh-contoh lain aqxrti fungsi mengliilung faklorial dan menghitung pangknl 
mcmperlihatkan bahwn masalnh-masalah tenebut lebih dcgan diUilis sebagai 
fungsi kclimbang proscdur. Penggunaan fungsi Fak dan fungsi pangkat 
ditupjukkan pada waktu mengitung fungsi Exp (Contoh 11.17). 


11.5 Contoh-contoh Tambahan 

Contoh 11.18. Tinjau (cembali algoritina Euclidean untuk mengliilung 
pembagi bersama terbesar ( ged ) dari dun buah bilangan bulat tak-negalif in 
dan n (m2n). Harga m dan n dibaca dari piranti masukan (Pembaca harap 
membaca kembali contoh algoritma pertama yang diberikan di dalam Bab 1). 
Tulis kembali algoritma Euclidean ke dalam bentuk fungsi. 

Pcnyclesaian 

fun ction gcd( Input m. n : integer ] -• integer 

( Hongemballkan pembagi bersaaa terbesar tged) dari dua buah bilangan 
bulat tak-negatlf m dan n. dengan syaral a 2 n dan o.n > 0 . f 

DEKLARAS' 

r : integer / siaa pew±agian ra dengan n J 
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ALCORITMA: 

while n * o do 
r *- m mod n 
n> ♦- n 
n ♦- r 
end while 

r n - o. maka ged - »/ 
return m 

Algorltma 11.21 Monghltung ged dan dua t>unh ni'n. integer. 


Hal lain yang liarus diperhatikan adalah nilai m dan n . Fungsi ged hanya 
benar unluk nilai m 2 n. Karena ilu, scbclum pcmanggilnn fungsi, nilai m dan 
n hams dlperiksa tcrlebih dahulu. Jika m < n, lakukan pertukaran mdan n. 

Conloh program nlama: 

PROGRAM fuelldean 

CProgram untuk manghltung pembagl bereama cerbeaar dart dua buah 
bilanga n buJat poaltJt m dan n. ) 

DEKLARASI 

n, n i integer { > 0 ) 

fu nctio n gedlihput ra, n j integer) -* i nteg er 

{ Mengemballkan pnmbngi brreum .i terbeoar dmvl dua buah biiangan 
buJet tak-negatif m dun n. dangan oyarat m 2 n dan m ,n i 0. I 

procedure TuKnr(input/output a, b i Integer) 

I Mempercukarkan nilai a dan b. } 

ALGORITHM: 
read /ra.n) 
if m * n then 

( pertukarkan w dan n ) 

Tukar(ra.nl 
endif 

write (ged (ra.n)) 

Conloh 11.19. Tnliskan fungsi unluk menentukan apakah scbuah bilangan 
bulal posilif m menipakan bilangan prima. Misalnya, m = 10 bukan bilangan 
prima, tetapi ni = 17 adalah bilangnn prima. Keluaran dari fungsi adalah true 
jika m prima dan false jika rn bukan prima. 

Penyelesaian 

Cara yang paling sederhana memeriksa keprimaan bilangan bulal posilif rn 
adalah dengan membagi m dengan 2, 3,.... m - 1. Jika ada sualu penibagian 
yang habis (yaitu bersisa o). niaka kita simpulkan m bukan bilangan prima. 

fu nctio n Prima (input m 1 inte ger)-» boolean 

J mengemballkan true jika a bilangan prima. lalao jika m bukan prima J 
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DBKLARASI 

i « Integer 
prim : Boolean 

ALGORITMA: 
i 2 

prim *- true ( aaumaikan a pada avalnya bilangan prime I 
while IiS in-II and (not prim) do 

if ra mod i • 0 thon { o habiu dtbagi dongan bilangan i S’ m - l) 
prim 4 - falne / keoimpulannya: n bukan bilangan primn } 

aloe 

1 «- i • 1 / coba bagl dengan i borikutnya ) 

endif 
cndwhile 

return prim 

Algorilma 11.22 Fung»t unluk momonksa kopnmnan b*wnagn bulnl posltif 


Catalan: 

Tuorcma yang Icbih inaju </i dalarn matcmatika nwngchutkan bahwa 
untuk keprimaan bilangan bulat posit if m 22. kila cukup nwnguji bilangan 
bulat dari 2 sampai vfoi sebagai pcmbogi gang mungk'm. 

Contoh 11.20. Bilangan Fibonacci yang ke-i didefinisikan sebagai bcrikut: 
Fib/ ■ Fib/-* ♦ Fib/., 

Didefinisikan juga bahwa Fib,, ■ o dan Fib, = 1. Jadi, 10 bilangan Fibonacci 
yang pertama adnlali 

0112398 13 21 34 

Tulisknn scbuah fungsi yang mengcmhaliknn bilangan Fibonacci kc-n. 
Pcnyclesaian 

Dari definisi bilangan Fibonacci. lainpnk bahwa bilangan Fibonacci yang ke-i 
adalah junilah dun bilangan Fibonacci yang scbelumnya. Kasus khusus ndalah 
bila i 5 1, sebab Mb/ - i. 

function Fib(input n : Integer;-» integer 
I irengomb.ilikan bilangan Fibonacci yang ke-n In 2 0) ) 

DF.KLARAS I 

i, p, q. r i integer 

ALGORITHA: 

if n S 1 then 
return n 

el®** 

p 4- 0 l Fib , ) 
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q - 1 ( } 

tor 1*—2 to n do 

r «- p * q { Fib, • Fib,., - Fib,., ) 

P «- q { Fib,., yang baru } 

q *- r ( Fib,., yang baru ) 

cndfor 
retu rn r 
endlf 

Algoritmn 11 23 Fungsi untuK membangkitkan bilar<gan Fibonacci 


11.6 Translasi Notasi Algoritmik untuk 
Fungsi ke dalam Notasi Bahasa 
Pascal dan Bahasa C 

AI.GORITMIK: 

f unc tion NaraAFungsi ( daklaraal parameter, Jtka ada)-*tip« 

T opealtikaoi fungal, menjelankan apa yang dllakukan dan yang 
dlkembalikan oleh fungal. ) 

DEKLARASI 

{ aemua name yang dipakal di dalam fungal dan hanya berlaku lokal di 
dalam proaedur didotinieikan dl eini ) 

ALGORITMA: 

{ badan fungai, beriai inotrukni-inntrukai untuk menghaeilkan nilai 
yang akan dlkembalikan oleh fungai } 

return ekopreoi { pengetnbalian nllal yang dihaoilkan fungal ) 


PASCAL: 

function N.maFungaK dcklaraal parameter, fika ada /1 lipoi 
( apoBltlkami fungal, menjelaakan apa yang dllakukan dan yang 
dlkembalikan oloh fungai. 

) 

{• DEKLARASI •) 

{ aomua nama yang dipakal di dalam fungal dan hanya berlaku lokal di 
dalam proaedur didefiniaikan dl oinl } 

(• ALQORITMA: •) 

begin 

{ badan fungai, beriai inatrukal■Inattukai untuk menghaallkan nllal 
yang akan dlkembalikan oleh fungal ) 

NamaFungaiimekapreai/ ( pengemballan nilai yang dihaailkan fungai I 

End i 
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Catalan: 

1. dalam bahasa Pascal, fungsi hanya dapat mengembalikan nilai bertipe 
sederhana (integer, real, boolean, char, dan string). Karena itu, tipe 
hasil darifiingsi haruslah dari tipe sederhana. Manipulasi fungsi yang 
menghasilkan nilai bertipe bentukan akan dyelaskan pada bagian lain 
sesudah ini; 

2. apabila fungsi tidak memiliki dqfiar parameter formal, maka tanda 
kurung buka "("dan kurung tutup ") m tidak ditulis; 

3. fungsi dideklarasikan sekaligus didefinisikan di dalam blok program 
pemanggil (sesudah kata kunci var). 


Ci 

tips NamaFungal(deklraol pararotor, Jika ada)j 

/• mpualflkaol fungal, menjelaakan apa yang dllakukan dan yang 
dlkemballkan olah fungal 
•/ 

{ 

/• DBKLARASI .•/ 

/* aamua nama yang dlpakal di dalam fungal dan hanya berlaku Jokal 
dl dalam proaedur dldcflnlalkun di alnl •/ 

/• ALOORITHAr •/ 

/• badan fungal, be rial Inatmkai - lnatrukal untu* monghaallkan 
nilai yang akan dikamballkan olah fungal •/ 

return okaprasi/ /• pengemballan nilai yang dlhaallkan fungal •/ 


Catalan: 

1. tidak seperti bahasa Pascal, dalam bahasa Cfungsi dapat 
mengembalikan nilai bertipe sederhana (integer, real, boolean, char, 
dan string) maupun bertipe bentukan; 

2. apabila fungsi tidak memiliki dafiar parameter formal, maka tanda 
kurung buka "C dan kurung tutup ") m tetap harus ditulis. Hal yang 
samajuga berlaku pada waktu pemanggUannya; 

3. sebagaimana halnya pada prosedur, fungsi didefinisikan di luar blok 
main(), dan purwarupa fungsi dideklarasikan sebelum blok main(). 

Beberapa Contoh Translasi: 

1. Fungsi F(x) - 2 X* + sr - 8 dan program pemanggilnya. 

ALGORITMIK: 

Fungsi: 

function F(input x: real)-*real 


an 
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( mengemba 1 lkan nilai Ffx ) - 2x*' . 5* - B. x e R ) 

DEKLARASI 

( tidak ada ) 

ALGORITMA: 

return 2»x*x * 5*x - 8 


Program utama: 

PROGRAM TabelFungal 

7 Program utama yang mcmperagakan cara pemanggilan fungal F. Program 
ini menampilkan tabel nilai-nilai x dan tlx> dl dal ,in nclang 110,15] 
dongan Ax • 0.2 } 

DEKLARASI 

x t ronl 


function F( Input x i renl)-*roal 
( monejembalikan nilai F(x)» ax’ • 5x - 8, x e R ) 

ALGORITMAi 

( bunt header tnbei } 

write C.') 

write r x f(x) *) 

writer.•) 


x 10.0 

while x S 15.0 do 
write (x,* * , F (x )} 

x x * 0.2 
endwhile 

I bunc gar l a penutup CnbeJ ) 

write(*.•) 


PASCAL! 

PROGRAM TabolFungal; 

( Program utama yang memperagakan cara pcmanggilan tungni F. Program 
ini menampilkan tabel nilai-nilai x dan ffxl di dalam aelang [10,15] 
dongan Jx - 0.2 ) 

(• DEKLARASI GLOBAL •) 
var 

x i real; 

( fungal yang akan digunakan dldeklaraaikan purvarupanya di aim f 
function F(x: reel);real; 

I mcngembalikan nilai Ffx)- 2x»x • Sx - I. x bcrtipe real ) 

{• DEKLARASI •) 

{’tidak ada f 
(• ALGORITMA: •/ 

begin 
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F:-2»x-x ♦ 5*X - 8i 

and; 


C PROGRAM tSTAMA •) 

bagin 

[ buat header tabel } 

writaln ..*) ; 

writaln(‘ x t(X) '); 

writaln ('. 


Xt-10.0 

whila x <- 15.0 do 
bagin 

writaln(x:4:2.' '.F(x):10:4> ; 

x :• x » 0.2; 
and; (while) 

( buat garin panutup tabel } 

writalnC.') » 


C: 

/* PROGRAM Tabel Fungni •/ 

/• Program utama yang mempeiagakan cara pem,uiggi lar. fungai F. Program 
ini mcnampilkan tabel nllai-nllal x dan t(x) di dalam eelang ( 10 ,IS] 
dengan Ax - 0.2 •/ 

ninclude <atdlo.h> 

/• purvarupa (ungai •/ 
float F(float x); 

/• mengembaliksn nilai P(x)- 2 x»x • 5x - 8, x bertipe real •/ 

aalnO 

( 

/• DSKLARASI •/ 
float x; 

/•AIOOR/IKAfV 


/• buat header tabel •/ 

printf (". \n"); 

printf(• x f(x) \n-; 

printf (-.\n“); 

x - 10.0; 

whila (x <■ 15.0) 

{ 


printf(-%f;4:2 %f:10:« \n" . X.F(x))j 

x • x ♦ 0.2; 

| /•while*/ 

/• buac garin penucup tabel •/ 

printf (“. \n"); 

) 

float F(float x) ; 
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/• mengemba 1 i kan nilai FfxJ-2x*x * 5x - 8. x bertipe real •/ 

/• DBKLARASI •/ 

/• tidak ada •/ 

/• ALGORITHA: •/ 
return 2*X # X * S»x - 8; 


2. Fungsi untuk menentukan bilangnn genap dan program utamanya. 
ALGOR1TMIK: 

Fungsi: 

func tion Genap(in put n : int eger ) -»bool ean 

{ true jika n adalah bilangan genap. atau false jika aebaliknya ) 

DBKLARASI 

( tidak ada f 

ALGORXTMAi 

return (n mod 2-0) 


Program pemanggil: 

PROGRAM OenapOanJil 

{ Program untuk menentukan apakah aebuah bilangan genap atau ganjll I 

DEKLARASI 
x t Integer 

function Genap (in put n : integer ) -» boo lean 

( true jika n adalah bilangan genap, atau fa Joe jika nrb.il lknya / 

ALGORITMA: 

read(x) 

if Genap(x) then 
write('genap') 
else 

write Cganlil’) 
end i f 


PASCAL: 

program GenapGanjil; 

{ Program utama menentukan apakah aebuah bilangan genap atau ganjil ) 

(• DBKLARASI •) 

v«t 

x t integer; 


function Genap(n:integer);boolean; 

l true jika n adalah bilangan genep. atau false jika aebaliknya ) 
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begin 

Genap:-(n mod 2 - 0); 

end; 

(• ALGORITMAr •) 

begin 

write('Ketikkan sembarang bilangan bulat s *); readln(x); 
if Genap(x) then 
vritelnf genap' ) 

else 

vr 1 teln|'ganji1'»; 
fendit) 

ond. 


C: 

/• Program QenapGanJil •/ 

/• Program utama menentukan apakah ocbuah bilangan genap atau ganjil •/ 
Mincludo <otdio.h» 

typodef enua{ 0 -falue, 1 -true) boolean; 
boolean Genap (int n); 

Mini) 

I 

/• DKKLMASI •/ 
int x; 

/• ALQORITMA I •/ 

printf (‘Ketlkknn aembarang bilangan bulat t acanf <"\d‘, fcx) ; 

If (Genap(x») 

printf (‘genap \n‘); 

else 

printf (‘ganjil \n‘>; 

/•endxf)*/ 

) 

boolean Gonaplint nl 

I true Jika n adalah bilangan genap, atau falae Jlka aaballknya ) 
return In 1 2 0); 

1 


3 . Fungsi yang mengemhnlikan basil bertipc bentukan. 
ALGORITMIK: 

Fungsi: 

function TitikTengah(Input Pi, P2 j Tltlk>-*Titik 
/ rirngcmbal ikan titik tengah dari PI d an P2) 

DEKLARASI 

Pt : Titik 
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ALGORI TWA: 

Pt.x *- (Pl.x • P2.x)/2 
Pt.y <- (PI.y • P2.y)/2 
r etur n Pt 

Program pemanggil: 

PROGRAM HitungTltikTengah 

( Program uneuA aaag hi t u ay titl* tengah dari due buah titik di bldang da car ) 

DEKLARASI 

typ e Titik : record <x:real. 

y; real 

PI. P2 : Titik 

Pt : Titik ( titik tengah PI dan P2 f 

function TitikTengah(ingut PI. P2 : Titik)-*Titik 
( mengcmbalikan titik tengah dari PI dan P2 I 

ALGORITMA: 

read(PI.x. Pl.y) 
road(P2.x. P2.y) 

Pt »- TltikTongohlPl,P2) 
write(Pt.x, Pt.y) 


PASCAL 

Fungsi di dalnm bahasa Pascal tidak dapal mcngcmbalikan nilai yang 
bcrtipe terstruktur. Karena itu, fungsi yang mcngcmbalikan tipc terstruktur 
barns dimanipulasi dcngan cara mengubah lipc hasilnya mcnjadi lipc dasar 
(misalnya integer alau boolean). 

Di bawah ini adalah conloh yang SAIAH mcntranslasi fungsi dari notasi 
algoritmik di alas mcnjadi fungsi dalam bahasa Pascal seperti di bawah ini: 

function TitikTengah(PI. ?2 : Titik) :Titik; { SALAMI ) 
l mengembalikan titik tengah dari titik PI dan P2 ) 

begin 

TltlkTengah.x (Pl.x * P2.x)/2; 

TitikTengah.y :• (Pl.y . P2.y)/2: 

•ndj 


Penulisan fungsi TitikTengah yang mcngcmbalikan nilai Ix-rtipc Titik pada 
fungsi di atas salah, karena fungsi di dalam Pascal hanya dapal mcngemhalikan 
nilai yang lx*rtipe dasar ( integer , real, char, string, dan Ixiotean). 

Agar fungsi TitikTengah dapal ditmnslasi dalam bahasa Pascal, fungsi 
tersebut hams dimanipulasi sehingga ia mcngcmbalikan nilai yang bertipc 
sederhana sembarang (misal integer), sementara lilik tengah disimpan 
dalam scbuah parameter by reference. 
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function TitlkTengah(Pl, P2 : Titik; var Pt : Titik):integer; { SENASJ j 
( mengembalikan titik tengah dari titik PI dan P2 } 

begin 

Pt.X (Pl.x ♦ P2.x)/2; 

Pt.y (Pl.y ♦ P2.y)/2; 

{ karena tungai ha rus mengeobalikan niiai, isi TitikTengah dengan 
nilai oembarang, miaalkan J } 

TitikTengah 1; 

end; 


Dengan demikian, program menghitung titik tengah di atas menjadi seperti 
di bawah ini: 

program IlitungTltikTengah; 

{ Program untuk menghitung titik tengah dari dua buah titik di bidang 
datar J 

(• DEKLARASI •) 

type Titik - record 

X: real; 
y:real; 
end; 

PI. P2 i Titik, 

Pt i Titik, { titik tengah PI dan P2 f 
y i Integer; 

function TitikTengah(PI. P2 t Titik, var Pt i Titik)t Integer; 

( mongomballkan titik tengah dari titik Pi dan P2 ) 
begin 

Pt.X (Pl.x * P2.x)/2, 

Pt.y t- (Pl.y ♦ P2.y)/2, 

( karena lungai harua mengembalikan nilai, iai 
TitikTengah dengan nilai aembarang, miaalkan 1 ) 

TitikTengah,-1, 
end; 

(• ALGORITMA: •) 

begin 

writoln(' Titik PI:*); 
write('x - ?*), readln(Pl.x), 
write (* y • ?*), readln(Pl .y), 

writeln (* Titik P2:*), 
write (* x - ?*); readln(P2 .x), 
write <'y - ?*), readln(P2.y), 

y TitikTengah(Pi,P2,Pt) ; 

writelnt 'Titik tengah - ('.Pt.X, *.* . Pt.y. *)*), 

{ Porhatikanlah, nilai y aendiri tidak dipakai ) 
end. 
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C: 


Tidak seperti bahasa Pascal, fiingsi dalam bahasa C dapat mengembalikan 
nilai bertipe bentukan (terstniktur). 

/• PROGRAM HitungTitikTengah •/ 

/* Program untufc menghirung titi* c engah dari dua buoh tic ik di bidang. •/ 
Wincludo <otdio.h> 

(• DEKLARASI GLOBAL •) 

typodef ntruct [ float x; 

float y, 

) Tltik; 

Tltik TltlkTengahlTitik PI. Ticlk PI); 

/• mengembalikan true. Pt adalah titik tengah dari PI dan P2 •/ 
main I) 

I 

/• DEKIARASl •/ 

Titik Pi, P2« 

Titlk Ptj /• titik tengafi PI dan P2 •/ 
boolean yj 

/• ALGORITMA: •/ 

printfl- Tltik Pli \n-)j 

printf(- x • ‘>j acanfCIf-, fcPl.X)/ 

prlntf<- y - -)j acanf("lf, fcPl.y); 

printC(* Tltik Pli \n-)j 

printfl" X • m )i acanf l"lf ", 4P2.X); 

printfl- y - '»/ acanfl-lf-. tP2.y)/ 

Pt - TltlkTongah(PI, P2) i 

prlntfl-Tltlk tongah i (%fl,»f) Vn'.Pt.x, Pt.y)/ 


Tltik TltlkTongah(Titlk PI. Tltik P2) 

/• Mengembalikan titlk tongah darl PI dan P2 •/ 

/• DEKLARASI •/ 

Tltik Ptj 

/• ALGORITMA: •/ 

Pt.X • (Pl.X ♦ P2.x)/2j 
Pt.y - (PI.y . P2.y)/2i 
return Pt / 


Soal Latihnn Hah n 

i. Realisasikan fungsi-fungsi berikul: 

function abn(input xireal) -• real 

{ mengembalikan harga mutJak x. Contoh; Jika x • -JO maka nilai 
mutlaknya JO, Jika x - 10 maka nilai mutlaknya 10 ) 
function doublellnput xireal) -♦ real 
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( mengembal 1 Jean 2 kali nilal x. Contoh: jlka * = 5 maJca niiai 
double-nya adalab 10 } 
function odd(input X: integer) -♦ boolean 

( taengeobalikan true jlka x bilangan ganjil dan false jika 
x bukan ganjil } 

2. Buatlah fungsi jarak yang menerima masukan dua buah titik P t (x,y) 
dan Pi(x,y) dan menghitung jarak kedua titik tersebut. Gunakan rumus 
Eucli dean untuk menghitung jarak, d: 

d = -J(x,-x 2 ) 1 +(y,-y 1 ) 1 


3. Buatlah fungsi apakah_a yang memberikan nilai true jika karakter yang 
diterimanya adalah huruf 'a' dan false jika tidak. 

4. Buatlah fungsi duraai yang memberikan durasi antara dua buah jam 
(dengan format hh:mm:yy). 

5. Buatlah fungsi nextday yang menerima masukan nama hari sekarang 
(senin..ahad) dan mengembalikan nama hari besoknya. 

6. Buatlah fungsi lastday yang menerima masukan nama hari sekarang 
(senin..ahad) dan mengembalikan nama hari kemarennya. 

7. Buatlah fungsi roman yang menerima angka dalam sistem desimal (1..10) 
dan mengembalikan angka romawinya. 

8. Buatlah fungsi lower yang mengubah huruf kecil menjadi huruf besar 
(kapital). 

9. Buatlah fungsi upper yang mengubah huruf besar menjadi huruf kecil. 

10. Buatlah fungsi phytagorae yang menerima tiga buah bilangan bulat a, 
b, c dan menentulum apakah ketiga bilangan tersebut merupakan tripel 
phytagoras. 
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12 


Larik 


Sebuah peubah hanya menyimpan sebuah nilai. Ia tidak dapat menyimpan 
beberapa buah nilai yang bertipe sejenis. Dalam pemrograman, sering kita 
mengolah sekumpulan data yang bertipe sama, mlsalnya hasil ujian 100 
orang mahasiswa, tabel harga barang di pasar swalayan, daftar kode wilayah 
dalam percakapan interlokal, dan sebagainya. Karena sedap elemen data 
bertipe sama, maka elemen tersebut diacu dengan nama, dan untuk 
membedakan elemen data yang satu dengan elemen data yang lainnya, maka 
elemen diacu dengan penggunaan indcks ( subscript ). Misalnya, jika data nilai 
ujian kita lambangkan dengan x, maka x menyatakan nilai ujian mahasiswa 
yang ke-f. 

Dalam matematika, statistika, atau bidang eksakta lainnya, kita sering 
menemui besaran yang menggunakan nama peubah berindcks seperti 

• u„ u t , u 3 , u 4 , u 5 , u*. u 7 , Us, U„ ti,o 

• a„ a„ a 0 

• Vk 2 o, untuk fc - o,i, 2,.... n 

dan sebagainya. Besaran-besaran tersebut adalah kumpulan nilai yang 
bertipe sama. Nama peubah yang menyatakan kumpulan nilai itu masing- 
masing u, a, dan v. Nilai tertentu di dalam kumpulan diacu dengan 
menggunakan indeksnya, misalnya u 3 . as, at, atau vj. 

Dalam kegiatan pemrograman, sekumpulan data yang bertipe sama perlu 
disimpan semcntara di dalam memori komputer untuk sewaktu-waktu 
dimanipulasi. Misalnya kita ingin menghitung nilai rata-rata kumpulan data 
tersebut dengan rumus: 
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rala-rata - (a, + a, +... + a„)/n • 

i=i 

Sekumpulan data yang bertipe sama disimpan secara beruntun di dalam 
memori komputer, setiap elemen data diacu dengan menggunakan indeks. 
Indeks menyatakan posisi data relatif di dalam kumpulannya. Struktur 
penyimpanan data seperti ini dinamakan larik (array). Nama lain untuk larik 
a dal ah tabcl, vektor, atau peubah nuycmuk (satu peubah mempunyai 
banyak elemen). 


12.1 Apakah Larik Itu? 

Larik adalah struktur data yang menyimpan sekumpulan elemen yang 
bertipe sama, setiap elemen diakses langsung melalui indeksnya. Indeks 
larik haruslah tipe data yang menyatakan ketemrutan, misalnya integer atau 
karakter. 

Sebuah larik yang beraama A dengan delapan buah elemen dapat 
dibayangkan secara lojik sebagai sekumpulan kotak yang terurut (baik 
tersusun secara vertikal atau horizontal) seperti yang diperlihatkan pada 
Gambar 12.1. Tiap kotak pada larik tersebut diberi indeks l, 2,3,.... 8. Setiap 
elemen larik ditulis dengan notasi: 

A[i), A[2), A[ 3), ^[4), A[S), A[6), A[ 7), A[ 8] 

Angka di dalam tanda kurung siku menyatakan indeks larik (notasi di atas 
sama saja dengan penulisan peubah ber-su6scripf A u A t , A it .... A«). 

A 

1 _ 

2 _ 

3 _ 

4 _ 

5 _ 

6 _ 

7 _ 

8 

Qambar 12 . 1 Larik A dengan 6 elemen. 


Setiap elemen larik menyimpan sebuah nilai. Karena seluruh elemen larik 
bertipe sama, maka nilai yang disimpan oleh setiap elemen juga harus 
bertipe sama. Gambar 12.2 memperlihatkan larik yang bemama A yang 
setiap elemennya berisi tinggi badan (dalam centimeter) 8 orang siswa. 
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Tinggi siswa pertama, 158, disimpan di dalam > 4 [i], tinggi siswa kedua, 157, 
disimpan di dalam A[ 2 ], demikian seterusnya. 


1 

2 

3 

4 

5 

6 

7 

8 

Gambar 12 .2 Lartk A y ang setlap rtomennya sudah bart sl nils/. 


12.2 Mendeklarasikan Larik 

Larik adalah stniktur data yang sfah's, artinya jumlah clemen larik hams 
sudah diketahui sebelum program dieksekusi. Jumlah elemen larik tidak 
dapat diubah, ditambah, atau dikurangi selama pelaksanaan program. 
Mendeklarasikan larik di dalam bagian deklarasi berarti: 

1. mendefinisikan banyaknya elemen larik (ukuran larik), dan 

2. mendefinisikan tipe elemen larik. 

Mendefinisikan banyaknya elemen larik (atau ukuran larik) berarti memesan 
sejumlah tempat di memori. (Computer mengalokasikan sejumlah lokasi 
memori sebanyak elemen larik yang bersangkutan. Mendefinisikan tipe 
elemen larik berarti menetapkan tipe nilai yang dapat disimpan oleh larik. 
Tipe elemen larik dapat berupa tipe sederhana ( integer, real, char, boolean, 
string), tipe bentukan (tipe terstruktur seperti record), atau bahkan bertipe 
larik yang lain. 

Berikut contoh-contoh mendeklarasikan larik di dalam bagian deklarasi: 
a. Scbagai Peubah 
MisaJkan: 

• a adalah larik yang berakuran 50 buah elemen yang bertipe integer. 
Indeks larik dimulai dari 1. 

• NamaMhe adalah larik yang berukuran 10 buah elemen yang bertipe 
string. Indeks larik dimulai dari 1. 

• Niluj ian adalah peubah larik yang berukuran 75 buah elemen yang 
bertipe real. Indeks larik dimulai dari o. 


A 

JS8 

JSL 

162 

169 

YJ2_ 

155 


m 

163 
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Cara mendefmisikan ketiga buah peubah larik tersebut di dalam bagian 
deklarasi adalah: 

DBKLARAS1 

A i array 11..1001 of Integer 

NamaMhs t array 11..121 of string 
NllDjian « array 10..74) ot roal 

Algoritma 12.1 Mendeklaraslkan 3 bua* larik sebagai nama peubah. 


b. Sebagai Tipe Bentukan 

Misalkan Larikint didefinisikan sebagai nama sebuah tipe baru untuk 
larik yang bertipe infeper. Ukuran larik adalah 100 buah elemen. Kita 
bisa mendekJarasikan sebuah peubah yang bertipe Larikint, misalnya 
peubah A. 

DBKLARASI 

type Larikint i array 11..1001 of Integer ( nama Cipe baru ) 

A i Larikint ( A adalah eebuah peubah larik integer dvngun 100 el eaten J 

Algoritma 12.2 Menfiokloroslkan lank tebagnl tipe bentukan 


c. Mcndefmisiluin ukuran larik sebagai sebuah konstanta 

Misalkan Larikint dideklarasikan sebagai nama sebuah tipe bentukan 
untuk larik yang bertipe integer. Ukuran maksimum larik adalah 100 
buah elemen. Ukuran maksimum larik dinyatakan sebagai konstanta. 
Kemudian, kita bisa mendeklarasikan sebuah peubah yang bertipe 
Larikint, misalnya peubah a. 

DBKLARASI 

conat Nmak<i a 100 f ukuran nakuianua elenen larik J 
type Larikint i array 11. .Iteaka) of integer 

A « Larikint { A adalah aebimb patabab larik integer dangmn 100 ol$*ten ) 
Algorltma 12.3 Mendtklanmlkan ukuran larik uebagal konstanta 


Perhatikan bahwa pendeklarasian larik pada Algoritma 12.3 sama dengan 
pendeklarasian larik pada Algoritma 12.2. Penggunaan konstanta memungkinkan 
kita mengubah ukuran larik cukup pada konstanta itu saja. 

Tetapi, pendeklarasian larik a seperti di bawah ini tidak boleh karena nilai N 
tidak diketahui di awal program (ingat bahwa larik adalah struktur statis!): 

DIKLARASI 

A £ array 11. .H] of Integer 

Algoritm a 12 A Pendek larasl n larik yang salah, nilai N tida k diketahu i._ 
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12.3 Cara Mengacu Elemen Larik 

Elemen larik diacu mcliilui hideksnya. Nilai indcks hams tcrdefinisi. Dengan 
mengacu pada larik yang sudah dideklnrasikan schclum ini. herikut 
diberikan beberopa contob cara mengacu elemen larik adalah: 

AMI { rwytjAcu 9lemon ketmpa t dari larik A } 

NamaMha[21 ( mengacu olemon kedua dad larik SamaHha } 

All) f mengacu elemen ke-l dari larik A. agalkan 

nilai i oudah t erdetinisl j 

NnmaMhol i »1] I aaalkan nilai 1 audah t erdetiniei } 

Contoh-contoh mcinonipulasi atnu menggunakan elemen larik: 

AMI <- 10 ( menqioi •lemon keempat dari larik A dengan 

nilai 10 J 

tlniMMhn (i) •- •Achmad’ / mengiai elemen ke-i dari larik NanaNha 

dengan string * Achmad * ) 

read (AUH I nembaca elemen ke-i dari larik A I 

If Mil * 10 then 
A (1) *—A (1J • 10 

•Al® 

... { pemyataan lalnnya I 


12.4 Pemrosesan Larik 

Elemen larik tersusun di raemori secara beruntun (sekuensial). Karena itu. 
elemennya diproses secara beruntun melalui indcksnya yang tern rut. 
Mem proses larik artinya mengunjungi (traversal) setiap elemen larik dan 
meinanipulasi dinilai di dalamnyn. Kuujungaii dimulai dari elemen pertama 
larik, bertumt-turut pada elemen berikutnyn, sampui elemen tcrakhir 
dicapai. yaitu elemen dengan indcks terbesar. 

Skema umum algoritma memproses larik diperlibatkan pada Algoritma 12.5. 

PROGRAM PesrcseeanLarik 

7 Skema pemroseean larik secara beruntun ) 

DEKLARASI 

const Nmaks - 100 { ukurar. makaimutr lank } 

type Lariklnt : array ll. .Kaaicnl of integer 

A : Lariklnr 

i i integer ( indeka larik 1 

ALGORITMA: 

Iniaiallaami 

i 1 ( nulai dari eleinen pertama J 

while l S Kmako do 
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pemroueuun carhadap All] 

1 ♦- i ♦ 1 { tinja u elonon barikutnya f 

endwhllo 

f T » Nm*« I 

Tarmioaai 

Algoritma 12.5 Stoma umum pemrososan MIL. 


Pemrosesan terhadap 4 [i] adalah aksi spesifik bergantung pada persoalan 
yang akan dipecahkan, misalnya pengisian nilai, pembacaan, penulisan, 
komputasi, atau manipulasi lainnya. 

Oleh karena jumlah elemen larik sudah diketahui di awal proses, maka 
jumlah pengulangan juga dapat ditentukan. Oleh karena itu, kila lebih 
menyukai struktur FOR digunakan untuk untuk memproses larik, scperti 
ditunjukkan pada Algoritma 12.6. 

PROGRAM PamroMoanLarlk 

( Skema pmmroaaaaa larik Mein boruuCua J 
DBKLARASX 

COM! Mmka - 100 { ukuraa make t mum larik ) 

tVPR LarlkXnt 1 array U. .Waako) of jqfqar 

A 1 LarlkZnt 

1 1 lntwr { IndaJa larik ) 

ALGORITMA. 

for 1 f- 1 to Nmoks do 

pan roHMO terhadap A (i) 

aatfg 

Algoritma 12.6 Skema umum penvoeew larik dengan kontruksl FOR. 

12.4.1 Ukuran Efektif Larik 

Meskipun kila mendefinisikan jumlah elemen larik, seringkali kita tidak 
menggunakan semuanya. Bila larik A didefinisikan 100 elemen, mungkin 
tidak seratus elemen yang dipakai, mungkin hanya 15. 40, atau 70. 
Banyaknya elemen larik yang dipakai kita sebut ukuran efektif larik. Ukuran 
efektif itu kita catat di dalam peubah tertentu, misalnya n. 

Di bawah ini diberikan beberapa algoritma pemrosesan larik yang disqjikan 
dalam bentuk prosedur. Larik yang digunakan adalah larik yang bernama A 
dan bertipe integer. Kita asumsikan ukuran maksimum elemen larik adalah 
100, dan ukuran efektif larik yang digunakan kita simpandi dalam peubah n. 
Selain itu, skema yang digunakan menggunakan struktur FOR, dan pada 
masalah tertentu menggunakan struktur WHILE. 
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DEKLARASI 

connt Kicdka • 100 ( uku ran nafciimum lari* ) 

type Larlklnt : array (1 ..Knoka] ot Integer 
A i Larlklnt 

n « Integer ( mcncntet ukuran JarJk yang digiuukan J 

Algoritma 12.7 Pandoklaraslon beberapa upe dan peubah yang akan dlgu nakjft. 


12.4.2 Menginisialisasi Larik 

Menginisialisasi larik adalah memberikan nilai awal untuk selunih elcmen 
larik atau niungkin sebagian saja. Inisialisasi larik mungkin diperiukan, 
misalnyn “mengosongkan” elcmen larik sebelum dipakai untuk proses tertentu, 
tetapi lial ini buknn kcharusan, bcrgantung pada permnsalnhan \nng akan 
dipocahkan. "Mengosongkan" larik bertipe numerik dapat dilakukan dengan 
mengisl selunih elcmen dengan no! (atau nilai lainnya. bcrgantung kebutuhnn), 
sedangkan pada larik karaktcr, "mengosongkan" larik berarti mengisi demon 
larik dengan spasi atau karaktcr kosong (mill). 

n. MenginisialisiiNi elemen-elcmcn larik dengan nilai o 

f rocodure InioDenganO(output A i Larlklnt, l^nput n i integer) 
HenginiaiaUaaal aotiop elemen l»rik A[l..nJ dengan not. I 
f K.Awa 1: n adalah Jumlah elcmen e/ektif Link, iiilalnya tndff inlei. I 
{ K.Akhlri oeluruh alnmon lank A becnilal not . ) 

DEKLARASl 

1 j integer { pencatat indtrke larik / 

AUJORITMA: 

tor 1 t- 1 to n do 
Afll e- 0 
endrpr 

Algordmn 12.8 MongmiRlflilsnai olomon-elomen lank A dongon 0 


Cat u tan: 

untuk mempersingkat penulisan, maka larik A yang bvrukuran n demon 
dan diacu dengan indeks dari i sampai n kita rulis sebagai Afi .n]. 

Contoli program yang memanggil inisDengano: 

Pe®ro8eoanL#irl)r 

T Program untuk monglei ejemen larik dengan nilai o } 

dbkiarasi 

conot Nmako -100 { ukutan makalmum latik I 

type'l.rtriklni : array (1. .iltnakal o£ integer 

A > Larlklnt 

l i integer ( indek a larik ) 
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n : integer ( ukuran cfektif larik ) 

procedure InlaDenqtmO( output A « Lariklnt, Input n i integer) 

/ Menginiaialluaul net tap trimmer) larik All..nl dongan nol. ) 

ALGORITMAs 

read(n) f teneukan Jumlah oilmen larik yang /i*ait digun/dcan. 

dengan ay*rat J S n 3 Nmako } 

iniaDenganO(A, n) 

{ cmtak haeil ininialioasi } 

lor i 4- 1 to n do 
write (Mil) 
endfor 

Algorilma 12.9 Program pomanggi imsiaksasi lank 


Hasil inisialisasi larik A dengan o dipcrlihatkan pada Gambar 12.3. Sctiap 
demon larik berisi nilai yang sama, yaitu o. 



Gambar 12.3 Lank A yang solmp elomonnyn sudah dimttiaksa&i dongnn 0 


b. Mengini'dalisusi .setiap elemen larik kc-i dengan nilai i\ 

Misalkan kila ingin setiap demon tarik yang ke-i dunisialisasi dengan 

nilai i. Jadl, /l|ij ■ i, A[a| - .. A[n] n. Algorilma inisinlisasinyu 

ndalah seperti berikut ini: 

procedure InioDongnn(output A t Lariklnt, input n j integer) 

{ Mmnglnlmimliaaal net lap eieren Aft] dengan nilai 1 - 1. 2. n. ) 

( K.Avalt n adala/i Juml.th eleven mtakr.it larik. nllalnya terdmtinial. } 

( K.Akhin All 1 m j, a[21 - 2. .... Mnl • n ) 

DIKLARA8X 

i t Integer I penencar indeka larik } 

ALGORITMAr 

for i «- l to n do 

MU •- 1 

Endfor 

Algorilma 12.10 Monginlnlnlisa*l alemtn lank n donum Mai 1 tampal n 
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Hasil inisialisasi larik A dengan nilai 1 sarapai n diperlihatkan pada Gambar 
12.3. Setiap elemen A[i] berisi nilai i. 



Gambar 112.4 Larik A yang saUap elemen he-l sudahdunis.al.sasi dengan nilai L 


12.4.3 Mengisi Elemen Larik dengan Pembacaan 

Selain dengan pengisian nilai secara langsung (seperti pada inisialisasi), 
elemen larik diisi dengan cara pembacaan (misalnya dengan mengetikkan 
nilainya dari papan ketik). Dalam hal ini, elemen larik dibaca satu per satu 
mulai untuk elemen pertama sampai elemen ke-n. 

Algoritma pembacaan elemen larik adalah seperti di bawah ini (kita buat 
dalam 3 versi sesuai spesifikasinya): 

Verst 11 jika jumlah elemen efektif ditentukan di awal 

procadur* BacaLarlkl ( output A 1 Larik Lot. Input n 1 lofqar ) 

( Mcnglai alemen-aleman larik A 11 ..nj dangan pembacaan. } 

{ K.Awal: o adalah Jumlah airman alaktlt larik, nilainya tardaflnial. ) 

( K.Akhlrt aetalab pembacaan, aaluruh elemen larik A borloi nilai - 
nilai yang dibaca dari pi rand aaau k a n . ) 

DBKLARASX 

1 1 lntaqar ( pancatat lndaka larik f 
ALGORITMAi 

for 1 ♦- 1 to n do 
rod(A(l)) 

•ndfor 

Algoritm a 12.1 1 MongM alamarvol aman lank daoQan cara pombacaan (vtrtl 1). _ 


Versi a: jika jumlah elemen efektif baru diketahui di akhir 
pembacaan 

Adakalanya jumlah elemen efektif tidak ditentukan di awal, tetapi baru 
diketahui pada akhir pembacaan. Dalam hal ini, jumlah elemen efektif, n, 
merupakan parameter bertipe keluaran. Prosedur BacaLarik2 di bawah ini 
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mcmbaca elemen-elemen larik, setiap kali selesai pembacaan satu buah 
elemen, pengguna program dikonfirmasi apakah masih ada lagi elemen larik 
yang akan dimasukkan. 

write('Lagi?(y/t)•) 
read (jawab) 


Jika jawabannya y maka pembacaan dilanjulkan, jika t' maka proses pembacaan 
dihentikan. Jumlah elemen yang telah dibaca dicatat di didam peubah n. 

! roceduro BacaLarik2( output A : Lariklnt, output n t i ntege r ) 

Mengial elemen-elemen larik A(l..n] dengan cara pembacaan. ) 

{ K.Awal: eembarang. ) 

{ K.Akhlr: aeban yak n buah elemen larik A beriai nilai-nllai yang 
dtbaca ; n borlai jumlah elemen larik yang dilal. } 

DEKLARASI 

jawab : char 

ALQORITMA: 

N «- 0 

n «- n ♦ 1 
read(A(n]) 
write('Lagi?(y/t)* I 
read (jaw,ib > 
until jawab • 't* 

Algorllma 12.12 Mongttl elemorvoiemon larik dongan cara pembacaan (vorai 2). 


Vcrsi 3 : jika jumlnli elemen efektif barn dikclahui di akhir 
pembacaan (variasi dari vcrsi 3) 

Pada vcrsi 3 ini, proses pembacaan dianggap selesai jika nilni yang dibaca 
udalah suatu lands, misalnyn 9999. 

p»C»dure BacaUrlkJ (output A 1 Lariklnt, output n 1 integer ) 

( Mengial elemen-elemen larik All..nl dengan cara pembacaan . Akhir 
pembacaan dicandal Jika nilal yang dibaca adalah 9999 ) 

{ K.Awal; aembarang. } 

I K.Akhlr: aebanyak n buah elemen larik A berlal nilai-nllai yang 
dlbacaj n beriai Jumlah elemen larik yang dilal. ) 

DEKLARASI 

* * integer { menyimpan aementara nilal yang dibaca ) 

ALGORITMA; 
n 4- 0 
read (x) 

w hile x * 9999 do 

n 4 - n * 1 
A(nl «- x 
read lx) 
endwhile 
7 x - 9999 I 

Algorllma 12.13 Mengisi etemen-demon lank dengan cara pembacaan (vorsl 3) 
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12.4.4 Mencetak Elemen-elemen Larik 


Isi elemen larik dicetak ke piranti dcngan pomyataan write. Dalam hal ini, 
elemen larik dicetak satu per salu mulai untuk elemen pertama sampai 
elemen ke-n. 

Algoritma pencetakan elemen-elemen larik dinvntakan oleh prosedur di 
hawah ini. 

f toeedure CetakLarlk( Input A i LarlkXnt, Input n j Integer ) 

Mencetak elemen-elemen larik A [l.,nl. ) 

{ K.Await n audah beriai Jumlah elemen larik yang dlpakai. Blemen- 
airman larik A eudah ter definlel.J 
{ K.Akhlr; elemen-elemen larik A tercetak. I 

DIKLARASX 

l t integer { pancat ac lndeko lank ) 

ALGOR ITMA i 

for 1 •- 1 to n do 
write(Atil) 

"ndfor 

Algorlimn 12.14 Mencetak ©lemen-elomon lank 


12.4.5 Menghitung Nilai Rata-rata 

Karen a data yang hendak kita proses sudab disimpan di dalam larik, niaka 
kita da pat memanipulasi data tersebut. Misalkan larik A sudah terdeflnisi 
elemen-elemennya. Kita ingin mengliitung nilai rata-rata selumli elemen. 
Algoritmanya dinyatakan seperti di bawah ini: 

Procedure HitungRataRata(Input A i LarlkXnt. input n i In teger . 

o utput u i reel) 

{ Menghitung nilai rata-rata elemen larik A. ) 

( K.Await elemen-elemen larik A audah t cidcfIntel; n adalah jumlah 
olemon larik, nilainya audah terdellnlai . ) 

{ K.Akhirt u beriai nilai rata-rata oeluivh elemen. } 

DKKLARAS I 

1 i Integer (indeka larik ) 

jumlah i real {jumlah total aeluruh nilai ) 

ALGORITMA: 

1 «- 1 { dimulai dari elemen pertama ) 

jumlah *- 0 { jumlah total nilai n uia-mula ) 

for 1 *- 1 to n do 

jumlah *— jumlah * A[i] 
endfor 

u *— jumlah/N 

Algoritma 12.15 Menghitung nilai rata-rala elemen di dalam lank _ 
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Contoh program yang menggunakan prosedur HitungRataRata sebagai 
berikul: 

PROGRAM Rerata 

{ Program utama untuk menghitung nllai rata-rata aeluruh alaaton larlk, J 
DEKLARASI 

conet Wmak* - 100 { ukuran mokalrmm larlk f 

type Larlklnt i array [1..rtaakol of integer 

A i Larlklnt 

n « Integer { j uni ah demon larlk yang dlgunekan ) 

u i Integer { nllai rata-rata J 

procedure BacaLariXI( output A i Larlklnt, input n : Integer ) 

7 Menglei alemen larlk All.,n] dongan pambacman. ) 


procedure HitungRataRata( Input A : Larlklnt, Input n t Integer. 

output u i real) 

[ Menghltung nllai rata-xata larlk A- J 


ALOORITMAi 

read (H) / ten tu)c an Juml ah elooien larlk yang akun dlgunakan ) 
BacaLarlkl (A, n) ( baca eiemen-eloman larlk ) 

HitungRataRata (A, n. u) { hitung nllai rata-rata ) 
write(u) { cetak nllai rata-rata ) 


AJp orHTM 12.If pomongpll proeedur hftung niial rata^rala. 


12.4.6 Kapan Menggunakan Larik? 

Pertanyaan yang sering diajkan oleh orang yang baru belajar pemrograman 
adalah: kapan menggunakan larik? Larik digunakan bila kita mempunyai 
sejumlah data yang bertipe sama, dan kita periu perlu menyimpan sementara 
data tersebut, untuk selanjutnya data tersebut kita proses. Selama 
pelaksanaan program, larik tetap menyimpan nilai. Hal ini bermanfaat bila 
kita ingin menggunakan nilai-nilai di dalam larik tersebut untuk diproses lebih 
lanjut di bagian lain di dalam algoritma. 

Dengan menggunakan larik, kita da pat menghindari penggunaan nama-nama 
peubah yangbanyak. Sebagai ilustrasi, program HitungReraca_TanpaLarik di 
bawah ini memerlukan 6 buah peubah (xi, x2,.... x6) untuk menyimpan nilai- 
nilai x yang bertipe sama, integer. Bagaimana kalau program kita mengolah 
1000 buah data yang bertipe sama? Tentu menggunakan 1000 buah peubah. 
Jelas cara ini tidak praktis. Selain itu, akan ada 1000 buah pernyataan input 
atau output untuk membaca/menuliskan nilai-nilai x tersebut, dan ekspresi 
yang panjangnya 1000 peubah untuk menghitung nilai rata-rata. 

PROGRAM BitungRer»ta_TanpaLarik 

{ Program yang membaca € buah data, mancotaknya. dan menghitung rata¬ 
re tanya . Tanpa menggunakan larlk J 
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DBKLARASZ 

*1. x2, x3, x4, x5. X6 s integer 
u j reel 

ALGORITMA: 

{ Daca 6 buah nilai Integer, aimpnn dl xl. x 2 . .... x6 ) 

rend(xl) 

read 1 x 2 ) 

rcad (x3) 

read(xa) 

read(x5) 

r ead 1 x 6 ) 

( Cetak nilai xl, x2 . x6 } 

wr ite (xl) 
w rite (x 2 ) 
write(x3) 
write«X4) 
write (xS) 
write(x6) 

f hitu/ig n/lai rate-race ) 

U «- (Xl » X2 • XJ • X4 • X5 4 X6I/6 
write(u) 

Algoflimo 12.17 Program monghtlung nilni rntn-rnt.i. (nnpo menggunakan larik 


Dcngan menggunakan lank, menyimpan 6 buah nilai x cukup mcmcrlukan 
hanya satu peubah larik saja (x), yang dalam hal ini x terdiri at as 6 buah 
elemen. Untuk menyimpan 1000 buah elemen x juga membutuhkan satu 
buah peubah larik yang terdiri atas iooo elemen. Sclain itu, dengan larik, 
instniksi pembacaan/pvnulisan seluruh elemen larik cukup ditulis satu kali 
saja di dalam sebuah konstruksi pengulangan, seperti Algoritma 12.18 
lierikut ini: 

PROGRAM IIitungRerAta_Denganlxtrik 

/ Ptogtam yang mombaca 6 buah data, mneetaknydan manghltung rata 
ratanya. Menggunakan larik I 

OEKLARASI 

x i array( 1 ..6| of intogor 
i i integer 
Juralah, u : real 

ALGORITMA: 

{ Baca 6 buah nilai Integer, aimpan dl xlll, l - 1, 2, .... 6 ) 

for 1 «- 1 to f do 
read (x [1)) 
endfor 

{ Cotak aetiap nilai x(i). 1 • 1, 2, .... i ) 
for i «- 1 to < do 
wr ite (x(IJ) 
endfor 
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{ hitting nilai rata-raea ) 

jumlab 4- 0 

for 1 k- 1 to t dp 
jumlah «- jumlah ♦ *11) 

•ndfor 

u 4- J o*l ah/6 

Wlto tu) 

Algoritma 12.18 Program menghltung nfai ratarata. manggunakan larik. 


12.4.7 Mencari Nllai Maksimum Larik 

Nilai maksimum pada larik integer/real adalah elemen larik yang 
mempunyai nilai terbesar di antara elemen larik lainnya. Pada Gambar 12.2, 
elemen maksimum adalah 172. 

Persoalan mencari nilai maksimum sering ditemukan pada beberapa masalah, 
misalnya juara pcrtama dan sekumpulan skor sebuah pertandingan, mencari 
juara kelas, dan sebagainya. 

Bila elemen larik sudah terumt raenaik, harga maksimum langsung 
diperoleh pada elemen terakhir. Sebaliknya bila elemen larik sudah terurut 
menunin, harga maksimum langsung diperoleh pada elemen pertamanya. 

Bila elemen larik tersusun acak. lata harus mengunjungi seluruh elemen larik 
untuk mencari nilai maksimum. Terdapat dga versi algoritma pencarian harga 
maksimum, masing-masing lata sebut algoritma verei 1, versi 2, dan versi 3. 

(a) Versi 1 

Algoritma versi 1 ini kita ambil nilai maksimum sementara (mafcs) 
adalah nilai yang sangat kedl, misalnya - 9999 - Selanjutnya, larik 
dikunjungi mulai dari elemen pertama. Setiap kali mengunjungi elemen 
larik, bandingkan elemen tersebut dengan nilai maksimum sementara. 
Jika elemen larik yang sedang ditinjau lebih besar dari nilai maksimum 
sementara, maka maks diganti dengan elemen tersebut. Pada akhir 
kunjungan (yaitu setelah seluruh elemen larik dikunjungi), nilai- 
maksimum sementara menjadi nilai maksimum yang sebenamya. 

Sebagai ilustrasi, tinjau kembali contoh larik pada Gambar 12.2 (di 
bawah ini diperagakan kembali): 
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I—13Z— 

162 


JSl 


j62_ 


iZL 


J 55 _ 


JZ 2 _ 


J61 


Asumsi: mofcs ■ -9999 (nilai maksimum seraentara) 


A[i] > mate? Ya -* 

A[2] > maks ? Tidak -♦ 

A[3] > mate? Ya -* 

A( 4 l > maks? Ya -♦ 

A[5] > maks? Ya -> 

A(6] > maks? Tidak -+ 

A[ 7] > maks? Tldak -♦ 

A[8] > maks? Tidak -♦ 

(proses pembandingan selesoi) 


maks 4 - A[ 1] (maks = 158) 
(maks tidak benibah) 
maks 4 - A[3] (maks * 162) 
maks ♦- A(4] (maks ■ 169) 
maks 4 - A[s) (maks - 172) 
(maks tidak benibah) 

(maks tidak benibah) 

(maks tidak benibah) 


maks = 172 (nilai maksimum lank) 

Algoritma mencai nilai maksimum adalah seperti di bawah ini: 


(1) sebagai prosedur. 

procedure CarlMakel( input A j Larlklnt, Input n s Integer . 
output make 1 integer ) 

( Nencar 1 elomen terbcaar di daJam larlk AII..a], J 
KAwal; n audah barlal ukuran ofokclf larlk/ aaluruh ulumun larlk 
A(l..n] nudah tardaflnlal nllalnya. ) 

( K.Akhlri 1 nako barlal aleman larik yang bam Hal maksimum ) 

DBKLARASI 

1 1 Integer ( pancatat indake larlk ) 

ALGORITMA: 

maks <- 9999 { nilai maksimum sementara } 

for i 4— 1 to H do 
if AliJ > maks then 
make «- AUl 
endif 
endfor 

Algoritma 12.19 Moncan e lemon maksimum larik (versi 1) 
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( 2 ) sebagai fungsi: 

function MakeHInput A : Lariklnt, input n : integer)-*integer 
{ Mengccaba l ikan elemen ter boaar dari larik A{l..n], ) 

DKKLARASI 

1 : integer / pencatat i ndeks larik ) 

make i integer 

ALGORITMA: 

mako «- -9999 / nilai makaimum a+eicntara ) 

tor t ♦- 1 to il do 
If All] > mako then 
mako «- AUJ 
endif 
endfor 
return mako 

Algoritma 12.20 Moncarl olomon maksimum lank (vans 1. dalnm bontuk fungsi). 


Algoritma versi i ini hanya benir jika scluruh elemen larik bernilai lebih 
besar dari -9999 (sesuai dengan inisialisasi yang diborikan), karena nilai 
maks - -9999 selnlu tergantikan dengan nilai elemen pertama larik. Rila adn 
elemen larik yang bernilai kurnng dari -9999 (misalnya - 12000 ), maka ada 
kemungkinan -9999 dapat inenjadi elemen maksimum larik. Bila demikian, 
maka nilai maksimum yang diperoleh bisa salah. 

(b) Versi 2 

Pada algoritma versi 2 ini. nilai maksimum sementara diinisialisasi 
dengan elemen pertama larik Selanjutnya, larik dikunjungi mulai dari 
elemen kedua. Setiap kali mengunjungi elemen larik. bandingkan 
elemen tersebut dengan nilai maksimum sementara. Jika elemen larik 
yang sedang ditinjau lebih besar dari nilai maksimum sementara, maka 
tmiks diganti dengan elemen tersebut. Pada akbir kunjungan (yaitu 
setelah selunih elemen larik dikunjungi), nilai maksimum sementara 
menjadi nilai maksimum yang sebenarnva. 

Sebagai ilustmsi, tinjau kembali contoh larik pada Gambar 12.2 (di 
bawah ini diperagakin kembali): 


2 

3 

4 

5 

6 

7 

8 


A 

15 * 

151 

162 
i<!2. 
121 
155 . 
122 . 

163 
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Asumsi: males = A[i] (nilai maksimum seraentara, maks = 158) 

A[2] > maks ? Tidak -» ( maks tidak berubah) 

A[3) > maks? Ya -♦ maks *- A[s) (maks = 162) 

A[ 4 \ > maks? Ya -* maks <- AUJ (maks * 169) 

A[ 5 ) > maks ? Ya maks «- A[s| (maks * 172) 

A[6] > maks? Tidak -» (maks tidak berubah) 

A[7) > maks? Tidak -♦ (maks tidak berubah) 

A(8j > maks? Tidak -» (maks tidak berubah) 

(proses pembandingan selesai) 

maks ■ 172 (nilai maksimum lank) 

Algoritma mencai nilai maksimum,.seperti di bawah ini: 

pro cedure CariMakes< input A r Lariklnt, input n t Integer, 
output make i integer) 

/ Moncarl oilman terbaoar dl dalam lav Ik All..nl. ) 

{ K.Await n oudah barioi ukuran ctekat larlkj eolutuh el anon larlk 
All..nl audah tordaflntal ntlalnya. ) 

( K.Akhlri maka borial olonon larlk yang bomllai eukeimum ) 

DKKLARAS I 

1 1 inte ge r ( pencetat Indeka lank f 

ALOORXTMAi 

make •- AflJ ( nilai makatmum eeccntara / 
for l ♦- 2 to n do 
if Alii * mako then 
make t- Alii 
end i t 
endfor 

Algorllm.i 12.21 MttlCWt —men maksimum lank (vers) 2) 


Algoritma versi 2 juga dapat dinvatakan sebagai fungsi. seperti di bawah ini: 

function Makes Unput A : Larlklnt. input n : integer) -(integer 
I Nengemba 1 ikan olenen lerboaar fieri Jarik Afl..nl. ) 

DEKLAKASI 

i : integer { per.catat Indcka larlk } 

ALGORITMAi 

maka«-A(ll { nilai makBimun aenentara } 
for i*-S to n do 

if All] » naka then 
makB4-A[iJ 
end if 
ondfor 
return maka 

Algoritma 12.22 Moncah eteroen maksimum lank (versi 2. dalam bontuk lungsj)._ 
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Algoritma versi 2 lebih umum dan akan selalu benar untuk nilai larik apa 
pun (baik bemilai positif ataupun negatif). Selain itu, algoritma tetap benar 
meskipun larik cuma berukuran 1 elemen (yaitu, n = 1). 


(c) Versi 3 

Sering di dalam program kita tidak membutuhkan nilai maksimum larik, 
namun yang diperlukan adalah posisi atau indeks elemen larik yang 
bemilai maksimum itu. Pada contoh ilustrasi di atas, nilai maksimum 
(make) adalah 172, terletak pada indeks nomor 5. Bila informasi ini yang 
diinginkan, maka algoritmanya adalah seperti di bawah ini (indeks 
elemen larik yang bemilai maksimum disimpan di dalam peubah 

IdxMaka): 

procedure CariMakal( input A 1 Larlklnt, Input n 1 integer 1 
output XdxMake 1 Integer ) 

{ Noncarl Indeka elemen larik bemilai C a r be ear dari larik A[l..n] ) 

( K.Aval 1 n audah beriai ukuren efektif larik; aaluruh ale non larik 
All..ni audah Cardefiniei nilainyo. ) 

{ K.Akhiri IdxMaka beriai indeka elemen larik yang bemilai maksimum. ) 


DIKLARASX 

i 1 integer ( poncecat indeka larik ) 

ALGORITMA: 

IdxMaka •- 1 ( Indeks larik yang beriai nilai mini 

for i ♦- 2 to n do 

if A(i) > A(IdxMaka) then 
IdxMaka ♦- i 
endif 
mdfor 

Alflorttme 12.23 Mencari el emen makalmum lark (van! 3) _ 


mum 0emoncare ) 


Contoh program yang mcmanggil prosedur cariMaka 3 , seperti di bawah ini: 

P ROGRAM Kokaimum 

/ Program untuk mencari elemen maksimum dari sebuah larik. ) 

DBKLARASX 

conet Nmaka - 100 I ukuran maksimum larik ) 
type Lariklnt i array ( 1 .. Nnvike) of integer 

A i Lariklnt 

n i integer ( ukuran efektif larik I 

imake i integer ( Indeks larik yang elcmennya terbeaar ) 

procedure BacaLarikl( output A i Lariklnt, input n i intoger ) 

( Meombaca elemen-elemen larik A J 

procedure CarlMakol( Input A : Lariklnt, input n i integer . 

output XdxMake . Integ er) 

/ Mencari indeks elemen larik bemilai terbeaar dari larik AJ 


« [ 
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ALQORXTHA: 

read In) I tnnc.ukan ukuran larlk ) 

BacaLarlkl(A.n) { baca aloman-olemen larlk J 

CariMaXs3 (A.n, imake) { carl Indaka eleven yang bernllal terbesar J 
write ( ‘ Bleraen terbesar Alimake)) 

Algoritma 12.2 4 Pro g ram pem angg.! CahMaks3__ 


Prosedur cariMaks3 memberikan indeks dari kemunculan pertama elemen 
yang bemilai terbesar. Jika terdapat lebih dari satu elemen maksimum, maka 
hanya indeks elemen terbesar yang pertama kali ditemukan yang dihasilkan. 
Hal ini karena kita menggunakan tan da “>" dalam operasi peibandingan: 


11 All) > AlIdxMoko] 
XdxMaks ♦- 1 
endif 


then 


Jika kita menganti tanda ’>* dengan maka kita akan memperoleh indeks 
elemen terbesar yang terakhir kali ditemukan: 

If All) a A(XdxMake) then 
XdxMako «- & 

•ndil 

Dapatkah Anda mengerti mengapa demikian? 

Prosedur mencari indeks larik yang elemennya terbesar nanti akan bermanfaat 
pada waktu kita membicarakan algoritma pengurutan. 


12.4.8 Mencari Nilal Minimum Larik 

Algoritma untuk mencari nilai minimum larik analog dengan algoritma 
mencari nilai maksimum larik. 

Versi i: Nilai minimum (min) awal ■ 9999 

procedure CerlHlnl( input A i Lariklnt, Input n i Integer , 
output min i Integer ) 

{ Mencari olomon tarkecil dl dalam larlk A11..n]. J 
{ K. Aval i n audab barlal ukuran efektlf larlk/ aolurub demon larlk 
Afl..nJ audab e erdaflnlal nilalnya. J 
( K.Akblri min barlal olomon larlk yang bomllal tarkacll J 

DEKLARASI 

1 i Integer { pancatat Indoka larlk ) 

ALOORXTHAi 

nln +- 9999 { nilai minimum aamentara J 

for l«-l to n do 
If All) « min then 


Bab 12 - Lank 



http://www.pakteguh.com 


min «- Mi] 
end if 
endfor 

Algoritma 12.25 Moncan olomen minimum larik (versi 1). 


Versi 2: Nilai minimum (rain) awal = demon pertama larik = A[i] 

procedure CnrlMin 2 ( inpu t A s Lariklnt, in put n : integer , 
o utput min : integer ) 

f Kencari elemen terkecll di dalam larik A[l..nl. ) 

{ K. Awal 1 n oudah berioi ukuran efukt il larik; aeluruh elemen larik 
A(l..n1 oudah t erdefinioi nilainya. } 

( K.Akhir: min berioi elemen larik yang bernilai terkecll } 

DEKLARASI 

i * inte ger ( pencatat indekn larik ) 

ALGORITMA: 

min ♦— A11J { nilai minimum aemoncara f 

for 1 *- 2 to n do 
if A(i] < min t hen 
min «- Ali| 
endlf 
e ndfor 

Algoritma 12.26 Moncari elemen minimum larik (vorr .1 2) 


Versi 3: Moncari indeks demon larik yang bernilai minimum 

procedure CarlMinS(input A : LarikXnt, input H : integer , 
output IdxMin j Integer) 

/ Scncan Indekn olemen larik bernilaV terkecll d an larik A[l..nJ } 

I K.Awal: n oudah berlal ukura n etektlt larik ; oelurub elemen larik 
Afl.-n! oudah ter definiti nlltunya. ) 

{ K.Akhln TdxMin be:lot Indeko elemen larik yang bernilai terkecll. / 

I)K KLAH ASI 

1 1 integer / pencatat Indoko larik ) 

ALGORITMA1 

IdxMln »-1 f Indekn larik yang berioi ntlal minimum mmentara } 
for 1 *- 2 to n do 

it MU < A[IdxMin] then 
IdxMin *- i 
end if 
endfor 

Algoritma 12.27 Moncari olomon minimum larik (versi 3). 


Pencarian nilai maksimum dan minimum dnpnt dilakukan sokaligtis dalam 
sokali jalnn’ soperti yang ditunjukknn pndn algoritma horiknt: 


JM 


jorilmr 


dan Poraroflraman 
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procedure MinMaka(input A : Lanklnt, input M i Integer , 

ou tpu t min : inte ger. output make i Integer) 
l ttoncart eleraen c oriacll dan elemen torbeear di dtlatn larlk Afl..jV/. } 
! K.Await elemen-eJemen larlk AU..N] oudah terdcftnlnl. } 
l K.Akhlct min beriaj eiemen larlk yang bcmilal Carkacil, 

mat c« bcriol eieeen larik yang bamllal torbtear ) 

DEKLARAS2 

I i integer ( poricatac Indeks larlk J 

AI/JORITMA: 

rain *- A (1J 
mako ♦- All] 
for 1 «- 2 to N dtt 
if Mi] < min t hen 
rain *- Afil 
and if 

if All] > mako then 
make «- All) 
end if 
o ndfor 

Algorllma 12.20 Moncarl aoKaltput olemen minimum dan mikumum larlk 


Proscdur MinMaka dapnl Aiida modifikasi jikii yang ingin dihasihkan acfnlnli 
indeks larik yang berailai minimum dan maksimum (tinjan prosedurcariftiko 3 ). 


12.4.9 Menyalin Larik 

Diberiknn scbuah larik integer, A. yang sudah terdefinisi elemen-elemcnnya. 
Ukuron larik adalali n elemen. Kiln ingin menyalin {copy) elemen-clemen 
larik A ke dalam larik yang lain. n. 

Algorithm menyalin larik sangat sederhana. Inilali olgorilmnnya: 

procedure 3*1inLarlk(input A : Leriklnt, input n i integer. 

output B t Leriklnt) 

{ Nonyalln tcopy) larik A II..nj ke dalam larlk B(l..nl ) 

I K.Await Lank A[l..n] audah c erdaClnioi.) 

( K.Akhlri Btl..nl adalah latlk yang elemen-elemerniya /».»«■» dengan 
lank All. .nl. ) 

OKKLARASI 

i i integ er ( Ir.doka larlk f 

ALGORITKAs 

for 1 *- 1 to n do 
Bit) •- All) 

*n<*gor 

A/Qoritma 12.29 Menyalin (copy) tank A ke dajam lank 
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12.4.10 Mengujl Kesamaan Dua Buah Larik 


Diberikan dua buah larik integer, A dan B, yang jumlah elemennya sama (n 
elemen). Kita akan membuat fungsi untuk memeriksa apakah kedua larik 
tersebut sama. Dua buah larik dikatakan sama bila elemen-elemen yang 
berpadanan uwtannya sama. Fungsi tersebut mengembalikan mlai true jika 
A dan B sama, sebaliknya mengembalikan false jika tidak sama. 

Sebagai contoh, diberikan tiga buah larik di bawah ini, A, B, dan O. 

A I 4 I 6 I 3 I ■ I 

B I 4 16 | 3 | 1 | 

C I 4 I 3 16 I ■ I 


Larik A dan B sama, tetapi A tidak sama dengan C, karena A[ 2 ] # Cfa). 

Pemeriksaan kesamaan dua buah larik dilakukan dengan membandingkan 
setiap elemen yang berpadanan pada larik. Jika ditemukan satu saja elemen 
yang tidak sama, maka pemeriksaan dihentikan dan fungsi mengembalikan 
nilai/afae. Inilah algoritmanya: 

function LarlkSaaa( Input A, B i Lariklnt, input n i Integer ) -* boolean 
f momborikan nilai true jika larik Atl..oJ dan oama. atau 

falea 

jika tidak aama. ) 

DBKLAKAflX 

i « Integer 
oama i boolean 


XLOORIlXAi 
1 4- 1 

eanui *- true 

while U S n) and (aama) do 
If A(ll - »fll then 

1 ♦“ 1 ♦ 1 ( tinjau a lemon borikutaya ) 

elae ( Afil * all), n aka dapat diaimpelkan A dan B tidak oama ) 

aama ♦- falae 

andlf 

endwhlle 

{ i » a or not aama) 


Alflorlbna 12.30 Memerikea kewmaan dua buah larik yan® berukuran aama. 


W”T 
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12.5 Larik Bertipe Terstruktur 

Contob-contob algoritma yang dibabas sebelum ini mcnggunakan larik 
dengan elemen-elemen l)ertipe scderhana. Elemen larik juga dapat bertipe 
terstruktur. 

Scbagai contoh, misalkan kita akan mengolah data too orang mahasiwa. 
Data setiap mahasiswa terdiri dari N 1 M (Nomor Induk Mabasiswa), noma 
niahasiswa, dan IPK (indcks prestasi kunnilatif yang nilainya berkisar antara 
o sampai 4). Struktur lojik larik A Iks ditunjukkan pada Gambar 12.4. 

Struktur lojik larik Mhs ditunjukkan pada Gambar 12.4. 


1 

2 

3 

4 

5 

6 
7 


100 

Gambar 12.5 Larik Mbs dongan 100 olomon Sotiop elomcn lank borbpo lorslruklur (record) 
TJop mcord tordirt nUis field NIM, NamaMh*. don field IPK._ 


NIM NamaMhs IPK 


1 29801 

1 IlcniSalrio 


WEZZWM 












■■■■■ 


BHHi 



■■ 

■■■■■ 


wmm 



■■■■ 

w^zjwm 

l Yonli Siregar 

nni 


Struktur larik yang menyimpan kescluruban data tersebut dideklarasiknn di 
bawah ini. Naina larik adalab A/bs. 

DHKLARASI 

oonot Nmak a • 100 

CVPt Mahantown i record «NIM ! Integer, / Nomor Induk Nnhs&Jtws ) 

NanoMhn i nr ring. ( nanu mahnelnwa } 

IPK i real ( 0.00 osmpal 4.00 } 


type T.tbMhn i array ( 1 . .Hooka) of Mahaoiave 
Mb#** i TobMha 

Algoritma 12.31 Doklnrosl lank Mhs yang bcrtipo lorslruklur 


Cara mcngacu elemen Mbs: 

Mhn(2) ( elemen kedua dart larik Mne ) 

Mhn(2].NXH j mengacu field KIM dari elemen kedua larik ) 

Mho(2].IPK ( mengacu field IPK dari elemen kedua larik } 


Bab 12 - Lank 


in 


http://www.pakteguh.com 













Karen a record merupakan struktur, maka kita tidak dapat melakukan 
pencetakan elemen larik Mhs seperti di bawah ini: 
writs(Htaa(1]) ... 

tetapi haruslah seperti berikut ini: 

write (Mha 11).HIM. Mhe(1| .HainaHhe. MhotiJ.XPK) 

Namun, cara mengisi nilai elemen ke elemen lainnya dengan penulisan 
pemyataan seperti di bawah ini adalah benar: 

Mho(i) Mho(l«l) " 


yang sama saja dengan pengisian per field sebagai berikut: 

Khu(1).HIM ♦- Khe(1*1J.KIM 
Mhu(l) .ManeMho «- Mhe(i«l) .NaaoMho 
Mho fi).KodeMX Mho [i*l ].IPX . 


Algoritma untuk mengisi larik Mho adalah seperti di bawah ini: 

procedure aecaDataMohoolowe( input n i integer , output Mho i TebMhe) 
7 Membaca data mahaalava (HIM. nama, IPX). 

( K.Awal i n barial Jumlah data mahaalawa) 

( K.Akhlr t Hha boriai data haail pa at ba oaan ) 

DKKLARASI . . 

1 i integer f poncatat indoka larik ) 


ALGORITMAi 

for i*-l to N do 

l(Mhatl) .nim) 
i(Mho[i]. 
read(Mho|ij.XPK) 
endfor 

Algoritma 12.32 Membaca data n orang 


. NIM. IPK). 


Selain bertipe terstruktur, elemen larik juga dapat bertipe larik lain. Contoh 
berikut menyajikan struktur tipe bentukan yang cukup kompleks. Misalkan kita 
ingin mengolah data nilai semua mata kuliah yang diambil setiap mahasiswa di 
semester genap. Asumsikan setiap mahasiswa mengambil 4 buah mata kuliah 
yang berbeda. Setiap elemen larik berisi data sebagai berikut: 

1. NIM (Nomor Induk mahasiswa) 

2. NamaMhs (nama mahasiswa) 

3. Mata kuliah ( MK ) yang diambil mahasiswa tersebut (4 buah), berupa 
larik: 

a. Kode mata kuliah ke-i 
Nama mata kuliah ke-i 
Nilai mata kuliah ke-i 


mn 
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b. Kode mata kuliah ke-2 
Nama mata kuliah ke-2 
Nilai mata kuliah ke-2 

c. Kode mata kuliah ke-3 
Nama mata kuliah ke-3 
Nilai mata kuliah ke-3 

d. Kode mata kuliah ke-4 
Nama mata kuliah ke-4 
Nilai mata kuliah ke-4 

Struktur larik yang menyimpan keseluruhan data tersebut dideklarasikan di 

bawah ini. Nama larik adalah Mhs 2 . 

DEKLARASI 

const llrr.Akn - 100 

typo MntuKuliah : record <KodcMK i ■trying, { kode iutd kuliah ) 

Nilai i char { indeke nilai 1 A/B/C/D/E)) 

> 

type Mahaaitiwii : record <NIM : Integer. { Ncnar I mink Nahaeiawa I 

NamaMhn ; otrir.y. ( name mahaniowa ) 

MK 1 array 11..<1 of MataKuliah 

» 

type TabMhn : array |1..Nmakol of Mahaolova 
Mha 2 « TabMhn” 

Algorltma 12.33 Daklorosi lank Mhs2 yang otomonnya borUpalartk._ 


Cam mcngacu elemcn Mha2: 


Mhn2(2j 

Mh02(2].NIM 

Mho2(2]. MK|3).KodcMK 

Mho212].MK1I1 .Nilai 


{ elcmon kodua dorl larik Mha2 ) 
j mengacu field NIM dari olemon kodua larik } 

( nongneu field KodeMK ketiga dari olomen kodua 
larik Hhn2 ) 

{ raengacu flold Nilai ketiga dari elumcn keduo 
larik Mhe2 | 


Contoh algoritma untuk mengisi larik Kho2: 

pr oced ure BacnPataMuhasiowaIinput n i Integer, output Kho2 1 TabMhn) 

I Membaca data nuih.tniova IISIN. Mai, darter mata kuliah. nilai tiap 
mata kuliah f 

( K.Awal : n borlal jumlah data mahaoiawa / 

( K.Akhl r 1 Hho2 berial data haall pembacaan } 

DEKLARASI 

i,j 1 lntogor { pencatat mdeka larik ) 

ALGORXTMAi 

for i •- 1 to n do 

read(Mh>2II].NIM) 
road (Mh»2 ti] .NaraaMha) 

tor j *- l to 4 do 
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read (Mhs2[i]-MKljJ.KodeXK) 
read (Mhs2 UI .MK(j] .Nilai) 
endfor 
endtor 

Algoritma 12.34 Membaca data n orang mahasiswa (nama. NIM. daftar mata kuliah. nilal 
setiap mata kuliah)._ _ __ 


12.6 Bekerja dengan Dua Buah Larik 

Dua buah larik atau lebih dapat diopcrasikan sekaligus. Perhatikan contoh 
berikut ini: misalkan nilai ujian n orang mahasiswa tclah disimpan di dalain 
larik NilUjian. Kita akan mcnghitung nilai indcks ( [A/B/C/D/E) mahasiswa 
tcrstibut dan menyimpan nilai indcks tcrscbut di dalain larik Imlcks. Indcks 
nilai ujian ditentukan sebagai berikut: 

NilUjianlk) H 80 . indeka nilai • A 

70 i NllUjUnlk) < 80 , Indeka nilai - fl 

55 i NilUjian (/cl < 70 , lndeko nilai • C 

45 S Ni 1UJ ian[k] « 55 , indeka nilai • D 

NilUjianlk I « 45 , Indeka nilai - If 


Deklarasi data: 

DBKLARASl 

connt Mmako - 200 / jumlah m.ikai»uia el amen larik ) 

typo LorlkUjian i array tl-.Hnake) of real 
typo Larlklndeke i array |l..Nmake) of char 

Algoritma 12.35 Daklarasi lartk mlat ujian. 


Proscdur untuk menghitung nilai indcks sebagai berikut: 

proced ure 111 tunglndeknNllai(input NilUjian i LarikUjian, 

input n i integ er, 

output lndeko t LarikIndeka ) 

/ Menghitung indeka nilai ujian n orang mahaaiewa. ) 
l K.Awal: n audah bariai jumlah mahaaiawa; 

elemen larik NilUjlanll.,nj audah terdefinial harganya. ) 
( K.Akhirt larik Zndekafl..nj boriai nilai Indeka ujian. ) 

DEKLARASI 

i i integer ( indeka larik ) 

DESKRIPSIi 

for k *- 1 to n do 

if MllUjiantlJ * 80 Chen 
lndeko 111 *-*A* 
else 

if (NilUjian[1] i 70) and (NilUjianti) « 80) the n 
~ Indeka(i) 4-'B' 
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else 

if (NilaUjianfi1 * 55) and (NilUjiantil < 70) then 
Indeks 
else 

if (NilUjiantil i 45) and (NilUjiantil < 55) then 
Indeka ti|«-'D* 
else 

Indeks.tiJ «-* E‘ 
end if 
endif 
ondif 
endif 
endfo r 

Algorltmo 12.36 Menghilung indeks nJa« ujian 


Selnnjutnya, kiln ingin mcncetak tal>cl yang mcnampilkan nilai ujian bescrta 
indekanya seperti contoh berikut: 


i 

Nilai ujian 

Indeks Nilai 

1 

76 

R 

a 

• 

87 

A 

• 

n 

35 

E 


Algoritina pencctakan tabcl di atas adalah seperti di bawah ini: 

procedure CetakMilal(input NllUjian : LarikUJian, 

input Indeko : Lariklndeka. 
input n i integer ) 

( Moncetak tabel yang berisi nilai ujian dan indek nilainya. Nomor 
poaerta ujian oeouai dang an nomor indeks lank. ) 

{ K.Awal: NilUj ian [1 . .n] dan Indeka [I ..nj audah t erdetinloi elomen- 
elemennya. ) 

{ K.Akhin nilai ujian dan nilai indekanya tercetakn. ) 

DEKLARASI 

1 : integer ( indeka larik I 

ALGORIIMA: 

{ ceCak header tabel } 

writer.') 

writer i Nilai ujian Indeka ’) 

writer.*) 

{ cetak nilai ujian dan Indeka nahasieua ke-i } 
for i *- 1 to N do 

- write ( i, ' *. NilUjiantil. * Indeks[i]) 

endfor 
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{ cetak garta penutup tabol ) 

write ( ’-• ... 

Algoritma 12.37 Mancatefc tab* ntl ufran dan Indefc Nlatnya._ 

12.7 Translasi Notasi Algoritmik Larik ke dalam 
Notasi Bahasa Pascal dan Bahasa C 

Setiap bahasa pemrograman berbeda-beda dalam menyatakan awal indeks 
larik. Bahasa C memulai indeks dan o, sedangkan dalam bahasa Pascal awal 
indeks dapat didefinisikan oleh pemrogram (boleh dimulai dan l , o, atau 
bahkan negatiO. 

Di bawah ini diberikan cara mentranslasi larik dalam notasi algoritmik 
menjadi notasi larik dalam bahasa Pascal dan bahasa C. 

ALGORITMIK 

DBKLARASI 

NamaLarlk i array (1 . .JunlahEleiten) of TlpaBloman 

Cara mengacu elemen larik: NamaLarik[indeks) 


PASCAL 

(• DBKLARASI •) 

VOX 

N tuna Larik i array U.. Junlahllamon) of TipaElavan; 

Cara mengacu elemen larik: NamaLarik[indeks) 


C 

/• DBKLARASI •/ 

typadaf TlpeElomon HamaLarlklJumlahSlaiMn * 1) 

Cara mengacu elemen larik: NamaLarik[indeks) 

Catalan: 

Indeks larik dalam bahasa C dimulai dan o. Algoritma-algoritma larik yang 
kita tulis di dalam bab ini memulai indeks dari i. Jadi, tanpa mengubah 
algoritma, maka JumlahElemen pada bahasa C kita tambah dcngan l, 
sehingga kita tetap dapat mengindeks dari i sampai JumlahElemen. Elemen 
ke-o boleh tidak kita gunakan. 
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Contoh-contoh Trans Iasi: 


l. Mcndeldnrasikun larik 


ALGORITMIK 


a. Sebagai pcubah 

DEKLARASI 

A * ■<g«iy ll..lOOi of lnteqm 

NamaMho : At ra y {l. .Ill of string 
HllUji.in i array fo..74) of xoal 

Cara mengacu clcmen larik: 

AUI / magacu alarm kaao par darl larik A ) 

H<i&aMho(2l { nangacu aleamn kadua dari larik NamaMhu ) 

AUI { aengacu eleaan ka-i dari larik A. aaalkan 

nilai i oudah tardefiniai ) 

Hi1UJlanl1*1| i aaalkan niiai 1 audah c ardetiniai / 


b. Sebagai tipo bentukan 

DEKLARASI 

typo l-»r Ik Ini i n rj«y 11. . lou) of I nama tip* baru ) 

A i Liiriklnt I A adalah aabuah larik intagai dongan 100 alamnn ) 

C. Mendeklarasikan ukuran larik sebagai sebuah konstantn 

DEKLARASI 

const Nmako - 100 ( ukuran makaimun larik ) 

typo LarikXnt i array!!, .ibuml oi intone ; 

A i LarikXnt ( A adalah aabuah larik intagar dengan 100 alaman ) 

d. Larik beriipe terstruktur 

DEKIARASI 

connt Nnuika • 100 

typo Mabaoiuwa : cocot n <NIM ; lntegut , / Ncmor Induk Mahaoluwa ) 

HaaaMha i fltrln q, { nama uwi haaiuwa ) 

IPK : roai { 0.00 aampal 4.00 } 


typo TabMha t array 11..toaxal of Mahan1 3*4 
Mho i TabMhfl 


PASCAL 

a. Sebagai peubah 

(• DEKLARASI •) 
var 

A : array (1..100) of integer ; 
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NoauMha : array(1.. 121 of string[2S); { panjang string - 25 

karakter ) 

f.'ilUjian : array(0..74] of raal ; 


Cara mengacu elcmen larik: 

A(4) ( negacu elenen kaampat dari larik A ) 

fi.irr.iKhn [2| ( mengacu eleven kedua dari lank liamaHha ) 

All) { mengacu elemer. ke-1 dan larik A. aoalkan 

nilai 1 sudah c erdetiniai ) 

NilUlinnll*ll ( aoalkan nllax 1 sudah terdetiniai f 

b. Scbagai tipc bentukan 

(• DKKLMASl •) 

typa Urlklnt arrayl*. . 100 ) of lntagar ; { nama tip* baru / 

var A t Urlklnt l ( A adalah aebuah larik integer dengan 100 elemen ) 

c. Mcndeklarnsikan ukuran larik scbagai scbuah konstanta 

(• DBKIAMS1 •) 

conat limaku • lOOj { ukuran tc.%kain\m larik ) 
typa Urlklnt - array (1. .KTwika) of lntagar ; 

var A i Urlklnt i( A adalah aebuah larik integer dengan 100 elemn ) 

d. Lirik bertipe terstruktur 

< • DBKLMABI •) 
conat Nmoko • 100 ; 

typo Hahaglaw* - rococd 

HIM l lntagar; 

NairnHhn r otrlng; 

1 PK i raal; 

and; 

TabMho • array(l..Unaks! of Mahaainwa; 
var Mhn « TubMhGj 


I Nomor Induk Mahnnlnwa ) 
{ nama m ahaoiawa ) 

( 0.00 aampai 4.00 } 


c 


a. Sebngai peubah 

/• DBKLARASI */ 
lnt AllOl); 

char :idrr.iMhs|m f 25 J; /• panjaog string - 25 karakter •/ 

float UilUjiar.1751; 


Pcnjclusan: 

i. int Alioi), beratidemen-elemen larik AadalahAlO],A(i) ,a!2J , 

A11oo) . Jika indoles larik dimulai dari 1 sampai too, maka demon A [o] 
tidak digunakan. 
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2. char NamaMhs 113 [25 J, berati larik NamaKhs terdiri alas 13 buah 
elemcn, setiap elemen bertipe string yang panjangnya 25 karakter. 
Elemcn larik tersebut adalah Nur.jMhs |0J ,NamaMhs (l) , NamaMhs [2] , 
.... NamaMhs [12] . 

3. indeks larik dalam bahasa C sola In bertipe integer. 

Cara mengacu elemen larik: 

AMI /• megacu elemen keen-pet dari larik A •/ 

tlamaMhaUJ /• mcngacu elemen kedua darl larik NamaMha •/ 

AliJ /• mengacu elemen ke-i dari larik A. aoalkan 

nilai l audah terdefinioi •/ 

Hi ilijian !t • 11 /• aaalkan nilai i audah terdefiniai •/ 

b. Sebagai tipebentukan 

/• DRKIAHASl •/ 

typodof int UrlklntllOl); 

LarlkXnl A; /• A adalah nebuah larik integer dengan 100 elemen */ 

Kitajuga dapat membuat sebuah tipe yang bernama string. Misalkan 
didefinisikan sebuah tipe string yang panjangnya 25 karakter. 

/• DBKLAPASI*/ 
typodof char ftrlng(2Sjr 

Maka, kita dapat mendeklarasikan larik MamaKhs pada bagian a di atas 
yang bertipe String sebngai berikut: 

/• DBKIARAS1*/ 
typodof char Sirlr«fl (21) | 

String HnmaHhfllll); 

c. Mendeklarasikan ukuran larik sobagai sebuah konstanta 

/• DRKIARAS1 •/ 

conat int Nit-iks 100; /• uAuran makaimum larik •/ 

typodof Int l^ar iklnt (Nr-ik * 1 |; 

Lnilklni A; /• A adal.ih aebuah larik Integer dengan 100 elemen •/ 

d. Lirik bertipe terstruktur 


/• DRK1JIRASI •/ 




connt int llnaks - 

100 ; 



typodof struct { 

int HIM; 


Honor Induk Hahaaiawa •/ 


char Uan-iMhuUSl; 

/* 

nana mahaaiawa •/ 


float IPK; 

/• 

0.00 aaopai 4.00 •/ 

1 

Kahayiswa; 



typodof Mdhosi&va 
TahMha Mha; 

TabKhoUtejkB'Il ; 
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2. I-arik sebagai parameter prosedur/fungsi 
ALGORKTMIK 

(a) Lnrik sebagai parameter masukan 

procedure otaktar Ik (input A s Lariklnt. input n i Integer ) 

{ Mvncetak eleman-elemcn larlk A[l..nJ. ) 

Cara pemanggilan: cetakiar lk (a. n) 

Punvarupa prosedur di atas ekivalen dengan penulisan sebagai berikut: 

procedure CetnkD«riV: (input At.tr ray \l .. 1001 of integer.input n i 
integer) 

( Mencetak elemon-alecen larlk A[l..nl . i 

(b) Larik sebagai parameter keluaran 

p rocedure Baca Larlk ( output A i U«r Iklnt, Input, n « lni nqur ) 

/ Menglal elemen-olemen larlk All..nl dengan pnmbncaan. ) 

Cara pcmanggilan: n«cei .r i. (a. n) 

(c) l-»rik sebagai parameter masukan/keluaran 

procedure UtutLarIk (input /output A t tariklnt. input n : integer) 

l Mcng'jrut (aort) eleaen-elenen larlk All..nj aehlngga terauaun 
menalk .j 

Cara pcmanggilan: urueurik( a. n) 


PASCAL 

(a) Ijirik sebagai parameter masukan 

procedure CetakUrlk(A Lariklnt.* n i Integer); 
[ Mencetak elemen-oleven larlk All.,aJ. ) 


Cara pemanggilan: cotakur ik (A. n) 

Punvarupa prosedur di atas ekivalen dengan penulisan sebagai berikut: 

proccdur- CctakLarlk(A : array[ 1..100] of integor; n : integer); 

( Mencetak elerwn-elemen larlk Afl..nJ } 

(b) Larik sebagai parameter keluaran 

procedure BacaLar ik'var A : Lariklnt; n : integer); 

{ Mengiat elemen-eleeen lank A[l..n! dengan pembacaan. } 

Cara pemanggilan: BacaLarik(A.n) 
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(c) Larik sebagai parameter masukan/keluaran 

procedure UrutLarik (var A r LarikInt; n : integer); 

( Meng urut (sort) eleaen-elemen larik A[l..n] sehingga tersusun 
tnenaik.) 

Cara pemanggilan: urutLar i*<A.n) 


C 

(a) Larik sebagai parameter masukan 

void CetakLar ik(L<tr iklnt A. int n> 

/• Nencetak aleman-elemen larik A[l..nJ. */ 

Cara pemanggilan: c«t«kLar ik(A.n) 

Purwarupa prosedur di atas ekivalen dengan penulisan sebagai berikut: 

void CotakLarik<lnt AllOOl. int nl 

/• Mencetak olemcn-olemon larik A •/ 


atau ekivnlen dengan: 

void CotakLaxiktint AM. int n) /• ukuran J a rile A boleh cid ak perlu 
knrena di- set di program utana •/ 

/• MoncoL.ik elenen• elwon larik A|l..n|. •/ 

atau ekivalen dengan: 

void Ctttakl^ir Ik (Int -A. int n) 

/• Moncatak o lemon-ml omon lank All..n], •/ 

Cat a tan: 

Larik di dalam bahasa Cadalah pointer, sehingga dapat ditulis lot m 
scga. 


(b) Larik sebagai parameter kcluaran 

void I3.ical.ur ik IL*»t lklnt A, int n) i 

/• Mongini elemen-elemen larik Afl..O] dongan pembacaan. •/ 

Cara pemanggilan: tuc«ur ik< a. n) 

Cutatan: 

Karena larik di dalam bahasa Cadalah pointer, maka tidak diperlukan 
karakter di awal noma parameter tersebut. 

(c) Larik sebagai parameter inasukan/keluaran 

void UrutLarik(LarikZnt A. int n) 

/•Mengurvt (sort) elemen- oilmen larik A(l..nl oohingga tersuaun 
manaik.-/ 
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Cara pemanggilan: urutLarik :a. n) 


Catalan: 

Kareno larikdi dalam bahasa Cadalah pointer, maka tidak dipcrliikan 
karakter di awal nama parameter tersebut. 


3. Contoh-contoh translasi nlgoritma 
AI.GORITMIK 

Prosedur BacaLarik: 

procedure BacaLar Ik ( output A 1 Larlklnt. input n 1 lnt imjq i > 

{ Mengial elemen-clemon larlk Afl..nJ dengan pembacaan. ~) 

( JC. Aval : n adalah ufcuran efektlf larlk. nllalnya terdetlnlai . )r 
I K.Akhir: ootelah pembacaan, ooluruh elemen larlk A berlal nilai- 
nl l/i j yang dibaca darl pi rand maeuAen. f 

DEKLARASI 

1 t integer ( pencatat lndeka larlk / 

algor: rwA: 

for l*-l to n do 

road tATin 

and for 


Prosedur CctnkI -arik: 

procodur o CotakLarIklinput A 1 Larlklnt, input n 1 ihteflet ) 

( Moncetak elemen-elemen larlk All..a). ) 

( K.Await n nudah berlal jualah elemen larlk yang dlpakal. Women- 
olemen larlk A oudah terdefIntel.J 
( K.Akhlrt elemen-elemen larlk A tercotak. I 

DEKLARASI 

i 1 intoq oi ( pencatat lndeka larlk } 

ALGORITHAI 

for i*-l to N do 
wrlto(Alll) 
ondfor 


Prosedur HitungRataRata: 

Procedure HitungRataRata(input A 1 Lariklnt. input n 1 intogor . 

output u 1 real ) 

I Nenghitur.g nilai rata-rata lari* A{l..nJ. ) 

{ K.Await elemen-elemen larlk A nudah t erdaiinlal; n adalah jumlah 
demon larlk. nilainya oudah terdeflnlai. ) 

{ K.Akhir: u berloi nllal rata - rata oeluruh el omen. } 

DEKLARASI 

i : integer {lndeka lari* ) 

jumlah s real (jualah total aeluruh nilai } 
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ALGORITMA: 

i «— 1 { dimulai dari elemen pertama ) 

jumlah ♦- 0 { Jumlah total nllai mula-mula ) 

tot i«-l co a do 

jumlah ♦- jumlah • A[iJ 
endfor 

u «- jumlah/N 


Program utama: 

PROGRAM Rorata 

f Program utama uncu/c membaca elcmcn-demon larlk, mencetak elemen- 
eleemn larlk, dan monghitung nllai rata-ratanya ) 


DEKLARASI 

const ftaaks • 100 ( ukuran makeimum } 

typo Lariklnt i array tl..fteakcl of lntogot 


A i Lariklnt 
l i Integer 
n i Integer 
u « real 


f indekn larlk ) 

l banyaknya demon larlk yang dlpakal, n S Mnakfl ) 
( nllai rata-rata aeluruh demon larlk / 


proceduro BacnLarlk( output A s Lariklnt. input n : lntoqo i) 

( Mongiai elemen-demen larlk A dengan pembacaan. ) 

procedure CetakLatlk( input A i Lariklnt, Input n 

{ Mencetak elemon-elemen lank A. ) 


p rocedure HltungRataRata( input A r Lariklnt. input n 

output u i real) 

{ Monghitung nllai rata-rata elenen larlk A. } 

ALGORITMA: 

road(n) 

BacaLarlk(A.n) 

CotakLarik(A.n) 

IlitungRataHata (A. n, u) 
writo(u) 




{ tentukan Jumlah elemen larlk, n S Nmako I 


PASCAL 

PROGRAM Herata; 

l Program utama untuk membaca elemen-elemen larlk. mencetak elemen- 
elemen larlk. dan monghitung nllai rata-ratanya ) 

(• DEKLARASI •) 
const 

Ntnako - 100 { f banyaknya elemen larlk ) 
type 

Lariklnt • array| l . .KmaknJ ot integer j 

var 

A i Lariklnt* 

1 I Integer; / indeka larlk ) 

n s integer; { banyaknya elemen larlk yang dlpakal. n <• Nmako ) 

u i real j / nllai rata-rata seluruh elemen larlk ) 
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procedure BacaLarIk(var A : Lnrlklr.t; n i integer ; 

( Menglol elemon-demen larik All..at dengan pembacaan. ) 

{ K. Await n adalah ukuran efektif larik. nilalnya cor delinioi. } 

( K.Akhiri oetelah pembacaan. oeluruh elemen lank A b erial nllai- 
nil*i yang dibaca dar i pirantl maoukan. ) 

(• DFKLARAS1 *) 

vor 

i i integer. ( pencatat mdeke larik ) 

jawab t char; 

i- ALGOR1TMA: •) 

begin 

for : :- 1 to n do 
bogin 

writet'Kasukkan nilai raadln(A(i)); 

and; 

and; 

procadura cotnkl-u ik {A : l.iriklnt; n i intagar) ; 

{ Moncetak olomen-el omen larik All..n], ) 

I K.Await n oudah borlal jumlah demon larik yang dipakai. Elemen- 
demon larik A oudah c erdetinloi.J 
I K.Akltlrt demon-elemen larik A tercetak. ) 

f DBKVUIASI •) 

v»r 

1 Intagar; ( pencatat indeko larik ) 

(• ALGCR1THA: •) 

bogin 

for i :• 1 to N do 
writalnCAlM,‘I- \A(il)| 

Iendfor} 
end; 

procadura HitunQltataRat.i (A iLariklnt; n : intagar; var u : reel); 

{ Nonghltung nllal rata-rata elemon larik A. ) 

I K.Await elemnn-elemen larik A alldah to rdetlninlj n adalah Jumlah 
olomen larik, nilainya oudah toidofinlai. ) 

{ K.Akhiri u bcrlnl nllal rat.i-rata aeluruh eletnen larik. I 

(• DRKlARASI •) 
var 

1 i intogor; {Indeko larik ) 

jumlah : roal; (Jumlah total oeluruh nllal f 

C ALOORITXA: •) 

bogin 

i I- 1; { dltaulal darl elemen pertama f 

jumlah :• 0; ( Jumlah total nllal mula~OUla | 

for i i- 1 to N do 

Jumlah t- jumlnh • A(iJ; 
iendfor) 
ui-Jumloh/N; 
and; 

C PROGRAM VTAMA: •) 

bogin 
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vrltsln ('Baca jundah data (n) : rsadln(n); 

wrltalnCBaca datai'M 
BacaLarlMA.n) 

vrltsln< * Co Ink data:'); 

CotakLarik(A.n) ; 

writalnCHitunq rata- rata:*); 

Hir.ungRataRnta(A,n.u) ; 

vrltsln (* Rata•rata data • \ u:10:6); 


C 

/• PROGRAM floratd */ 

/• Program utama untuk ®o«baca olemen-eleaen larik. moncecak ©lonen* 
eiemen Jarik, dan mengbieung niial raca-racanya •/ 

/• Deklaraal proaed ur yang dlgunakan •/ 

alncludo <ntd!o.h' 

const lnt Nx-akn - 100 ; /• ukuran makaimum larik •/ 

typsdof lot \j%t lk:nt In- >> •• i] i 

void D«col.ar IMUriklnt A. lot n); 

/• Nenglai elomen-elenen lari* MI..11J dongan pembacaan. */ 

void TulioLor lk (Lar Iklnt A. lnt n); 

/• Mencetak eiemen-eiemen larik A[l..n].‘/ 

void HltungRataKntA U-ir Jklnt A. lnt n. float *uj ; 

/• Menghitung ntlai raca-rata eeluruh eiemen larik A. */ 


/• PROGRAM UTANA •/ 

/• DE KURA SI •/ 

Lariklnt A; 

lnt k; /• indeka larik •/ 

lnt n; /• banyaknya aJemon larik yang dlpakat •/ 

float u; /• nilal rata-rat a •/ 

/• ALcOKllMAi •/ 

prlntf ("Baca Jumiuh data (»>1 "); ocanfCId-. In); 

printf ("Hocn data: \n")i 
SacaLarik(A.n); 

prlntf{-Cetnk data: Nn“); 

CetakLarikIA,n); 

prlntf i-Hi rung ra'.« lata: \n“); 

HitungRataRata <A.n.fcul 

prlntf(-Rata-rata data - If 10:6 \n-. a); 

) 
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void BucaLa:ik(Lariklnt A. iat n. 

/• Hengiai clcmcn-clexcn larik A(l..nj dcr.gan pembacaan •/ 

/• K.Atril: n adalah uAuran eCekti! larik, n llainya ecrdeCiniel. •/ 
/* K.Akhir: aetelah pembacaan, aeluruh eleven larik A berisi nilai- 
nilai yang dibaca dari piranti maoukan. •/ 

| 

/• DEKLARASI •/ 

int 1; /• pencatat lndeks lank •/ 

/• ALGOfUTWA: •/ 

for (1-0; U-n; 1 **) 

prlatf("Hanukkan nilai Alld) : •, 1 ); acanf("lci-, *A(i|); 

I 


void CotakLnciMLnriklnt A. int n) 

/• Moncetak elemen-elemen larik A [l..n]. •/ 

/• A. Aval i n audah berial jumlah demon larik yang dipakai. Eloman- 
ol onion larik A audah terdefiniei. •/ 

/• K.Akhirt olemen-elemen lank A tercetak. •/ 

I 

/• DKKtARASt •/ 

Int 1/ /• poncut.u induk* 1 •«r ik •/ 

/• ALQORITHA: •/ 

lor (1*1; 1 <*n; !•*) 

prlntf("A|tdl • Id", 1, A[l)I; 

/•andtor*/ 


void HltUngKatalUlta(Lariklnt A. int n. float »u) 

/• Menghicung nilai raca-raca aeluruh demon lank A. •/ 

/• K.Awah elemen-elemen larik A audah Co rdofinlai; n adalah Jumlah 
demon larik, nilainya audah C erdeCimei. •/ 

/• K.Akhir : u berial nilai rata • rata aeluruh el oaten. •/ 


/• DEKLARASI •/ 

Int 1 / /• lndeks larik •/ 

float Jumlah; /• Jumlah total aeluruh nilai •/ 

/• ALGOR1TNA: •/ 

1-1; /• dimulai dari eleven pertama •/ 

Jumlah - 0; /• Jumlah total nilai mulo-mula •/ 

for (1-1; 1<- n; i»*) 

Jumlah - jumlah • A[i) ; 

/•endCor*/ 

•u - jumlah/H; 
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12.8 String sebagai Larik Karakter 

Tipe string sudah kita pelajari ketika racmbicarakan tipc data vang 
diprogram. String pada hakikainya adalah larik karakter dengan panjang 
dinamis, artinya ukuran larik bani ditentukan pada saat program running. 
Karena string adalah larik, maka elemen-elemen string yang berupa 
karakter dapat diakses melalui indeks. Sebagai contoh, jika s adalah peubah 
bertipe string dan s berisi konstanta string berikut 

*lni otx ln<j* 


maka dapat kita katakan bahwa s panjungnya to karakter dan elemen- 
elemennya adalah: 

Bill - ' I ’ 

** 121 • *n* 

uhi • 'i* 

■ 141 - * ’ 

■ hi * ‘a’ 

n[6l - *C’ 
at7J • *t* 

Uhl - T 
uM * 'n* 

• ftOl - V 


IU-p resent as i string liergantung pada baliaKu |M*mrograman yang digunakan. 
I)i dalam bahasa Pascal, peubah bertipe string didcklarasikan dengan nama 
tipe string besertn panjangnya, seperti contoh berikut: 

v«r ft i string [20! / 

Jika panjang string tidak didcklarasikan seperti contoh di bnwah ini, 

vat u i string; 

maka ukuran string dianggap default, yaitu 255 karakter. 

Indeka string di dalam bahitsa Pascal adalah dari o sampai n, yang dalam 
hal ini n adalah panjang string. Karakter pertama dari peubah string (pada 
indeks o) berisi panjang string dinamis; yaitu U-nyth(s) sama dengan 
Ord(s[oJ). Jadi, jika string s didcklarasikan panjangnya 20 karakter, itu 
berarti ukuran larik karakter sebenamva adalah 21 karakter, yang dalam hal 
ini elemen ke-o berisi panjang string tersebut. Catat juga bahwa meskipun 
string s dideklarasikan panjangnya 20, belum tentu seluruh elemennnya 
terpakai (konsep ini sama seperti pada larik umumnya). 

Adapun di dalam bahasa C. peubah bertipe string dideklarasikan dengan 
larik bertipe char beserta panjangnya. seperti contoh l>erikut: 

ch«e 3 1201; 
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Tidak seperti bahasa Pascal yang panjang string disimpan di dalam elcmen ke- 
o, maka di dalam bahasa C, larik karakter diakhiri dcngan karakter mill *\o' 
sehingga program dapat menemukan akhir string. Sebagai conloh, string 

‘ini string* 


disimpan di dalam larik seperti berikut: 


i n I i 


\o 


Sebagaimana larik dalam bahasa C, indeks string adalah dari o sampai 
sampai n, yang dalam hal ini n adalah panjang string. Jadi, jika s adalah 
peubah bertipe string dan s berisi string 'ini string', maka elemen-elemcn 
larik s adalah: 


sIOj • 


sill - 

’n 

8121 • 


»fJ) - 

• 

» HI - 

*8 

■ 151 • 

‘t 

■ 161 - 

'r 

■ 17] - 


0(91 • 

*n 

a\9\ - 

*9 


Hal lain yang harus diperhatikan, ada kcinungkinan string kosong. Di dalam 
bahasa Pascal, string kosong adalah larik karakter yang panjangnya o, 
sedangkan di dalam bahasa C string kosong adalah larik yang panjangnya 0 
dan isinya hanya karakter '\o\ 


Di bawah ini kita akan membahas algoritnui-algoritma untuk memanipulasi 
string di dalam bahasa Pascal dan bahasa C, yang tidak lain adalah 
memanipulasi elemen-elemen larik karakter. Beberapa algoritma manipulasi 
string sudah dijadikan sebagai fungsi/proscdur standar dalam kedua bahasa 
tersebut. 

(a) Menghitung panjang string 

Dibcrikan sebuah strings, tullslah fungsi untuk menghitung panjangnya. 


PASCAL: 

Di atas sudah dijelaskan bahwa karakter |>ertama dari |>eubah String (pnda 
indeks o) berisi panjang string dinamis. .ladi, fungsi untuk menghitung 
panjang string s cukup hanya mengembalikan nilai ordinal dari karakter ke- 
o. OrJ(s[oJ). 

function PanjAny Is : atr tng) i int#gvx; 

( Mongtnballkan panjang string } 

begin 
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Panjang :• ard(s| 0 ])j 
end; 


Cutatan: 

Bahasa Pascal suduh menyediakan fiingsi standard unluk mengembalikan 
panjang string, yaitu Length Algoritma fiingsi Length sama scpcrti 
algorithm fiingsi Panjang ini. 

Contain n Length /s '/ 


C: 

Di atiLS sudah dijelaskan hahwn lank karaktcr diakhiri dengan karaktcr null '\o* 
sohingga program dnpat mcneniukan akhir string. Panjang string dihitung 
dengan mcmindai (scan) demen-clemen larik karaktcr sanipai dilcnmkan 
karaktcr ’\o\ 

lnt Panjuno(char o() > 

/• Mrngamb.il than panjang at ring •/ 

I 

lne ii 

1 - 0 * 

while («|ll l- *\0*} 

1 - 1*1 / 

/• andwhlle •/ 

/• otll - •\0' •/ 

return if 

I 


Catalan: 

Bahasa C sudah incnycdiakun fungsi standard untuk mengembalikan 
parjang string, yaitu atrlen. Fiingsi ini didefinisikan di dulum file header 
<8tring.h>. 

Contoh: n » strlen(s); 


(b) Mcnyalin (copy) string 

Dibcrikan sebuah string si, salin si kc string S2. Algoritma mcnyalin 
string sama seperti menyalin larik kc larik lain (lihat 12.4.10). 


PASCAL: 

procadur* Sal inStrinaisl : ntring; vat ; »tring., 

{ Menyalin tcopy) string si. eenghaallkan string s2 ) 
K.Awal: ol sudah cerdefinlst 
K.Akhir: s 2 adalah salinon si 

} 

var 
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i t integer: 
begin 

for i l to Length(si) do 
82(1) :• sUUl 

(endfor} 

end; 


Cntatan: 

Di dalam bahasa Pascal, iwnyalinan string si menghasilkan S2 juga daput 
dilakukan secara langsung dengan assignment: 

Contoh: a2i-ni; 


C: 

void Sflllnfltx inglcher all). char nH]\ 

/• Meny.tHn (copy) erring el, taanghaaxlkan atring a 2 f 
K.Awal: al width trrdefinlai 
K.Akhin a2 ed.iJ.ih u.tliiun al. teivuiauk '\0‘ 

•/ 

t 

int it 

i - 0 ; 

while (nl( 1 ) I- 'No') 

I 

82 UI - llfil; 

1 - i • ll 
I 

/• andwhllo•/ 

/• alii) - *\0* •/ 

82 111 ‘NO’; /‘atring haul! copy harua diakhlri dengan karafccer null*/ 

I 


Catalan: 

1. Fungsi di atas tiduk menggunakan fungsi ecri en atau Pan Jang supaya 
tidak memindai (scan) atau menelusuri lank yang sanui dua kali. 

2. Bahasa Csudah menyediakan fungsi standard untuk menyalin string, 
yaitu strepy. Fungsi ini didefinisikun di dalam file header <atring.h>. 

Conloh: strep (t. a) ; /• copy s ke t •/ 

(c) Membandingkan dua buah string 

Diberikan dua buah string si dan s2. Bandingkan apnkah kedua string 
tersebut sama. Algorilma membandingkan dua buah string mirip dengan 
membandingkan dua buah lank (lihat 12.4.11). 
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PASCAL: 


function ApakahSarr-i (si, s2 : abring); 

{ true jika si - s2. acau false jlka si <> s2 } 

var 

i s integor; 
saroa : boolean. 

begin 

{ cek panjang string ) 

if Length (si) o Length(a2) then / si dan s 2 tidak sa ma panjangnyn / 
ApakahSama s falee 

elao 

{ panjang si dan s2 uama, cek kcoamaan elemen-elemennya ) 
begin 

i i • 1; 

H.inui: true; ( asutnaikan eementara bahwa el dan s2 same ) 
while (1 t- Length (a 1)) and (soma) do 
if cl 111 • 82(11 than 

l i- i • 1 { tlnjau elemen berikutnya ) 

elao { sltil <> a2l 11 , make dapat dislmpulkan al <> s2 } 
ddcui :« falaa. 

(endif) 

{endwhlle} 

{ 1 * Length(alI or not samal 

ApakahSana i - bud.i; 

and; 

and; 


Catalan: 

Di dalam bahasa Pascal, mendtandinykan string si dan sa juga dapat 
dilakukan secara langsung denyan operator kesamaan: 

if Ml - 111 than 

... i nkal yang dilakukan Jlka al m o 2 ) 


C: 

int Ap'iknhSar.'i(char aid. char a?(J) 

I 1 Jlka al - o2. atau 0 Jlka al <> a2 ) 

•/ 

I 

int i; 

boolean Rama; 

/• cek panjang string •/ 

if (otclon(sl) 1 - ctrlonini)) /• aj dan m 2 tidak sama panjangnyn •/ 

return 0 

elao 

/• panjang al dan s2 aama. cek kesamaan elemen-elemennya •/ 

I 

i - 1; 

nama - true; /• asumolkan sementara bahwa el dan s2 mama •/ 

while (m[i) l- ' \0 * fct naira) 
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if IsiIII -- s2li}> 

i - 1 * It /• ziaja u elemen bcrikutnya •/ 

•Iso /• al [tj i- B2li], traka dapat dJaiwpulkan al t- a2 •/ 

sana - false; 

/•er.dif/ 

/•endvhile*/ 

/• alii - MO' II not saca •/ 

return sass-n 
I 
I 


Catalan: 

1. Funysi ili atas memindai larik duo kali (satu kali pemindaian untuk 
menghitung panjang string dengan funysi strlcn dan satu kali 
pemindaian untuk membandingkan kesamaun clcmcn-clcnwn string). 
Itisakah anda bunt algoritma gang lebih mangkus dengan hanya 
memindai larik satu kali saju? 

2. Iluluisa C sudah menyediakan funysi standard untuk mcmahndingkan 
dua buah string, yaltu stranp. Funysi ini didefmisikan di dulum file 
header <etring.h> . Funysi atremp menyemlxdikan nilai ojika si • s 2 : 
nwngcmbalikan nilai < o jika papjang si < jxmjang sa; nwngembalikan 
nilai > o jika papjang si > /xipjany sa. 

Cnnloh: n ni tcrrp(rl.»2) i 


Soul I.utibun Bub 12 

1. Dihcriknn larik integer A rang lierukuran n elemen. Lnrik A sudah 
terdcflnisi elemen-clemennva. Tullskan prosedur untuk nicncari nilai X di 
dnlam larik. dengan parameter kcluaran adalah indeks dari kcmunculan 
tcrokhir elemen X. Jika A' tidak terdapat di dalain larik. prosedur 
menguluarkan indeks o. 

2. Diherikan larik integer A yang benikuran n elemen. Elcmen-clcmen 
larik A sudah terurut mcnaik (dari keeil ke besar). Tullskan fungsi untuk 
menghitung jangkauan (range) nilai di dalain larik. Jangkauan adalah 
sclisih nilai terbesar dengan nilai tcrkecil. 

3. Diherikan larik integer A yang InTukuran n elemen. Larik A sudah 
terdcflnisi clemen-elemennya. Tuliskan prosedur yang keluarannyu 
adiilah elemen terbesar pertama dan elemen terbesar kedua di dahun 
larik A. 


338 i 


Algor lima dan Pemrograman 


http://www.pakteguh.com 



4. Diberikan larik integer A yang bemkuran n elemen. Larik A sudah 
terdefinisi elemen-elemennya. Tuliskan prosedur untuk menampilkan 
elemen-elemen larik A yang lebih kecil dari elemen terkecilnya. 

5. Diberikan larik integer A dan integer larik B yang masing-masing 
bemkuran N elemen. Larik A dan B sudah terdefinisi elemen-elemennya. 
Tuliskan prosedur untuk mempertukarkan elemen larik A dan elemen B 
pada indeks yang bersesuaian, sedemikian sehingga larik A berisi elemen- 
elemen larik B semula dan larik B berisi elemen-elemen larik A semula. 


6. Diberikan larik karakter A yang bemkuran n elemen. Larik A sudah 
terdefinisi elemen-elemennya. Tuliskan prosedur yang membalikkan 
elemen-elemen larik A sedemikian sehingga elemen terakhir pada larik 
semula menjadi elemen pertama pada larik akhir. 

Contoh: ^ 

sebelum pembalikan: I m | a | r | a | h | 


setelah pembalikan: 



7. Diberikan n buah data statistik yang sudah diisikan ke dalam larik real 
X. Simpangan baku atau standar deviasi dari data statistik tersebut 
didefinisikan dengan mmus berikut: 



yang dalam hal ini, * adalah nilai rata-rata dari selumh data. Tuliskan 
prosedur untuk menghitung simpangan baku. 


8. Diberikan larik integer A yang bemkuran n elemen. Larik A sudah 
terdefinisi elemen-elemennya. Tuliskan prosedur untuk menampilkan 
semua elemen larik yang lebih besar dari jumlah selumh elemen yang 
sebelumnya {previous elements). 


9. Diberikan larik integer A yang bemkuran n elemen. Larik A sudah 
terdefinisi elemen-elemennya. Tuliskan prosedur untuk menampilkan 
elemen-elemen larik A yang lebih kecil dari elemen terkecilnya. 


10. Diberikan larik integer A yang bemkuran n elemen. Larik A sudah 
terdefinisi elemen-elemen yang sudah temmt menaik {ascending 
order). Tuliskan prosedur untuk menghasilkan median dari elemen- 
elemen tersebut (median adalah elemen tengah dari sekumpulan elemen 
yang sudah tersusun temmt). 
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11. Diberikan larik integer A yang berukuran n elemen. Larik A sudah 
terdefinisi elemen-elemennya. Tuliskan prosedur untuk menentukan 
apakah seluruh elemen di dal am larik A tersebut sama. 

12. Diberikan sebuah string s. Tuliskan fiingsi dalam bahasa Pascal dan 
bahasa C untuk menyalin elemen string s dari posisi i sebanyak n 
karakter. Jika i lebih besar dari panjang string, maka string kosong yang 
dihasilkan. String kosong juga dihasilkan jika n lebih besar dari panjang 
string yang tersisa (dihitung dari posisi 0. 

13. Diberikan dua buah string, si dan s2. Tuliskan prosedur dalam bahasa C 
untuk menyambung (concat) si dengan S2. 

14. Diberikan sebuah string s. Tuliskan fiingsi dalam bahasa-bahasa C 
untuk menghilangkan kemunculan semua karakter c dari s. 
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13 


Contoh-contoh 
Pemecahan Masalah II 


Bab 13 ini menyajikan contoh-contoh pemecahan masalah yang mencakup 
materi larik, termasuk di dalamnya prosedur dan fungsi. 



Dalam rangka merayakan ulang tahunnya, sebuah toserba memberi diskon 
sebesar p % untuk seluruh barang. Misalkan data kode barang dan harga jual 
barang tersebut telah diisimpan di dalam larik HargaJual. HargaJual 
bertipe LarikBarang yang deklarasi datanya sebagai berikut: 


DBKLXRASZ 

conet Nmako a 100 
type Barang 1 racord 

<KodeBrg 1 integer, 

HargaBrg 1 real 

> 

type LarikBarang 1 array (l..Nmaka) of Barang 


HargaJual 1 LarikBarang 


Tulislah prosedur untuk menurunkan harga jual barang-barang di toserba 
dengan diskon yangdiberikan. Jumlah item barang ada Nbuah. 


Penyelesaian 

procedure TurunkanHarga( Input / output HargaJual 1 LarikBarang, 

input p 1 real . Input N 1 integer ) 

( Menurunkan harga seluruh barang eebeaar diakon P •• ) 

K.kwalt H adalah Jumlah item barang yang ada dl toaerba/ larik 
HargaJual (1..N) sudah cardafiniai olumen-eJemennya. 

/ K.Akhiri oleman-alaman larik HargaJual barkurong p t dari ovmula ) 

DBKLXKA 81 
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i 1 integer { iadeka larik } 

dlskonHurgu «' reel 

ALGORITMA: 

for i 4- 1 to N do 

dlakonHarga 4- <p/100) •HargaJUal U) 

HargoJual [1) 4- HargaJual [1] • dlakonHarga 
BndCpr __ 

Algoritma 13.1 Mengubah harga Jual bsrang setelah pemberfan diskon. 


flasalah 13 2 


umlah kerr 


Diberikan sebuah larik karakter yang berukuran n elemen. Karakter di 
dalam larik hanya ada dua macam: 'o’ dan 'i\ Buatlah prosedur untuk 
menghitung jumlah kemunculan Y di dalam larik tersebut. 


Penyelesaian 

Untuk menghitung jumlah kemunculan Y di dalam larik, lata haras memeriksa 
setiap elemen larik mulai dari elemen pertama sampai clcmcn ke-n. Jika elemen 
larik sama dengan V, maka pencacah jumlah Y dinaikkan L Misalkan nama larik 
adalah C dan tipenya adalah LarikKar. Deklarasi LarikKar adalah sepeiti di 
bawahini: 

DBXZJUtASl 

conet Hraaka » 100 ( Jual ah olomon larik J 

type LarikKar i array [1..Ntnakal of char 


procedure HltungJunlah 1( Input C i LurikKar, input n i Integer , 

output m i Integer ) 

( Menghitung banyakaya karakter ‘l’ di dalam larik C. } 

{ K.Awal: Rlumen larik Cfi..aJ audah beriti karakter ‘O' dan ) 
( K.Akhirt m beriai banyaknya karakter U' di dalam larik C J 


DBKLARASI 

i • integer 

ALGORITMA: 

® 4- 0 


tor 1 4- 1 to n do 
if C11) - '1* then 


4- m ♦ 1 


and It 
endfor 

Algoritma 13.2 Menghitung Jumlah kemunculan karakter T. 



no me 


Misalkan larik integer A berisi n buah elemen elemen-elemen yang sudah 
terurut menaik/ membesar. Buatlah prosedur untuk menghitung modus. 
Modus adalah elemen yang paling scring muncul di dalam larik. 
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Misalnya, modus dari larik A di bawah ini adalah 6. 


4 I 4 . 1 4—1.5 I 5 I 6 I 6 16 I 6 | 6..J.3..J.a_l 


modus = 6 


Penyelesaian 

Karena larik sudah terurut, maka menentukan modus elemennya relatif 
mudah daripada larik yang tidak temnit. Mula-mula frekuensi modus 
sementara ( FrekModus ) lata inisialisasi dengan o. Selanjutnya elemen pertama 
kita anggap kandidat modus ( KandidatModus) dengan frekuensi kemunculanya 
( FrekKandidatModus ) adalah i. Jika elemen-elemen berikutnya sama dengan 
KandidatModus, maka FrekKandidatModus selalu dinaikkan l. Jika elemen 
berikutnya sudah berbeda, maka modus dari elemen pertama sudah selcsai 
dihitung, selanjutnya kita akan menghitung modus elemen yang barn, namun 
sebelumnya bandingkan dulu FrekKandidatModus dengan FrekModus modus 
sementara; jika FrekKandidatModus lebih besar atau sama dengan 
FrekModus, maka KandidatModus menjadi modus sementara yang baru. 

Prosedumya menentukan modus sebagai berikut: 

procadura HitungHodua( Input A i LarikXnt. Input n i lntogor , 

output Bodua . lntfflir) 

f Menghitung modue deri elemen-elemen lmrlk A. ) 

( K. Await elemen-elemen lerlk A eitdah berlei nllsl Integer yang mudah 
eerurut menalk/membeear/ n adalah ukuran latlk A ) 

( K.Akhir: modue berlei elemen yang paling banyak auncuJ di dalam A } 

DBKLARASI 

i i lntagar ( lndeke lmrlk J 
MaoihSama i bool aan 

FrekModus, KandidatModus, FrakKandldatModue i lntagar 
ALOORZTHA: 

FrekModus ♦- 0 { trekuenei kemuneulmn modue ) 

i *- 1 ( tlnjau kandidat modue mulal dari elemen pertama ) 

"hlla i i N do 

KandidatModua ♦- A(1) ( A(1) dlanggap celon modue ) 

PrekKandidatKodua *- 1 ( trekuenel JcsnuncuJan kandidat modue ) 

i «- U1 { tlnjeu elemen 1*1 ) 

MasihSama f- true 
while (MasihSaaa) and (i S N) do 
if A(i| • KandidatHodua than 

PrekJCandidatKodua «- PrakKandidatKodua ♦ 1 
andif 

1 ♦- i ♦ 1 

endwhile 

f not MaelhSeme or 1 > N ) 
f mutekhlrken data modue eenentara J 
if PrekKandidatHodua i FrekModus than 
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modus *— KandidatModus 
PrekModua *- ProkXandldatKoduo 
endif 

endwhile 

Algorltma 13.3 Menghitung modus dan lartk Integer yang sudah terurul menaik. 


S 


tnloh Masalah 13 4: 


jlan elomen-elemen di dalam larik 


Misalkan larik integer A berisi n buah elemen yang nilai-nilainya berada di 
dalam rentang l sampai m. Elemen-elemen larik A tidak teninit. Buatlah 
prosedur untuk menghitung frekuensi kemunculan setiap elemen. Frekuensi 
kemunculan elemen larik A disimpan di dalam larik coun£A[i..m] sedemikian 
sehingga counM[fl berisi kemunculan nilai i. 


Sebagai contoh, misalkan larik A di bawah ini dicatat frekuensi kemunculan 
elemen-clemennya di dalam larik countA. Nilai counM[i] * 2, artinya jumlah 
kemunculan l ada 2 buah, countA[ 2 ] - 3 artinya jumlah kemunculan 2 ada 3 
buah, counMls] = o karena jumlah kemunculan 5 tidak ada. 

A I 4 la l4 I 3 16 I 3 I 3 la |6 I 3 I 1 I 1 I 


counM | 2 I 3 I 4 [» |o la I 

Pcnyclcsaian 

Kita akan mencacah frekuensi kemunculan setiap elemen di larik A dan 
menyimpannya di dalam larik countA. Mula-mula selumh elemen larik countA 
kita inisialisasi dengan o. Selanjutnya, clemcn-elcmen larik A dikuiyungi lain 
frekuensi kcmunculannya dihitung dengan pemyataan berikut: 

countA(All)) ♦- countA(A(1)] ♦ X 

procedure HltungFroKI Input A i LsrlkXnt, Input n i Integer . 

output countA 1 LarikXnt, input m i i nteger ) 

( Menghitung frekuenol kemunculan elemen-eleman larik A(l..nJ. 

Haailnya dieimpan di dalam larik countAtl..mj ) 

{ K.Await elemen-elemen larik A audah berioi nilai integer yang nilai - 
nilainya terletak dari 1 eampai a ) 
l K.Akhirt countAtl..ml beriei frekuensi kemunculan elemen di dalam 
larik A sedemikian sehingga countAHJ berisi frekuensi kenuncuien 
nlial 1 . ) 

DRKLARASI 

ii integer l lndeks ierik ) 

ALGORXTMAt 

{ Inisialisasi soluruh elemen larik countA dengan 0 I 
for i «- 1 to m do 
countA (1) «- 0 
endfor 
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( hLeung frekvenni kemunculan eloaen larlk A J 
for i«-l to N do 

countA ( [A(iJ) «-countA IA( 1 J) *1 

«n<** or 

Algorllma 134 Monghllung frekuemi kemunculan «lemervelemen dl dalam larik. 


ih 13 5; Menggambar histogram jumlah kemunculan elomen 


Misalkan counL 4 [i..m] sudah berisi jumlah kemunculan nilai-nilai yang 
berada di dalam rentang 1 sampai m sedemikian sehingga countA[i\ berisi 
kemunculan nilai i (larik countA dihasilkan oleh algoritma pada Contoh 
Masalah 13.4)- Buatlah prosedur dalam bahasa Pascal dan bahasa C untuk 
mencetak histogram yang menyatakan jumlah kemunculan nilai-nilai di 
dalam larik. Perhatikan bahwa lebih mudah menggambar histogram secara 
mendatar (menggambar histogram secara vertikal jauh lebih sukar). 

Sebagai contoh, tinjau larik counM dari Contoh Masalah 13.4. Histogram 
yang digambarkan adalah seperti di bawah ini (satu unit dinyatakan dengan 
karakter bintang): 

1 •• 

2 — 

3.... 

4 * 

5 

6 # * 

Penyelesaian 

countA[f] berisi jumlah kemunculan nilai i. Untuk setiap baris i, cetak 
karakter sebanyak nilai counMtfl. 

proevduro CotakHistogram(countA r l.ariklnt; ■ > intagor); 

/ Honggambar hlatogram dari countA IJ . .ml. countAfil bariai Jumlah 
kamunculan nilai 1 . J 

I K.Aval 1 alamen-alaman larik countA audah bar ini nilai intagor; m 
audah bariai ukurun larik countA ) 

( K.Akhir: hiatogram yang menyatakan countAll.,m] tercotak. ) 

l* DEKLARASI •) 
var 

i, j t Intagor; ( indeka larik } 

(* ALGORITMA: •) 

bog in 

for i:«l to m do 
bog In 

writod,* Ml 

for ji -1 to count 111 do 

writo('*M j 

{ondfor) 
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writ®In; { gantl barla bar u f 
and;{for} 

and; 

Algoritma 13.5 Me ngg amb er hlstosram dart lartk ccuntA (1..m). 


Contoh Masalah 13.6: Palindrom 


Diberikan sebuah larik karakter yang bemama Huruf dan bemkuran n 
elemen. yang sudah terdefinisi setiap elemennya (sudah bcrisi karakter). 
Susunan elemen-elemen larik karakter Itu membentuk sebuah 'kata’. Kita 
ingin menentukan apakah kata yang dibentuk oleh rangkaian elemen 
tersebut bersifat palindrom. Sebuah kata bersifat palindrom jika dibaca dari 
kiri atau kanan menghasilkan kata yang sama. TulLskan algoritmanya. 

Contoh: 


nr 

a 1 1 | a | m ) 

palindrom 



on 

» 1 1 1 ■ m 

palindrom 



HE] 

n 1 a 1 1 1 

palindrom 



EE 

u 1. I. 1 « 1 O 

bukan palindrom 


Penyelesaian 

Gagasan algoritma palindrom adalah memindai (scan) elemen larik dari 
arah “1011" dan dari arah "kanan" satu per satu. Bandingkan elemen kiri dan 
elemen kanan, apakah sama. Jika sama, teruskan pembandingan sampai 
pemindaian bertemu di tengah larik. Jika pada pemeriksaan ditemukan 
huruf yang tidak sama, pemeriksaan dihentikan dan dapat disimpulkan kata 
tersebut bukan palindrom. Sebuah kata adalah palindrom jika pada 
pemeriksan sampai bertemu di tengah-tengah, huruf di kiri dan di kanan 
selalu sama. 

Kita menyatakan algoritma palindrom dengan dua versi fungsi sebagai 
berikut, versi pertama tanpa menggunakan peubah boolean, sedangkan versi 
kedua menggunakan peubah boolean: 

(a) Versi 1 (tanpa menggunakan peubah boolean ) 

function Palindrom (input Huruf : LariJcKar. input n 1 integer )-^ boolean 
(Mengemba 11 kan nllal true jika rangkaian huruf di dala m lari A: Huruf 
membentuk kata yang palindrom. atau falae jika tidak palindrom. } 

DBKLARASI 

i 1 integer { indeka penaluauran dari kiri f 

j 1 integer { indeka pemindaian dari kanan ) 

A1X30RITMA: 


w 
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i ♦- 1 

i «“ n 

whil e <i S j) and (Huruf Hj-Huruf Ijl J do 

i «- l * 1 

j j - 1 
endwhile 

I i > j or Huruf Ul*Huruf[jJ } 

If i > j chan (pengujian berhaoll nreJewatJ tengah larik ) 
retu rn true 

elne (i < j. nde huruf kiri yang w huruf kanan ) 
return false 
endif 

Algoritma 13.6 Mengujl palindrom (versl 1) 


(b) Vcrai 2 (dcngnn mcnggunakun pcubali boolean) 

function Pa l indrom ( input Huruf i LarikKar. input n : integ er) -^boolean 
{ Ncngcmbalikan niJal true jika rangkaian huruf di dal am larik Huruf 
mrmbonLuk kata yang pal Indrom. atau f alee Jjk.i tj dak pal indrom. } 

DBKLARA8I 

i : intege r 
j i integer 
pal « boolean 

ALGOR 17 MA: 

i *- 1 
i «- n 
pal *- true 

while |i S j) and Ipal) do 

if Huruf(II a Hiruflj] then 
pal «- faiue 
•loo 

i «- i ♦ 1 
j ^ j -1 
endif 

endwhile 

{ i > j or (not pall } 
return pal 

Algon’ina 13.7 Menguji palindrom (vors. 2) 


( indtkt pomindaian dart kirl J 
{ indeka pamlndatsn dari kanan ) 

( C rut jlka pa!indrom, talae JJka tldak I 


Contoh program yang memanggil fungsi Palinarcm adalah seperti di bawah 
ini. Elemen-elemen larik dibaca lerlebih dahulu dengan memanggil prosedur 

BacaLarikKar. 

PROOBA.M UjiPalindrom 

/ Kemvrikaa apakah aobuah larik karaktrr msmbentuk kata yang pal indrom j 

DEKLARASI 

const frinaks ■ 100 
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type LarlkKar : array [1..Nmaka] of char 


Hurut i LarlkKar 
n i integer 


function Pallndrom< Input Huruf i LorikJUr, 


Input W i integer ) -» booloan 

ai true jlki i rangkalan huruf di dalam larlk 


( Ntwgemballkan nllal true jlka rangkalan 
Huruf membcntuk kata yang pallndrom, atau fa lee Jlka tldok 
pallndrom. ) 

procedure BacaLarlkKar ( output Huruf i LarlkKar. Input n : Integer) 
/ Membaca alemen-eleman larik Huruf. J 


ALGORI7MA: 

read In) ( baca uAuran larlk J 

BacaLarlkKar(Huruf,n) { lal alemen-elaman larlk dangan pombacaan J 

if Pallndrom(Huruf,n) then 
writeC pallndrom') 
elee 

write Cbuken pallndrom*) 

flfiul 

AtQorHma 1M,M .»npu)l pallndrom (ver»J2y 


Contoh Masalah 13.7: Polinom 


Polinom p berderajat n ditulis dalam bentuk 
pix)ma 0 +o,r + d 2 * 2 +~ + a m x" 

Koefisien-koefisien polinom adalah a 0l a .a.. Misalnya, 

p(x) « 2.67 + 3.28* - 6.5r 2 +1 7.Ox * 

adalah polinom berderajat 5, yang dalam hal ini, 
do - 2.67, a, - 3.28, a a - -6.5, a 3 - 0, 
a 4 - o, dan a 5 ■ 17.0. 

Polinom direpresentasikan dengan menyimpan koefisien-koefisiennya di dalam 
lank bertipe real. Jika suatu suku {term) bemilai 0, maka koefisien suku tcrsebut 
diisi o Cpada contoh di atas, 0(3] - o dan a[4] ■ o. Misalkan stmktur data untuk 
polinom adalah sebuah tipe tcrstmktur yang mempunyai dua buah field, yaitu n 
(derajat polinom), dan a (lank yang menyimpan koeftsien-koefisien polinom): 

DOCLARASI 

conot Nnaka a 100 

type Koef Polinom : array [0. .Nmako) of real 
type Polinom 1 record 
< 

n 1 Integer { d arajat polinom I 
a 1 Koef Polinom 

> 

AJgorttma 13.S Deklarasi slruktur data untuk polinom 


wal 
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Operasi terhadap polinom antara lain mengevaluasi polinom untuk nilai x 
tertentu, misalnya (dengan menggunakan contoh polinom di atas): 
p(0) = 2.67 + 3.28(0) -6.5(0) 2 + 17.0(0) 5 = 2.67 


Operasi Iainnya adalah menjumlahkan dua buah polinom, misalnya 
p,(x) m 2.67 + 3 . 28 x - 6 . 5 x 2 + 17 . 0 jt 5 
Pi(x) = 1.03 - 1 . 14 x 2 - 4 . lx 3 

p 3 (*> = Pi(x) + pM = 3.70 + 3 - 28 x - 764^ - 41^ + 170 X 5 

Buatlah prosedur untuk: (i) membaca koefisen-koefisien polinom, (ii) 
mengevaluasi nilai polinom p untuk x yang diberikan, dan (iii) menjumlahkan 
dua buah polinom, yang dalam hal ini polinom pertama berderat n dan 
polinom kedua berderajat m. 

Penyeleaaian 


(i) Membaca koefisien-koefisien polinom 

Prosedur untuk membaca koefisien-koefisien polimom sebagai berikut: 



BacaKoafPolinom( output p 1 Polinom) 
koellalen-koeClalan poliaom berderajat n. ) 

K.Aval/ p.n oudah eardeflnlal dangan darajae poliaom J 
( K.Akhlri ealuruh alaman larlk a bariai koaflaian-koaflalan polinom ) 


DRKLARASI 

i « Integer 


{ pancatae lndaka larlk ) 


ALOORITMAi 

* 2 E i 4 - 0 to p.n do 
read tp.aTi]) 

endfor . .. 

Algoiitma 13.10 Mombeco kooflalon-koeflalon polinom 


(U) Mengevaluasi polinom 

Setelah polinom terdefinisi, kita dapat mengevaluasi nilai polinom untuk 
sembarang nilai x. 

Di dalam Bab 11 kita sudah membuat fungsi untuk menghitung 
perpangkatan. Kita menggunakan fungsi Pangkat untuk menghitung X™. 
Nilai polinom dihitung dengan pemyataan penjumlahan: 

• . i. jumlah ♦- jumlah ♦ p.n(1)‘Pangkat(x.1) 

% 

Pemyataan penjumlahan di atas diulangi mulai dan t ■ o sampai t ■ n. 
Fungsi untuk menghitung perpangkatan x*": 

function Pangkat( Input x 1 real . Input m 1 Integer ) -♦ real 
( mrnqonballkan harga perpangkatan x* ) 
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DEKLARASI 
p : real 
i : integer 

ALGOR1TMA: 

P «“ 1 

for 1 h l to ci do 

P *- P * x 

endfor 
return haoil 

Algorilma 13.11 Fungsi unluk menghilung perpangkalan. *". 


Pungsi untuk mengbitung evnluosi />(.r): 

function poll(input p : Polinom. input x i real)-♦real 
( wcngcmbalikan nilal p(xI ) 

DEKLARASI 

Jumlah i real 

i t intoqe r 

function Pangkat(input x t real, Input m : integer) -» real 
{ mongcmbaUkan harga perpangkatan if* ) 

AI/JOHITKA i 

jumlah «-0 

for i *-0 to n do 

jumlah *- jumlah . p.a[1)‘Pangkat(x.1) 
en dfo r 

return Jumlah 

Algorilma 13.12 Fungsi unluk mongevnluasl poJinom p(x) (vorsi 1) 


Pcrhitungan evaluasi polinom /H*) dapat pula kita lakukan tanpa menggunakan 
fungsi Pangkat. Dcngan mcngainati bahwa cm* ■ (h • x • x • ... • x dihitung 
dcngan i operas! pcrkalian dan mengingat bahwa a w diperoleh dari X • x* • *, nuika 
perpangkatan X dapat dilakukan sckali “jalan" di dalam kalang WR. Dcngan 
demikian, algoritma yang lebih elegan untuk mengevaluasi nilai polinom p(x) 
dapat kita tulis seperti di bawah ini: 

function poll ( input P : Pol moo, input x : real) -• real 
{ mengembnllkan Dllai p(xl ) 

DEKLARASI 

jumlah s real 
i : Integer 

pkt : real / untuk nenyicpan pcrkalian dengan x J 
ALGORITMA: 


350 


gontma dan Pomrograman 


http://www.pakteguh.com 





pkt «- 1 
jumlah ♦- p.a( 0 ] 
for 1 «- I to n do 
pkt ♦- pkt • x 

jumlah ♦- jumlah ♦ p.a{i] • pkt 
endfor 

retur n jumlah 

Algoritma 13.13 Fungsi untuk mongevaluasi polinom p(x) (versi 2) 


(iii) Menjtinilalikan dua huali polinom 

Pcnjumluhan dua buah polinom dilakuknn dcngan mcnjumlalikan koefisien- 
koofisien dari suku-suku yang bersesuaian. Dcrajat poUnom basil 
penjumlohan adalah dcrajat polinom yang tcrtxsar dari polinom-polinom 
operand. Cara penjumlahan dua buah polinom diilustrasikan scbagni bcrikut: 
p,(.v) ■* 2.67 + 3*a*br - 6.5*° + ♦ 170** 

p*(.v) = 1.03 ♦ - I.M** - 4.LT* ♦ 

/>:,(■'") ■ 37‘> ♦ 3-aH.v - 7.64 a' - 4 .L*? ♦ 170 .V* 

Algoritma penjumlahan 2 polinom sebagai bcrikut: 

f rocoduro JumlahPollnomfinput pi. p2 1 polinom. output pJ 1 polinom) 
Monjumlahkan polinom pi dan p 2 . 

f K. Avail p ollnom pi aodah terdefinlaJ derajat dan koeflaian-koarluionyn) 

{ K.Akhiri pi adalah polinom hatll penjumlahan ) 

DRKLARARI 

i 1 Integer 

ALGORITMA1 

{ tentukan derajat polinom p) ) 
if pl.n > p 2 .n then 
pl.n «- pl.n 

elne 

pl.n *- p 2 .n 
•ndl f 

{ Jumlahkan koef. polinom pi dan p2 dari tuku-nuka barderajat aama ) 
i *- 0 

while li S pl.n) and li i p2.nl do 
pj.ajil •- pi.all] • p 2 . a ( 1 ) 

1 *- 1 ♦ 1 
ondwhlle 

f~i > pl.n or 1 > p 2 .n ) 

I rial In oIoa kcwf in it'll dari pi. Jika ada j 
while ti £ pl.n) do 
p3.oli] ♦- pl.ali] 
i *- 1 ♦ 1 
endwhlle 

/ aalin aiaa koofiaien dari p2. Jika ada } 
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while U £ p 2 .n) do 
p3.a[i! *- p3.a(U 

i *- i ♦ 1 

endwhile 

Algorllma 13.14 Monjumlahkan dua buah pofcnom 


Contoh Masalah 13.8: A 


Misalkan hirik integer A berisi n buah elemen yang sudah tcrurut membesar 
(menaik). Tulislab prosedur unluk menyisipkan x kc dnlam larik tersebui 
sehingga larik A tetap temrut menaik. Akibat penyisipan, elemen larik A 
bertambah l (asumsikan bahwa n+ij Nirnks). Scbagai contoh. misalkan 
kila menyisipkan 6 ke dalam larik A di bawah ini. 


Sebelum penyisipan 6: 


n n ♦! 


II 

nuniriMii 

Sctclal i penyisipan 6 : 


n n *i 

A Ll_ .5 1 6 1.7 1 8 1 v ! 

io 

urun .a iiij 


Pcnyeleaaian 

Penyisipan elemen baru ke dalam larik yang sudah temrut mengharuskan 
teijadinya pergeacran elemen. Sebelum menyisipkan x, kita hams niencari 
posisi yang tepat untuk menempatkan x. Jika posisi tenebut sudah ditemukan, 
maka elemen-elemen padn posisi berikutnya digeser satu pualsi ke "kanan". 

p roced ure Simp (input A « Lariklnt. ingut/output n i in teger . 

Input x s integer) 

{ Henyialpkan x ke larik A y«ng audah cerurut mercbejur 

{ K.Awjh elemen-elemen larik A audah rerurut metrlwoar; n audah beriai 
ukuran larik. J 

{ K.Akhir; x audah berada pada posiai yar.g tepac oedemlkian oehingga 
larik A tetap teruruc metrbeoar. Setelah penyioipan. ukuran larik A, 
yaicu n, bertambah 1 aenjadi n * 1 f 

DEKLARASI 

1 « integer ( indeka larik } 

kotemu : boolean 

ALGORITMA: 

{ carl dulu postal untuk x dengan cars nencaukan elemen yang lebih 
besar dari x ) 
keterau •- (aloe 
i *- 1 

while U S nl and (r.ot ketenrj) do 
if x < AliJ then 

ketetBU «- true / poeisi untuk x ditemukan ) 
else 

i ♦- 1.1 
endif 



Atgorilma dan Pomrograman 


http://www.pakteguh.com 




endwhile 

/ i > N or keteau ) 


if ketenru then 

( geaer elemen Afl), A 11*1], .... AfaJ aatu poolal ke kanan ) 
for j «-n downto i do 

endfor 

A[i)«-x { glelpkan x pada poalal ke-1 J 


lemon A ll..nj leblh kecll darl x/ oialpkan x 
A[i»l) ) 


^ ... 

aabagai elei 
A(n+l)*-x 
•ndlf 

n «- n ♦ 1 { uAurun larlk A bertambah 1 ) 

Algor ltma 13.18 Mony4aipfcan ataman baru, x. If da lam larfV yang todah tom rut 


Contoh M.isalah 13 9 Konvcrsi string kc intcgc. 


Misalkan sebuah string telah berisi rangkaian karaktcr angka sehingga 

membentuk sebuah “bilangan Tulislah program dalam bahasa Pascal untuk 
mengonversi rangkaian karakter angka tersebut ke dalam bilangan bulat 
Sebagai contoh, string *3725' dikonversi menjadi integer sebagai berikut: 

(5 x 0 + (2 x 10) + (7 x 100) ♦ (3 x 1000) - 3725 

Penyelesaian 

Kesulitan yang timbul dalam pengonversian string bilangan menjadi nilai 
integer adalah mcnentukan faktor pengali sebuah karakter angka, apakah 
dikali dengan 10 atau dikali dengan 100, dan sebagainya. 

Vcrsi 1: menghitung mulai dari helakang 

Dengan mengingat bahwa string sebenamya adalah larik bertipe karakter, 
maka tahap pengonversian dimulai dari elemen larik terakhir menuju 
elemen pertama. Faktor pengali untuk elemen terakhir adalah 1, dan setiap 
kali pengulangan faktor pengali untuk elemen berikutnya adalah dikalikan 
dengan 10. Sebelum dikalikan dengan faktor pengali, setiap karakter angka 
harus dikonversi terlebih dahulu ke angka integer -nya dengan menggunakan 
fungsi KarKelnt yang sudah ditulis pada Contoh Masalah 11.6. 

proouduio KonversiStrKelnt(■ t otring, vex n i lntogor)» 

( MongkonvcraL bariean karakter angka dl dalam at ring a menjadi nilai 
integer. Varai 1 ) 

( K.Aval 1 a audah beriai beriai bariean karakter angka CO'..'9') ) 

{ K.Akbiri n beriai repreaentaal integer dari atring a ) 

CDBXLAKASI•) 
vex 

1 i lntogori ( indeke alarik J 
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pengali i integer; { faktor pengali } 
function KarKeZnt(x : char):integer; 

{ mengkonverai karakter digit ( , 0 , .. t 9 t ) ke integer ( 0 .. 9 ) ) 

(* ALGORITMA: •) 
begin 

pengali:al; 
nmO; 

for iiBLength(e) downto l do 
begin 

. n »- n ♦ KarKeZnt(s[ij) • pengali; 

pengali pengali • 10 ; 
end; (£or) 

end; 

Algoritma 13.16 Konversi string s menjadl Meyer (were! 1). 


Versi 2: menghitung mulai dari depan 

Tahap pengonvcrsian dimulai dari elemen pcrtama, kedua, dan sctcrusnya. 
Seriap elemen selalu ditambah dengan hasil perkalian 10 dengan scbuah 
nilai konversi sementara (nilai konversi awal - o). Nilai konversi sementara 
selalu dikali dengan 10 dan ditambah dengan elemen string yang sedang 
diacu. setiap karakter angka harus dikonversi terlebih dahulu ke angka 
integer- nya dengan menggunakan fungsi KarKelnt yang sudah ditulis pada 
Contoh Masalah 11.6. Versi 2 ini lebih sederhana daripada versi pertama. 

proooduro KonvorniStrKeZnt(e i string; ver n i integer); 

{ Mengkonverai beriean *ara*ter angka di dslmm at ring a menjadl nilai 
Integer. Vera1 1 f 

( K.Awal, a audah berlal berlai bar loan karakter angka (‘0‘..'9') ) 

I K.Akhlrt n berlal repreaentaal integer dari atring a ) 

(• DEKLARASI •) 
ver 

1 1 integer; ( lndeka alarlk ) 

pengali i integer i { faktor pengali ) 

function KarKeZnt(x i char)iinteger; 

( mengkonverai karakter digit ke Integer (0..9) ) 

(• ALGORITMA: •) 
begin 

n l- 0 ; 

for i 1 - 1 to Length (a) do 

n 1 - 10 • n ♦ KarKelnt(a(i)); 

(endfor) 
end; 


13.17 


Ko oval abtogt menjadl Integer 2). 


Fungsi KarKelnt: 

function KarKeZnt(c i char) i integer; 

{ mengkonverai karakter digit (‘O'..*9') ke integer (0..9) ) 

<• ALGORITMA: •) 

begin 


«n 
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caae c of 


'0' 

i 

KarKelnt 

i 


0; 

*1* 

i 

KarKelnt 

: 


i; 

*2' 

« 

KarKelnt 

s 


2; 

•3* 

i 

KarKelnt 

s 


3; 

•4' 

l 

KarKelnt 

i 


4; 

*5* 

• 

KarKelnt 



5; 

•6* 

t 

KarKelnt 

i 


6; 

•7* 

! 

KarKelnt 

« 


7; 

•8* 

1 

KarKelnt 

t 


8; 

*9* 

1 

KarKelnt 

i 


9; 


•nd, 

•ndj 

Algorltma 13.18 Fungsi konvorsi karakter ko miogor 


Bahasa Pascal dan bahasa C mcnyediakan prosedur standar untuk konvorsi 
string ko roprosontasi numeriknya. ynitu Val, sodangkan di dalani bahasa C 
bcnipa fungsi yaitu atoi. 


Conloh Mnsalah 13.9: M 


111K k .1 


Misalkan sobuab string s lelah borisi ran^k.ii.m karaklor. 'I\ilLslnh prosedur dalani 
bahasa Pascal dan Iwhasa C untuk memtalikkan ausunan karaklor di dalam s. 
Misalnyn jika s Ivrisi string ’sale", maka basil ix-mbalik.ni s adalah string Vlas’. 


Pcnycleaaiun 

PASCAL: 

procedure Balikkanlvar a : atring); 

{ Nombalikkan auaunan karakter di daiam atring a I 
I K. Aw.il i atring a uudah zortlcf iniai. ) 

{ K.Akltlt: uuaunan karakter di daiain a kebalikan dari auaunan aemila. / 

(• DRKLARAti I •) 
var 

i, j j integer; [ indvkm lank ) 
temp : char; 

(• ALGOR1TNA: •/ 
begin 
i :■ 1; 

J :• Length(o) ; /• panjar.g atring a •/ 

while (i <- J) do 
begin 

{ pertukarkan a HI dan atjl ) 
temp :» n til; 

a HI -tjl; 
o 13 3 *• temp; 

i «- 1 ♦ ll 
j 3 - i; 

end; 

end; 

Algorilmn 13.19 Mombalikkan susunan karaklor di dalam strutg (vorsi Pascal) 
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C: 

void Balikkan(ch*r •[]) 

/• Mentalikkan Bueunaa karakter dl dalan atrlng a */ 

/• K.Awal: atring a audab terdeflniai. •/ 

/* K.Akhirt auaunan karakter dl dalam a kataIlk an darl auaunan aamila. •/ 

{ 

/• DEKLARASI */ 

lnt 1 . j; /* iodoka larlk •/ 
char temp; 


/• ALGORITMAi •/ 

1 - 0; 

J - otrlen(e) - 1; /• lndaka el exon paling kanan •/ 

while (1 o j) 

/• partukarkan allJ dan a[jj •/ 
teep . - (1); 

>(11 - >(jl; 

>(jl - temp, 

1-1*1; 


13.20 


karakler dl dalam atring (varal C). 


Misalkan N buah titik-titik (x, y) disimpan di dalam sebuah arsip teks. 
Susunan data di dalam arsip tersebut adalah sebagai berikut: bans pertama 
berisi nilai N, sedangkan baris-baris berikutnya berisi data setiap titik, yang 
dalam hal ini setiap bans terdiri atas nilai x dan nilai y, masing-masing nilai 
dipisahkan oleh spasi. Sebagai contoh, misalkan arsip data.txt sudah berisi 
data yang telah disusun sesuai dengan format yang ditetapkan di atas: 

5 

6 5 

7 2 

3 8 

i 4 

8 12 


Baris pertama, 5, menyatakan banyaknya titik, sedangkan baris-baris berikutnya 
berisi 5 buah titik (x, y), di mana setiap baris terdiri atas nilai x dan y; misalnya 
baris pertama adalah titik (6,5), baris kedua titik (7, 2), dan seterusnya. Tulislah 
dua buah prosedur, masing-masing dalam bahasa Pascal dan bahasa C, prosedur 
pertama membaca data dari arsip dan menyimpan titik-titik ke dalam larik P\ 
sedangkan prosed ur kedua mencerminkan setiap titik di dalam larik terhadap 
sumbu-y (dengan pencerminan ini maka titik (a, 6) menjadi (-a, b ). Titik-titik 
hasil pencerminan disimpan di dalam larik Q. 
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Pcnyclesaian 

PASCAL: 


Deklarasi tipe Titik dan LarikTitik di dalain program utama: 

conot Nmakn - 100 ; ( ukuran aiakoiraia larik ) 

typo Tit Ik - record 

y i intogor. 
y i intogor. 
ond; 

typo LarikTitik - array [I .Kr.ikaJ of Titik; 


Proscdur membaca data dan arsip: 

procoduro BacaTitikDariArolp(tan*Arsip i atrlngI12J; var P : LarikTitik; 

var N i intogor) 

( Mamba ca data titik-titik dari aroip NaruAxaip. dan menyinpannya ke 
dalam larik P yang bortlpo LarikTitik. W akan berioi banyaknya titik.} 

(• DEMARAS I •) 

var 

i i intogor; { pancacah banyak data } 

Pin i toxt; ( pointer ke araip maaukan } 

(• At.OGRITKAt •! 

Login 

{ buka araip maaukan } 
anaign(Pin, llamaArolp) ; 
roaot (Pin) ; 

road (Pin, N>| {baca banyaknya titik } 
for 1 * -1 to II do 

roadIPin. Pill.x, Pill.y)* 
ond; (tor} 
and; 


Prosedur penccrminnn litik tcrbadap sumhu-i/: 

procoduro Pencermlnnnflunbu_Y(P i LarikTitik; N : intogor; 

var 0 i LarikTitik) 

{ Moncormlnkan titik-titik di dalam larik P[1..NI to rhadap aumbu-y. 
Ilanil poncorminan dinimpan di dalam lank 0. } 

{• DXMARAS I •) 
var 

1 i Intogor; 

{• ALGORITMAt •) 

bogln 

for ii -1 to II do 
bogln 

Olil.x ;• -P(i|.X; 

Olil.y »- Pill.y; 
ond; (Cor} 
ond; 


Bab 13 - Contoh-conloh Pemccahan Masalat 
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C: 


Dcklarasi tipc Titik dan LarikTitik di dalani program utama: 

tfdoflna Mmoko 100 /• ukuian makoimua larik •/ 

typadef struct (int x; lnt y;) Titik; 
typed* £ Titik LarikTitik[K-nakn • 11 j 


Prosedur membacn data dari arsip: 

void BacaTitlkDarlArsip(char NaaaArsipU. LarikTitik r, lnt *N> 

/• Nembac.t data titik titik dari arsip NaiMAxoip. dan manylnpannya Mo 
dalam larik P yamj bertlpo LarikTitik. N akan tx-riol banyaknya titik.*/ 

I 

/• DBKLAHASI •/ 

int i; /• pence cah banyak data •/ 

FILE •Pin; /• pointer ke arsip nasukan •/ 

/• Al.GQRITMA: •/ 

/• Luka arsip maaukan •/ 

Pin - Cop*n(NnmaAraip, -flI 

£sc*n£ (Fin, "Id*. 4CH>)i /• Lacs banyaknya data •/ 
for (i-1; i<-N| 1*0 

fscant (Pin, -Id Id'. 4P(1J .X. hP(l).y)i 
/•end tor •/ 

I 


Prosedur pcnccrminan titik terhadap sumbu-t/: 

void PcncormlnnnSuinbu_Yf Larik Int P. LarikTitik 0. lnt N) 

/• Nttncermlnkan CJtlk-CJCik dl dal am lank PH . .Hi terhadap aumbu-y. 
Haotl pencotmlnan dlalmpan dl dalam larik Q. •/ 


/• DBKLARASI •/ 
lnt 1 ; 

/• ALGORITHA! •/ 
for (i- 1 ; 1«-H; i•♦) 
{ 

0(11 .X - -P(U .X; 
0(11.y - Ptll.y; 


Contoh-contob program rascal/C di atas dapat dimodifikasi sedcmikian 
sehingga penanda akhir data adalah sebuah nilai khtisus (seperti 9999 ). atnu 
akhir data diidcntifiluisi dengan akliir arsip (menggunakan fungsi EOF atnu 
feof). Lihat contoh hal ini di dalam upa-bab 7.7. 
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Matriks 


Elemen dari tipe terstmktur sepeiti larik da pat distrukturkan lagi. Sebuah 
larik yang setiap elemennya adalah larik lagi disebut matriks (matrix) 
[WIR 76 ]. Matriks sudah dikenal secara luas dalam berbagai bidang ilmu, 
terutama dalam bidang matematika. Matriks identitas adalah contoh matriks 
yang dikenal secara umum, karena semua elemen diagonalnya 1 , yang 
lainnya o, 

I 0 0 O' 

0 10 0 
0 0 10 
0 0 0 1 

Sebuah sistem persamaan lanjar yang terdiri dari empat persamaan berikut, 

2x, -6x 2 ♦ 4jj ♦ I2x 4 « -10 
3x, + 2x 2 - 8xj - 8 x 4 * 12 
x, + I0 x 2 *8x,-7x 4 ■ 8 
4x, -5x 2 -9xj + I1x 4 = 21 

lazim ditulLs dalam bentuk persamaan matriks Ax = b, yang dalam hal ini A 
adalah matriks koefisien dari mas kiri persamaan, x adalah matriks kolom 
peubah dan b adalah matrik kolom mas kanan persamaan: 
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2 -6 4 121 .r, 

3 2-8-8 x 2 

I 10 8 -7 x, 

[_4 -5 -9 11 x 4 

Masih banvak matriks Iain yang tcrdapat di dalam bidang matcmatika, 
scperti matriks transformasi, matriks permutasi, dan sebagainya. Matriks 
juga digunakan secara bias pada bidang scperti ekonomi. rekavasa, dan lain- 
lain. Di dalam Bab 14 ini kita akan mempelajari struktur matriks dan 
bcbcrapa algoritma pcmroscsan matriks. 



14.1 Definisi Matriks 


Matriks adalab struktur penyimpanan data di dalam mcmori utamn yang 
setiap individu clcmcnnya diacu dcngan menggunakan dua buah indcks 
(yang biasanya dikonotasikan dcngan indeks baris dan indcks kolom). 
Scbngnimann pada larik, di dalam buku ini kita mcnggambarkan matriks 
scbagai sekumpulan kotak yang tcrsusun bcrjajar pada setiap baris dan 
kolont. Susunan bujursangkar scperti itu soring dinamakan juga grid. 
Gnmbar 14.1(a) memperiihatkan matriks yang terdiri dari 5 buah baris dan 4 
buab kolom. Kita katakau matriks tersebut l>crukuran 5x4. Baris matriks 
tersobut diacu dcngan indcks i, 2, 3. 4 . dan 5, sednngkan kolom matriks 
diacu dcngan indcks i, 2, 3, dan 4. Elemen yang dinrsir menyatakan clemen 
pjula baris kc-2 dan kolom kc-3 . Karcna adanya dua buab indcks tersebut, 
matriks disebut juga larik dwimatra (matra * dimension). 



(a) 


baris I 


baris 2 bans 3 baris 4 bans 5 



Gambor 14.1 (a) Matriks yang lordtn atas 5 bans dan 4 kolom 

(b) Roprosonlosi matnks 5 • 4 di dalam msmon sebagai larik. 
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Meskipun matriks merupakan larik dwimatra, namun rep resen tasinya di 
dalam memori tetaplah sebagai deretan sel bertunitan. Gambar 14.1(b) 
memperlihatkan representasi matriks berukuran 5 x 4 di dalam memori. 
Angka i, 2, 3, dan 4 menyatakan indeks elemen relatif pada setiap "baris" 
(apa yang dimaksud dengan baris di sini adalah kelompok 4 buah elemen). 

Karena matriks sebenamya adalah larik, maka konsep umum dari larik juga 
berlaku untuk matriks yaitu: ~ 

1. Kumpulan elemen yang bertipe sama. Tipe elemen matriks dapat berupa 
tipe dasar ( integer, real, boolean, char, dan string), atau tipe tersrtuktur 
seperti record. 

2. Setiap elemen data dapat diakses secara langsung jika indeksnya (baris 
dan kolom) diketahui, yang dalam hal ini indeks menyatakan posisi relatif 
di dalam kumpulannya. 

3- Merupakan struktur data yang statis, artinya jumlah elemennya sudah 
dideklarasikan terlebih dahulu dan tidak bisa diubah selama 
pelaksanaan program. 

Struktur matriks praktis untuk dipakai (pcngaksesannya cepat karena 
langsung melalui indeksnya) tetapi raemakan banyak tempat di memori. 
Misalnya matriks integer berukuran 100 x ioo, membutuhkan 10000 x lebar 
integer. Jika satu representasi integer * 2 byte, maka dibutuhkan memoeri 
sebesar 200000 byte\ 

Karena matriks adalah struktur statis, maka ukuran matriks hams sudah 
diketahui sebelum pelaksanaan program (lihat upabab 14.3 Pendeklarasian 
Matriks). Sebagaimana pada larik biasa, kita menuliskan matra matriks sebagai 
penomoran indeks baris dan indeks kolom, mulai dari indeks terendah sampai 
indeks tertinggi. Sebagai contoh, misalkan matriks pada Gambar 14.1 bemama 
M, maka MI1..5, 1..4] menyatakan matriks berukuran 5x4, dengan indeks baris 
dari 1 sampai 5 dan indeks kolom dari 1 sampai 4. Indeks matriks tidak harus 
dimulai dari 1, tetapi juga boleh dari 0 atau dari bilangan negatif, seperti MI0..4, 
L.3J, MI-2..2,0..3J. Bahkan. indeks juga dapat bertipe karakter, seperti MTa’./e*. 
1..4] atau tipe lainnya asalkan mempunyai keterurutan. 

Di atas sudah kita katakan bahwa elemen matriks diacu melalui indeks baris 
dan indeks kolomnya. Jika indeks baris dinyatakan dengan i dan indeks 
kolom dinyatakan dengan j, maka notasi algoritmik untuk mengacu elemen 
pada baris i dan kolom J adalah 

nama_matriks[i,j] 

Jika matriks pada Gambar 14.1 bemama M, maka elemen yang diarsir pada 
gambar itu adalah Aft2, 3J. Cara mengacu dengan peubah indeks hanya 
benar apabila nilai dari peubah indeks tersebut sudah terdefinisi, misalnya 

M[p, 2 \M[\,k],M[p,q) 


Bab 14 - Matriks 




http://www.pakteguh.com 



hanya benar jika p, k, dan q sudah terdefihisi nilainya. 

Matriks pada Gambar 14.1 dapat digambarkan kcmbali dengan notasi setiap 
elemen-elemennya pada Gambar 14.2. 


1 2 _ 3 _ 4 


1 

MtUl 

Mil,a] 

MIUl 

Ml Ml 

2 

M12.I] 

M[ 2 , 2 ] 

MI2J] 


3 

M\ 3 , 1] 

Afl 3 . 2 ] 

Ml 33 ) 

M( 3 A] 

4 


M 14 . 2 ] 

Ml 43 ) 

M 4 A] 

5 

M 5 .il 

Mls.2] 1 

Ml 5 * 3 l 

MlS. 4 l 


Gambar 14.2 Matriks M dengan notMJ setiap elemervatemeonya. 


Di bawah ini kiw bcrikan beberapa contoh matriks yang lain, misalnya: 

1. C [1..300, 1..200J: matriks yang mereprcsentasikan derajat keabuan 
( greyscale ) pada citra digital (digital image) monochrome. Citra atau 
gambar digital berbentuk persegi panjang. Setiap elemen matriks 
menyatakan satu pixel (picture element), jadi citra C tersebut berukuran 
300 x 200 pixel. Nilai di dalam setiap elemen matriks menyatakan 
derajat keabuan pixel, yang beridsar dari o sampai 255. Reprcsentasi 
citra digital dengan matriks lazim digunakan pada bidang Pengolahan 
Citra (Image Processing) dan Pengenalan Pola (Pattern Recognition). 


1 2 3 4 5 6 ... 200 


121 

0 

15 

mm 
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34 

•is 

0 

45 

35 

O 

12 

0 

17 

# t A 
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6 

47 
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53 

El 

18 

• • • 

201 

7 

Ea 

07 

07 

0 

El 
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■U 

mm 

09 

64 

0 

70 

e a a 

0 

23 

mm 

87 

El 

0 

32 

a a a 

178 

... 

• at 

a • • 

• •• 

... 

»• a 

a a a 


120 

129 | 

101 

0 

0 

0 

a a a 

12 


2. Hub[i. 4 , 1.4): matriks yang menyatakan hubungan diplomatik antara 
negara-negara. Elemen matriks bemilai true berarti negara i dan negara 
j mempunyai hubungan diplomatik, sebaliknya bemilai false jika tidak 
ada hubungan diplomatik. 
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Indonesia 


Rwanda 


Indonesia 


false 

true 

false 

Portugal 

false 

- 

true 

true 

Jepang 

true 

true 

- 

true 

Rwanda 

false 

true 

true 

- 


Nilaii 1..6,1..3J: matriks yang menyatakan nilai ujian 6 orang mahasiswa 
untuk tiga buah mata kuliah. 



Kimia 

Fisika 

Biologi 

Andi Saptono 

A 

B 

B 

Hadi Setyono 

A 

D 

B 

Mas Rizal 

A 

B 

A 

Rizka Kumiawan 

C 

C 

B 

Henry 

B 

B 

B 

WHcan Danor 

A 

C 

C 


14.2 Pendeklarasian Matriks 

Sebelum matriks digunakan untuk menyimpan data, terlebih dahulu matriks 
harus dideklarasikan. Mendeklarasikan matriks artinya menentukan nama 
matriks, tipe data, dan ukurannya. Pendeklarasian matriks di dalam teks 
algoritma ditulis di dalam bagian DEKLARASI. Kata kunci yang dipakai 
untuk matriks tetap array. 

Ada beberapa cara pendeklarasian matriks: 

1. Sebagai nama peubah. 

DBKLMUflX 

M « array 11..5, 1..4J of in taqer 
Algori tma 14.1 PaMarw I aabuah matri kt Integer _ 

2. Sebagai tipe. 

DBKLARAfll 

typo Mat I array [ 1 ..5. 1..4] of Integer 
M i Mat { M a dal ah nama matriks yang bertipe Mat J 

Algoritma 14.2 Deklarasi maWks sebagai tipe bcnlukan 


3. Mendefinisikan ukuran maksimum matriks sebagai sebuah konstanta. 

DKKLMtASZ 

conat HbarisKaks 


20 


f Jualah baris maksimum f 
conat NkoloeMako - 20 { Jualah kolcm maksimum ) 

M . array (1..HbarieMaka, 1. .mColoaMaka) of integer 
Algoritma 14.3 Ooklarasl matnks dengan ukuran maksimum sebagai konstanta 
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Dcngan mendeklarasikan matriks scukuran maksimum di alas (Algoritma 
14.3), ukuran matriks yang dihutuhkan dapat dilentukan pads saat 
pelaksanaan algoritma, asalkan jumlah baris dan jumlah kolom yang 
ditcntukan tidak melebihi ukuran maksimum matriks (NbarisMaks dan 
NkolomMaks ). Misalnya kita mendefinisikan ukuran matriks di dalam 
algoritma dengan instruksi l>erikut: 

read(JOraiahBarial ( aoalkan JunlahHoria S NbariaMakn } 

read (Jural ahKo lorn) j analkan JuralahKolca <, NkolcmMnkn ) 

Scpcrti yang sudah discbutkan pada bagian tcrdahulu. elemcn matriks dapat 
bcrtipc tcrstruktur. Misalkan kita mcmOiki sekumpulan data yang bcrupa 
pasangan tcmpcratur (70 dan teknnan (/*) pada titik-titik diskrit di sebuah 
permukaan logam. Seluruh data ini dircprescntasikan di dalam matriks B 
dcngan pcndcklarasian scbagai bcrikut: 

DKKLAKASI 

{ HAtvika tumperatur-takanan I 

conat HBarioMako «... ( Jumlali baria oatrlka ) 

connt NKolorrXnka - ... { Jumlah kolcm tuttrlkn ) 

typo TP 1 record «T» roal , Pi real * ( ripe eiamen matrika ) 

B 1 array t1..MbarleMaka. 1..NKoionMaka] of TP 


Algoritma 14.4 DokUuati matriks terslruklur 


Sctiap elemcn matriks It mcrupakan scbuab record yang terdiri atas field T 
dan field P. Matriks It dapat dibayangkan scpcrti pada (lambar 14.14. 
Elemcn yang diarsir adnlah scbuab record yang terdiri dari dua buah kotak 
(Tdan P) yang dlsusun ke belakang. 




1 1 - 1 - 1 

• « i 



L—i 


• j 





_ 1 _ . n 



I 


T ‘ _ 




| | | 





f T ▼ ■ | 




Gambar 14.3 Matriks 8 dongan notaw so bap elomcn-olomonnya 
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Berikut ini contoh mengacu elemen matriks B pada Algoritma 14.4 di atas: 
B[ 1,2] -> mengacu satu elemen matriks 

B[l, 2].7 -> mengacu temperatur pada koordinat (1,2) 

£[i,2].P -> mengacu tekanan pada koordinat (1,2) 


14.3 Pemrosesan Matriks 

Algoritma pemrosesan matriks pada umumnya adalah memanipulasi elemen- 
eJemen matriks. Pemrosesan matriks adalah proses be run tun (sekuensial). 
Setiap elemen matriks “dikunjungi" (traversal) lalu dilakukan aksi terhadap 
elemen tersebut. 

Di dalam upabab ini diberikan beberapa contoh algoritma pemrosesan 
matriks. Untuk semua algoritma yang diberikan, kita sepakati menggunakan 
deklarasi matriks seperti berikut ini: 

DBKUVRAfil 

conat JlbarlaMako ■ 20 ( jimlah barit mnkolmum ) 

conot NkolontUko -20 ( juni ah kolom makolmum ) 

type Hatrlkalnt i array 11..NbarlaKaka, l..NKolomMakol of Integer 

Algoritma 14.5 Deklarasi matriks yang digunakan di daiem bab Ini 


Karena secara lojik elemen matriks disusun dalam susunan baris dan 
kolom, maka pemrosesan matriks dilakukan per baris dan per kolom. 
Karena ada dua buah indeks, maka kita harus memutuskan indeks mana 
yang “nilainya tetap" selama indeks yang lain “dijalankan". Cara pemrosesan 
yang umum adalah menelusuri matriks baris per baris, yang pada setiap 
baris melakukan proses terhadap elemen pada setiap kolomnya (kita 
namakan pemrosesan “per baris-per kolom"). Karena ada dua indeks, maka 
algoritma pemrosesan matriks umumnya kalang bcrsarang (nested hop), 
satu kalang untuk tiap indeks. Kalang terluar digunakan untuk memproses 
baris, sedangkan kalang tcrdalam imtuk memproses kolom-kolom pada 
baris yang sedang diacu. 


Contoh 14.1. Mengunjungi elemen-elemen matriks. Tinjaulah matriks 
MI1..5, 1..4] di bawah ini, dengan i adalah indeks baris dan j adalah indeks 
kolom. 



1 

2 

3 

4 


10 

4 

45 

Oi 


20 

16 

18 

23 


29 

98 

19 

27 


2 

15 

El 

65 


21 

8 

□u 
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Algoritma pemrosesan “per baris-per kolom": 

Untuk setiap bans i = l, 2,3,4,5 lakukan: 
unluk setiap kolom i = 1,2,3,4 lakukan: 
proses M[i.j) 

Hasil pemrosesan: 

1 * 1, elemen yang diproses berturut-turut: 10, 4, 45, 30 
i * 2, elemen yang diproses bertumt-tumt: 20,16, 18, 23 
i * 3, elemen yang diproses berturut-turut: 29,98, 19, 27 
i « 4, elemen yang diproses berturut-turut: 2, 15, 26, 65 
i - 5, elemen yang diproses berturut-tunit: 21, 8, 13, 7 

Skema umum pemrosesan matriks dengan gaya per baris-per kolom dinyatakan 
dengan pseudo-code algoritma berikut ini: 

procedure ProeoaHatrlkal( Input M 1 Matrikalot, Input Kbar, 

Kkol 1 lntaajr) 

{ Putt ffONNB elemen matrlke Mil. .Mbar, 1. .HkolJ par barla per kolom. ) 

I K.Awal 1 Natrlko M awdeb frdet Intel elemen-elemennye. ) 

{ K.Akhir ; Setiap elemen metrlka M Caleb diproaea. ) 

DIKLARASX 

1 1 Integer ( indeka barla ) 
j > integer { Indeka kolom } 

ALGORITMA: 

for 1 •- 1 to Kbar do 
for J 4- 1 to Kkol do 
ProaaaIM(1, jl) 
endfor 
endfor 

Algoritma 14.6 Skema umum pormosos an twUHfca (por barts-p er kolom) 


Keterangan 

Proses (M[i j]) adalah operasi yang memanipulasi nilai M[i, J], seperti 
operasi I/O (baca, tulis), komputasi, pengubahan, dan sebagainya. 

Selain struktur/br, struktur pengulangan while dan repeat dapat juga digunakan 
untuk pemrosesan matriks. Skema pemrosesan matriks dengan raenggunakan 
kedua struktur pengulangan tersebut ditunjukkan pada Algoritma 14.7 dan 
Algoritma 14.8. 

procedure ProeeaMatrlksl( Input M 1 Hatrlkelnt. Input Kbar, 

Kkolt Integer ) 

( Pemroeeaan demon matrlke Mil. .Kbar, 1. .HkolJ per barla per kolom. ) 

( K.Awal 1 Matrlke M su dab terdefiniai el even-elemennya. ) 

{ K.Akhir! Setiap elemen matrlke M telab dlproeeo. ) 

DBKLARASI 

i 1 Integer { indeka barla ) 
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j : integer { indeks koloa ) 

ALGORITMA: 
i *- 1 

while i S Nbar do 

3 - 1 

while j £ Nkol do 
ProoeB(M[i,jJ ) 

j *— J * 1 { kolcwi berlkutnya } 

endwhllc 
I j * Nkol } 

i *- l ♦ 1 f baric b«ri*utn>\» ) 
endwhile 
I i » Nbcr j 

Algorltma 14.7 SM mfl umum ponvososan malnks (per bans-per kolom) dengan slruklur while 


proc edure ProccnHatrikel(input H i HatrikoXnt. I nput Nbcr. 

Nkoljinteger) 

( Pemroaeaan elemcn matrlka Nil..Nbar. I..Nkol] per baric per kolom. ) 
I K.Awci r Natrlke N rudah terdetiniaJ elemcn-elenonnya. } 

( K.Akhlr: Setiap eleaan matrlka N teich diproaea. ) 

DEKLARAS1 

i i Integer { indeka baric ) 

3 t i ntege r ( Indeka kolom ) 

ALGORITMA: 
i *- 1 

repea t 

3 •- i 

Prooec(M[l.j]) 

j •- j • 1 I koloa berlkutny. * / 
until j > Nkol 

i *- l ♦ 1 ( barla berlkutnya ) 

until l > Nbar 

Algorltnui 14.8 Skomn umum pomrosesnn matnki (pcf bonvper kokxn) dongon slruktur topool 


Adnkalnnyn kiln mcmerlukan pcmrosvsan malriks kolom dcmi kolom clan 
padn set lap kolom kiln memproscs setiap barisnya (kila namakan 
pomrosesnn “per kolom-per baris"). taking tcrlunr digunnkan untuk 
mcmproses kolom, sednngknn kalang Icrdalam untuk mcmproses elcmcn- 
olomen padn baris yang seeking dincu. 

Algoritma pomrosesnn baris “per kolom-per bans": 

Untuk setiap kolom j ■ I. 2,3, .j lakukan: 
untuk setiap baris i • i. 2.3,4,5 lakukan: 
proses M[i,j] 
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Hasil penelusuran: 

j = i, elemen yang diproses berturut-turut: 10, 20, 29, 2, 21 
j = 2, elemen yang diproses berturut-turut: 4, 16, 98, 15, 8 
j = 3, elemen yang diproses berturut-turut: 45, 18, 19, 26, 13 
j ■ 4, elemen yang diproses berturut-turut: 30, 23, 27, 65, 7 

Skema umum pemrosesan matriks dengan gaya per kolom-per bans dinyatakan 
dengan pseudo-code Algoritma 14.9 berikut ini: 

procodura ProBe«Watrlkn2( Input M i Matrikalnt, Input Hbar, 

fflcol,lntegar) 

(Pamroaaaan elemen matrika M(l..Hbar, l..Hkoli par kolom par barla. ) 

( K.Awal I Matrika M audah tardaflnial alaman-mlamannya. J 
{ K.Akhlrt Set tap elemen matrika M tel ah dlproaaa J 

Dnujudz 

i * Integer ( lndoka barla ) 
j 1 integer ( indeka kolom ) 


ALOORITHAi 

tot j ♦- 1 to Hkol do 
Cor 1 *- 1 to Hber do 
Proeee(M(i,j]) 
endfor 

Mi 

Algoritma 14.9 Skeme umum p«im>mnM(||« 


Perhatikan Algoritam 14.9 di alas, bahwa untuk pemrosesan per kolom per 
bans ini, kita tidak menulis elemen matriks sebagai Mlj.il, tetapi tetap 
sebagai M li, j J, sebab bila kita tuliskan Mlj.il hasilnya sama saja dengan 
penelusuran per baris-per kolom (coba periksa!). 

Di dalam buku ini kita menggunakan skema penelusuran per baris-per 
kolom karena skema inilah yang lazim digunakan Oebih alami dibandingkan 
skema per kolom-per baris). Kita akan memberikan contoh-contoh 
algoritma pemrosesan matriks pada beberapa upa-bab di bawah ini. 

1 . Mcnginisialisasi Matriks 

Menginisialisasi matriks artinya memberi nilai avval yang sama untuk seluruh 
(atau sebagian) elemen matriks. Proses inisialisasi biasanya dilakukan 
sebelum matriks digunakan untuk perhitungan. Misalnya dalam algoritma 
perkalian matriks A x B = C, seluruh elemen matriks C harus diisi dengan nilai 
o karena C akan digunakan untuk menampung hasil penjumlahan yang 
berulang ( iteration ) -lihat pada upa-bab Latihan Soal mengenai perkalian 
matriks. Namun, tidak semua matriks perlu diinisialisasi, karena itu proses ini 
tidak selalu harus dilakukan. Misalnya jika elemen matriks dibaca dari piranti 
masukan, maka inisialisasi matriks tidak perlu dilakukan. 
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Algoritma inisialisasi matriks berikut ini mengisi setiap elemen matriks 
dengan o (Anda dapat menggunakan nilai yang lain selain o). 

procedure InlaMatrlkal( Input / output H : Matrikalnt, 

input Nbar. Nkol . Integer ) 

( MenginiaiaHeaei aeluruh eleven macrika Mil..Nbar, l..NkolJ dengan 0.) 
{ K.Awal i Nbar dan Nkol eudah terdetiniei dengan banyaknya barla dan 
• kolom metrike ) 

( K.Akhir: - 0 untuk I - l..Nl>ar. J - l..Nkol J 

DBUUUIZ 

i i integer ( intake barla J 
j . integer ( intake kolom ) 

Ninziizi 

for i 4- 1 to Nbar do 
for j +- 1 tg Nkol do 
HU, j) •- 0 
ondfor 

•ndfor 

Algoritma 14.10 MontjInIslalitasJ aaluruh elemen malrika dengan 0_ 


2. Membaca Elemen Matriks 

Membaca elemen matriks artinya mengisi elcmen-elemcn matriks dengan 
data dari piranti masukan, misalnya papan ketik. Yang hams diperhatikan 
selama pembacaan dari papan ketik adalah umtan pembacaan data, karena 
data disimpan di dalam matriks sesuai dengan umtan pembacaan. Untuk 
menghindari kesalahan pengisian elemen, scbaiknya pada waktu pembacaan 
data diberikan keterangan/petunjuk yang menginformasikan indeks baris dan 
indeks kolom elemen yang akan diisi. Bila secara implisit sudah diketahui 
umtan pembacaan adalah per baris per kolom, maka petunjuk pembacaan 
boleh tidak diberikan. 

Contoh 14*2. Membaca elemen-elemen matriks. Misalkan umtan data yang 
dibaca (per baris per kolom) sebagai berikut: 

12 45 16 9 67 15 8 1 10 15 1 9 12 7 O 3 21 56 13 19 

maka matriks M akan berisi nilai-nilai sebagai berikut: 


1 

2 

3 

4 

5 


1_2 3_4 


MEM 

0 



mm 

KU 

u 


■n 

■LI 



MEM 

mm 

■ ■ 


mm 





Algoritma pembacaan matriks dari papan ketik kita bedakan dua macam, 
yaitu pengisian yang menggunakan petunjuk pembacaan dan pengisian 
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tanpa menggunakan petunjuk pembacaan (sccara implisit sudah diketahui 
pembacaannva per bans per kolom) 

1. Pengisian matriks tanpa petunjuk pembacaan 

pro ced ure BacaMatrlkoltInput/ output M : Kacrikolnt. 

Input N'bar, !Jkol : inte ger} 

( Nengiai elemen mae rika N[l..Nbar, l..Nkol] dari papan ketik tanpa 
menggunakan petunjuk pembacaan. 

( K.Aval : Hb.tr dan Nkol sudah terdefinisi dong an banyaknya bar is dan 
kolom matriks ) 

{ K.Akhir: Seluruh elemen matriks H sudah berisl nilai yang dibaca 
dari papan ketik. ) 

DEKLARASX 

i : integer { indeks baris ) 
j : integ er ( indeks kolom f 
ALGORITMA: 

for 1 «- 1 to Nbar do 
for ) *- 1 to Nkol do 
rend (MU', ]I > 
endfor 
e ndfor 

Algoritmn 14.11 Mombnca olomen otomen matnks tanpa potunjuk pombneann 


2 . IVngisian mariks dengan menggunakan petunjuk pembacaan 

procedure BncaMntcika2(input/output H j Mntrikolnt, 

input Kbar, Mkol i integer) 

{Nenglsi airmen matriks M/J. .//bar. l..::kolJ darJ papan ketik dengan 
menggunakan petunjuk pembacaan. } 

( K.Aval t Nbar dan Nkol sudah terdefinisi dengan banyaknya bails dan 
kolom matriko ) 

( K.Akhirt Seluiuh eleeen matriks K sudah berlsi nllat yang dibaca 
dari pirantl masukan ) 

DEKLARASI 

1 i integer I Indeks barls ) 

J i integer f indeks kolom ) 

ALGORITMA: 

for 1 ♦- l to Nt'.ir do 
for j ♦- 1 to Nkol do 

writeCKot ikkan olemon MU . i. •. *. J, * J i ') ( petunjuk pembacaan) 
read (Mli.jl) 
endfor 
endfor 

Algorltma 14.12 Membaca olomon-elemen matnks dengan potunjuk 


Misalknn ketika i dan j masing-masing bernilai 2 dan 3 . inaka di layar peraga 
akan muncul tulisan 

Kctikkan elomen M(2, J| : 
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sehingga pengguna program pa ham hah\va elemen matriks yang akan diisi 
nilainya adalah elemen Af[ 2 , 3 ]. 

3. Mcnulis Matriks 

Menulis matriks artinya mcncetak elemen-elemen matriks kc piranti keluaran 
(misalnya ke layar peraga, kc dalam arsip, atau ke printer ) dengan asumsi 
bahvva elemen matriks sudah terdefinisi nilainya (misalnya sudah diisi melalui 
proses pemhacaan atau hasil dari suatu manipulasi matriks lain). 

procedure Tul1sMatr Ua(input H : K«trlk&lnt. 

in put Nbar, Hkol : integer) 

I Mancetak eleven mat tins l..N*oll ke pliant 1 keluatan. I 

I K.Awal 1 elemen-eleaen matrika aviUh lerdeflnial harganya. I 
I K.Akhlr: acluruh elemen natrlka tertulla kc piranti keluaran. J 

DKKLARASI 

i : lntoqnr ( indoka barla I 
1 5 i Indeka kolcm • 

ALGORITMA: 

for i •- 1 to UtMir da 
Zat J ♦- I to Mkol do 
wrU*m 1. J| I 
oncifor 

Algorllma 14.13 Monulto ^wn^mon maink* 


4. Pcnjtimlulinn Dun Bunh Matriks 

Penjunilahan dun buali matriks A dan li mcnghasilkan matriks C, atau A ♦ H*C, 
hnnyn dnpat dilakukan bila ukuran matriks A dan ukurnn matriks li samn 
dan kedua matriks sudah terdefmisi nilai-nilainya. Matriks C akan 
berukurnn sama dengan matriks A dan It. 

Penjunilahan matriks A dan li didcfinisikan sebagai berikut: 

C[i,J] ■ A[i,j] ♦ B[i,J] untuk semua i dan j. 


Con toll 14 . 3 . Penjunilahan dun buah matriks. 


Matriks A 


Matriks li 


Matriks C 


1 ' 
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4 

15 
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Algoritma penjumlahan dua buah matriks: 

procedure JumlahDuaMatrikB ( inpu t A, B t Katrikalnt, Nbar, Nkoi: integer 

output C : Matriks.) 

/ Menjumlahkan roatrika A dan B. yaitu A • B • C. ) 
l K.Awal : Matriks A dsr. B sudah terdcfiniai eleoen-clemennya. } 

{ K.Akhir: Matriks C beriai haoil panjumlahan A dan B } 

DEKLARASI 
1 i Inte ger 
j ' Inte ger 


ALGORITMA: 

for i *- 1 to Nbar do 
for j *- 1 to Nkol do 

Cfi,jl *- ACi.il * BCi.il 
endfor 
end for 

Algoritma 14.14 Monjumlahkan dun buah mntriko 


( indeks barJo } 
{ indeks kolom ) 


14.4 Translasi Notasi Algoritmik Matriks 
ke dalam Bahasa PASCAL dan 
Bahasa C 

AI.GORITMIK 

DUKLARASI 

conat NbarloMaka - 20 ( jumlah bario makaimua f 
comic NkolomMako • 20 f Jualah kolom makoimum / 

tygo Matrikalnt : array(1..UbarieMake, l..NkolooMako) of integer 

M i Matriks 


PASCAL 

const 

NbarioMaks - 20; { Jumlah bario makoimum ) 

NkolowWaka • 20; ( Jumlah kolom makoimum ) 

type 

Mntriknlnt - array [1..NbarioMaks, 1..Nkoloettako) of integer; 
var 

M : Matriknlnt; 


c 

Hdefine NbarioMaks 20 /• jualah bario naksitnum •/ 
"define NkolorMaks 20 /• jualah kolom makoiaun •/ 

typedof int Matrikslnt tNfcarioMako*lJ |MkoloaMaks.lJ; 

Matrikalnt M; 
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Perhatikan bahwa dalam bahasa C indeks larik/matriks selalu dimulai dari o. 
Oleh karena itu, agar batas maksimum indeks bans dan batas maksimum 
indeks kolom sama seperti pada notasi algoritmik dan bahasa PASCAL 
(dimulai dari 1), maka jumlah elemen baris dan jumlah elemen kolom 
dilebihkan satu. 

Di bawah ini dituliskan beberapa contoh algoritma pemrosesan matriks yang 
sudah dijelaskan pada bagian sebelum ini dan sekarang diteijemahkan ke 
dalam bahasa PASCAL dan bahasa C. 

1. Membaca Matriks 

PASCAL 

procoduro BacaMatrikol(var H i MatrlkeInt; Nbar, Mkol i integer); 
{Menglal elemen matrlke Mil..Nbar. l..Nkol] dari pepen JtatiJc 
lkeyboard) dengan manggunakan petunjuk pembacaan. ) 

{ K.Aual i Nbar dan Nkol sudah terdellnlei dengan banyeknya barlo dan 
kolom matrika. J 

{ K.Akhir: Seluruh elemen matrlke M audah berlal nilel yang dlbaca 
dari 

papan ketlk. ) 

var 

i i intogor; { lndeka barla ) 
j t intogor; ( lndeka kolom J 

bog in 

for i !■ 1 to Nbar do 
for J i- 1 to Mkol do 
begin 

writol'Ketlkkan elemen M[*. i. '. •, j.' J : *); ( petunjuk 

pcmbacaan } 

roadln(M 11,i)); 

•nd, {lor) 

{endfor) 
ond; 


Contoh pemanggilan prosed ur di atas: 

writoln('Baca ukuran matriks:'); 

vrito('Berapa jumlah baria (1 - 20 )?*); roadln(p); 
write('Berapa jumlah kolom? (1 - 20)*); roadln(q); 

BacaMatrikfll(M. p, q); 

c 

wold BacaNatrikeKMatrikelnt M. int Nbar, int Nkol) 

/• Menglal elemen matrlke Mil..Nbar, l..Nkoll dari papan ketlk 
(keyboard) dengan menggunakan petunjuk pembacaan. •/ 

/• K.Aval : Nbar dan Nkol audab terdellnlel dengan banyaknya barla dan 
kolom matrlke. •/ 

/* K.Akhir: Seluruh elemen matrlke eudah berlal nilai yang dlbaca dari 
papan ketlk. */ 
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int i; /• indeka baria •/ 
inc j i /• indeka koloa •/ 

tor (l » 1* 1 <■ Nbar; i*») 
for (j - 1; j <• Nkol; J»*) 

printf ("Ketikkan elemen H(%d] [%dl s •, t. j); /• petunjuk baca */ 
acanf (M {i| [J))h 

) 

/* endtor •/ 

) 


Contoh pemanggilan proscdur di atas: 

printf (“Baca ukuran matrlkai \n*»j 
printf ('Borapa Jumlah baria? I1 - 201 ")» acanfUp), 
printf ("Bornpa Jumlah kolora?(l - 20) *)i acanflfcq); 
BacaMatrlknlIH. p. qlj 

2. Mcnulis Matrik.s 

PASCAL 

procedure Tul loMatrika (K t Matrlkalnt; Nbar. Nkol : integer); 
( Mencetak elemen matrika Mil..Nbar, l..Nkoll ke layar. ) 
f K.Aval t elemen matrika audah terdeflniai harganya. ) 

( K.Akhir: aoluruh elemen matrika tertulia di layar. ) 

var 

1 J integer; { indeko baria ) 

j i integer; ( indeka koloei ) 

begin 

for i i• 1 to Nbar do 
begin 

for j r- 1 to Nkol do 
write(M[i.j].' •); 

(endtor) 

writeIn; { pindahkan kuraor ke aval baria berikutnya ) 
ond; (for) 
end; 


c 

void TulioMatrika(Matrlkalnt M, int Nbar, int Nkol) 

/• Mencetak elemen matrika Nil..Nbar, l..Nkol] ke layar. •/ 
/• K.Aval i elcir.cn matrika audah tcrdefinia i harganya. •/ 

/• K.Akhiri aeluruh elemen matrika tertulia di layar •/ 

\ 

int l; /• indeka baria •/ 
int j; /• indeko kolota •/ 

for (i ■ 1; i <• Nbar; 

I 
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for (j » 1; j <- HJcol; j**) 
printf f*%d *. MUJtj]), 

/•ondfor'/ 

printf ("\n*) j /• pindahkan kuttor ke bat la berikutnya •/ 


3 * Pcixjumlahan Dua Buah Matriks 
PASCAL 

procedure JumlahDuaKatriksiA, B : Matrikolnt; Nbar, Nkol : integer; 

v»r C i Matrikolnt); 

{ Ncnjuml.ihk.in matriks A dan B, yaitu A • B - C. f 
{ K.Awal i Matriks A dan B eudah Co rdefinioi clemcn-elemcnnya. ) 

{ K.Akhirt Matriko C berioi hani J penjumlahan A dan B ) 

var 

1 t intogor; ( Indcka bar in ) 

J : intogor, ( indeko kolom } 

bag in 

for i i■ 1 to Nbar do 
for ) !• i to Nkol do 

Cli.Jl «- Ali.Jl * Bli.Jh 
{endfor) 

{endfor) 
and. 

c 

void JumlahDuaMatrika(Matrikolnt A. Matrikolnt B. lot Nbar. int Nkol. 

Matrikolnt C» 

/• Menjumlahkan matrikrn a dan B, yaitu A • B - C. */ 

/• K.Awal i Matriks A dan B oudah tcrdcfinlai cjcmcn-elcmrftwya. •/ 

/• K.Akhirt Natrika C bcrlmi haall penjumlahan A dan B •/ 


int l; /• Indeka barls •/ 
int j; /* Indeka kolo * •/ 


for (1 * It i <• Nbar; i♦♦ 1 

for <j « 1i j «- Nkol; J*«j 

ecu ui • Aiii ui . Bftnjb 

/•ondfo f/ 

/•ondtor*/ 

) 
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14.5 Contoh-contoh Tambahan 


Contoh 14.4. Membaca data matriks dari arsip masukan. 

Adakalanya data untuk matriks dibaca dari arsip (JUe) karena ukuran 
matriks yang besar sehingga lebih mudah menyunting datanya di dalam 
arsip dengan program pengolah kata daripada dimasukkan satu per satu. 
Begitupun keluaran ( output ) program dari matriks juga sering ditulis ke 
arsip. Pembacaan data dari arsip bergantung pada format (cara meyimpan) 
data di dalam arsip. Misalkan kita asumsikan bahwa data masukan disimpan 
di dalam arsip dengan format teks (text). Antara satu data dengan data 
lainnya dipisahkan oleh separator spasi. Tipe peubah yang digunakan untuk 
menampung hasil pembacaan hams sama dengan tipe data yang dibaca; jika 
datanya bertipe integer maka peubah pembacaan juga harus bertipe integer, 
jika data riil maka peubahnya juga hams bertipe riil; begitu setemsnya. 
Untuk lebih jelasnya, silakan baca kembali upa-bab 5.3. 

Misalkan selumh data matriks yang bemkuran m x n sudah disimpan di 
dalam arsip data.txt. Susunan data di dalam data.exe sebagai berikut: 
baris pertama berisi nilai m dan n, sedangkan baris-baris berikutnya berisi 
data integer sebanyak m baris dan n kolom, antara setiap data dipisahkan 
oleh spasi. Sebagai contoh, misalkan arsip data.txe sudah berisi data yang 
telah disusun scsuai dengan format yang ditetapkan di atas: 

3 S 

6 5 7 2 1 

8 2 4 B 12 

2 5 4 9 10 

Baris pertama, 3 dan 5 menyatakan ukuran matriks (m dan n), sedangkan 
baris-baris berikutnya berisi elemen-elemen matriks. Prosedur membaca 
data matriks dari sebuah arsip masukan dan menyimpannya ke dalam 
matriks yang bernama A, masing-masing dalam bahasa Pascal dan bahasa C, 
adalah seperti di bawah ini. 

Bahasa Pascal: 

procedure BacaHatrikoDariArsip(N aimAto ip i string; 

var A 1 Matrlkslnt,; vur m, n 1 

intsgsr) 

I Membaca data matrika dari araip NamaAraip, dan menyimpannya ka 
dalam matrika A yang berukuran m x n. 

K. Aval t NamarAmip telah banal name araip yang menylmpan data 
matrika. 

K. Akhir: A berial data matrika ; a dan n berlai ukuran matrika 

) 

<• DEKLARASI •) 
var 

i, j : Integer; ( pencacah banyak data } 

Fin t text; ( pointer ke araip maaukan } 


JOT | 
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(• ALGORITHA: •) 

bog in 

{ buka acoip maaukan } 
aooign (Fin, NarraArnip ); 
roaot(Pin); 

road (Fin, ra. n) ; fb.ic.i ukuran natrike ) 
for i i• 1 to m do 
for J 1 to n do 
road tPin, A|i,)l>; 

(cndtor) 

{endfor I 
cloooifin); 
and; 

Algorilma 14.15 Mombaca nuilnks dan orsip tcks (Bahasa Pascal) 


ISahusn C: 

void BacaMatrlkoDariA:nip(char NanaArolp(). Kotrikolnt A, Int ‘m, int 
•n) 

/• Mombaca data matrika darl aralp HamaAraip, dan menyimpannya kv 
dalam matrika A yang betukuran m x n. 

K. Aval t Ham.it An Ip telah beriai name aralp yang nenyimpan data 
matrika. 

K. Akhlx i A beriai data matrika/ m dan n beriai ukuran matrika 

•/ 

( 

/• DKKLARMI •/ 

int l, j; /• pencacah ban yak data •/ 

V ILK ‘Pin; /• /winter ko aroip maaukan •/ 

/• ALGOR ITHAt •/ 

/• buka aralp maaukan •/ 

Fin • fopon (MamaAraip, m f)i 

facanf (Pin, "*d %d". M'm), fc('n)); /• baca ukuran matrika •/ 

for (i • X; l <• <*m) ; i.*> 
for lj • 1; 1 <• C•n); j* •) 
faoanf(Fin, Md». A(i) tjl); 

/•endfor 9 / 

/•andfor'/ 

fclooo (fin )i 


Algorilma 14.16 Mombaca mntriks dan arsip loks (Bahasa C) 


Contoli 14.5. Menjumlahkan bans dan kolom matriks. 

Asumsikan ukuran matriks tidak melchihi NbarisMaks -1 dan NkoloniMaks 
-1. Jumlahkan elemen-elemen pada setiap bans dan setiap kolom. Hasil 
ponjumlahan disimpan pada kolom tambahan dan bans tambahan. Jadi, basil 
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penjumlahan suatu bans disimpan pada kolom paling kanan (Nkol + i), dan 
liasil penjumlahan suatu kolom disimpan pada bans paling bawah (Nbar + i). 

Contoh di bawah ini memperlihatkan hasil penjumlahan setiap baris dan 
setiap kolom pada matriks di bawah ini disimpan pada elemen yang diarsir. 


1 2 3 4 5 



Algoritma penjumlahan selumh elemen pada setiap baris dan kolom matriks 
sebagai berikut: 

procedure PenJumlahanBariodanKoloalinput/putput A : Matrlkolnt. 

input Nbar, Nkol i integer) 

I Nenjumlahkan barla-barla matriks A(1 . .Nbar, 1. .Nkoll dan 
monyxmpannya pada kolom Nkol • 1. Juga menjumlahkan kolom-kolom 
matrlka Ml..Nbar, l..Nkol] dan nenyimpannya pada bat la Nba r • 1. f 
{ K.Aval : Matrlka A audah terdeflnlax nilai setiap elemennyas Hbar <- 
NbarlaNaka - J dan Nkol -- NkolotnMaka - 1. } 

l K.Akhir: barla Nbar . 1 dan kolom Nkol • 1 cmalngmaoing berial 
haall penjumlahan elemen kolom dan penjumlahan elemen barla matrlka 

A. ) 

DEKUVHAS! 

li Integer (indoka b.irxaf 
J 1 integer Ilndeka kolom) 

ALOORITOAi 

( Penjumlahan bum ) 
for l •- 1 to Nbar do 
A11, Nkol * 1| ♦- 0 
for J •- 1 to Nkol do 

All, Nkol.1| - A(l, Nkol.11 . A11,j| 
e ndfor 
endfor 

f Penjumlahan kolom j 
tor 1 i- 1 to Nkol do 
A (Hbar ♦ 1,JJ «- 0 
for i «- 1 to Nbar do 

AlNbar.l, j| A(Nbar.1, J1 . A(l, j| 
endfor 
endfor 

Algoritma 14.17 Mon|umlahkan baris dan kotom 
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Contoh 14.6. Kesamnan dua buah matriks 

Dus buah matriks, A dan B. dikatakan sama jika ukurannya samn dan 
efemen pada posisi yang bcrsesuaian sama harganya (A[i,j] » B[i,j) untuk 
setiap i dan j). 

Sebagai contoh, dari keempat matriks di bawah ini (A. B, C. 0 ), 

(i) A * B, karcna ukuran keduanva tidak sama. 

(ii) A * C, karcna ukuran keduanva sama dan elemcn pada posisi yang 
bcrsesuaian sama. 

(iii) A * P, karcna elcmen pada posisi yang bersesuaian tidak sama. 


1234 123 t 2 3 4 1234 



A B C D 


Algorithm untuk memeriksa kesamaan dua buah matriks, sebagai hcrikut 
(sebagai fungsi): 

fun ction MatrlkeSnmn finput A : MatriknXnt. input NbarA, NkolA : 

Integer. 

Input. H « Mntrikslnt, input NbarB, Mkoia t Integ er) -» 

boolann 

7 Memcrtkan keaamaan matrika All..Mu irA. l..NkolM dan Bll..Nt\trB, 

1..NkolB]. Fungal mongamballkaa nilni t rue jika a - B ntau false Jika 
A * B } 

DKKLARASI 

i I integer / Indeka b aria } 

j 1 integer { indeka kolcm ) 

■ama t boolean { true jika A - B. false jika tidak Bjmi J 
ALOOPITMA: 

( porikma ukuran matrlka A dan b ) 
it (NbArA t NbarB) nnd (NkolA * NkolB) then 
nnrea *- faUo { A a B J 

nine { (NbarA - NbarB) and tNkolA - NkolB) j 

I porikra kesamaan eleeen pada poaiat yang berscoUAiar.. 

Peoertkeaan keoamaan Matriks dihentlkan btla ditomikon aebuah 
Ati.jJ * BH. JJ untuk euacu i dan j . } 

oana »- true { aaumsikan di oval bahwa A - S ) 
i «- 1 

while ( i £ NbarA) and *sana) do 
j 1 

whi le {j £ NkolA) and leara) do 
if Ati.j] * Bti.j] then 

sama •- false { A dan B tidak sana. Stop! J 
olme 

3 - 3 ♦ 1 
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endi f 
e ndwhl lo 

| ] » NkolA or not van* ) 

if oa*wi then { jika dl bariu 1 rnaiih ram. perlkaa dl baria l * lj 
1 ♦- 1 ♦ 1 
endil 
endwhile 

f 1 > WbarA or not oama ) 
return oama 
end if 

Algoritma 14.18 MomoriXsa kesamaan dun bunh matnks (vor&i 1) 


Algoritma 14.18 di alas dapat dihuat lebih eWgan tanpa menggunakan peubah 
boolean. Kctika dilemukan sebeuah clemen matriks yang lidak sama. maka 
fungsi langsung kelunr dan niongemhalikan nilai false. Hasil perbaikan 
terhadap Algoritma 14.18 dinyataknn di dalani Algoritma 14.19 berikiH ini: 

function MatrlkoSamatinput A i Matrlknlnt, Input liber A. NkolA i integer. 

input D 1 MalrikoXnt. input NburD, Kkolb i Integer) -♦ boolean 
l Kornorikn* koanmatm matrlka A fi , .NbarA. J.. NkolA/ dan Bd. .Nbat9, 
l..tikolM. Fungal imngombalikan nilai true Jika A - B acau fiJ« jika 
Abb} 

OBKLARASI 

i t Integer { indek* bar la } 

j 1 Integer [ indrkt kolom } 

ALGORITMA: 

I part ham uAuran metriJre A dan D } 
if (NbarA * HbarlO and (HkolA • NkolD) then 
return faloe (Abb) 

eloe { (NbarA • UbarB) and (NkolA - NkolB) ) 

( porikoa knuanann olooxrn padn pcotai yang btnoonualan. 

Vemorikaaan kow.nrw.in iratrike dlhentlkan bll.i clitomukan eebuah 
Afi.il b Bd. jl untuk ou.it 11 i dan J } 
tor i *- 1 to NbarA do 
for J •* 1 to NkolA do 

if All.Jl t Dll.j] then 

return r«loe ( A dan B tldak va me. Stop: ) 
endif 
endfor 
endfor 


retu rn true ( oeirua Ad,]] . Bd,]] ) 

endif 

Algoritma 14.19 Memoriksa Vcsamaan dun bunh matnks (versi 2) 
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Bila algoritma menguji kesamaan dua buah malriks dinyatakan sebagai 
prosedur, maka Algoritma 14.18 yang lebih tepat dimodifikasi inenjadi 
prosedur, karena peubah sama dinyatakan sebagai parameter keluaran di 
dalam header prosedur. Prosedur uji kesamaan dua buah matriks 
dinyatakan di dalam Algoritma 14.20 berikut ini: 

pro cedure UjIKenamaanMatrlka(i nput A : KatrikoXnt. 

input t.’barA, NkolA : integer . 
inpu t B i MatriksXnt, 
input NbarB, NkolB : integ er, 
o utpu t same : boolean ) 

I Momorlkaa keoamaan matri ka All. .NbarA. 1..NkolA] dan Bll..NbarB, 

1 . .NkolB ]. / 

{ K. Avah Matrlkn A dan n audah teidoflnlai elemen-elemennya/ 

NbarA, NkolA, NbarB. NkolB audah berisi ukuran matriks. ) 

I K. Akhlr: aama bvrnlla true Jika A - B. atau tala* Jlka A 0 B ) 

DKKUVHASI 

l « Integer ( indnka bar in ) 

J « i ntege r f indeka koloa ) 

ai/joritmai 

{ porikna ukuran matriks A dsn B ) 

It (NbarA * NbarB) and (NkolA s NkolB) then 
nama 4 - t nine ( A r D ) 

•loo ( (NbarA - NbarB) and (WkoJA - NkolB! ) 

I porlkita koaamaan eiemen pada poaial yang boraonualan. 

Pcmorlkaaan kesamaan matriks dlhentiksn bJja ditemuksn aebuah 
AH.J] a nil, J] untuk ouatu 1 dan j. ) 

sama 4- true [ nounuiikan di awal bahwa A • D ) 
i *- 1 

while ( 1 S NbarA) and Issma) do 
J 4- 1 

while (J S NkolA) and (sama) do 

if All.jl s DU.31 then 

nama ♦- false { A dan B tldak nama. Stopl } 
else 

3 *- 3 • 1 

end i f 
ondlf 

{ J > NkolA or not aama ) 

if noma then 7 J*** *U baris i mislh sam*. porlkaa di barla 1*1) 
i 4- i ♦ 1 
ondlf 
endwhlje 

Jl > NbarA or not sama ) 
ondlf 

Algoritma 14.20 Memonksa kosamaan dua buah matriks (vorsi 3) 
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Conloh 14.7* Matriks simetri. 

Matriks A dikatakan simetri jika A adalah matriks bujursangkar (jumlah 
baris = jumlah kolom) dan A[i,j] = A[j, ij untuk sctiap i dan j (dengan kata 
lain, elemen-elemen di bawah diagonal utama mcrupaknn pencerminan 
elemen-clemen di atasnya, atau sebaliknya. Elemen diagonal utama pnda 
matriks di bawah ini dinyatakan dengan arsiran). 


Scbagai eontoh, dari kctiga buah matriks A, B, dan Cdi bawah ini, 

(i) /\ bukan matriks simetri. karena A bukan matriks bujursangkar. 

(ii) B matriks simetri. karena jumlah baris dan jumlah kolom sama 6 nnA[i,j\ = 
A], ij untuk sctiap i dan j. 

(iii) Cbukan matriks simetri, karena ada elemen C[i,j) * Cty, ij, misnlnya 
C[ 2 , 3 \*C[ 3 . 2 l 



1 

2 

3 

1 

1 

2 

3 

2 

5 

6 

7 

3 

9 

10 

11 

4 

12 

13 

14 


A 




Algoritma untuk mcmcriksa kesimetrian sebuah matriks scbagai berikul: 

function Slmotrltinput A t MatriknJnt. input Kbnr, llkol 1 Integer) 

-♦ boolean 

(Xomoxiktia apakah natrike Ml..Mat. l..NkolJ almatrl.) 

{Fungal tnengttmbAllkan true Jika A alrmirl, 4t«u talae Jika A tldak atrm'trl} 
DEKLARASI 

1 * integer l Indaka barm / 
j 1 Integer ( indeka kolom ) 

ALOORITKAi 

( perikaa Jumlah barla dan Jumlah kolcmt Itarua aana J 
If Nbar a Ilkol then 

return false { A t ldak alnatrl ) 

flee / Mint - Nkol } 

{ Perlkaa keaaroaan daman yang b*r*c*uai*n di a can aui di bawah 
diagonal uc-ura. renarikaaan dapat dlhenukan blla diiamukan 
eujtu Ml.jl a Atj.il . / 

for 1 *- 1 to llbarA do 
for j *- 1 to KkolA dp 

If Ali.Jl a AlJ.lJ then 
return felfle 
endlf 
endfor 
endfor 

return true 

endlf 

Algoritma 14.21 Memenksa kesimetnan malnks 
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Contoh 14.8. Mcncari elemen tcrbesar di dalam matriks 
Elemen maksimum matriks adalah elemen matriks yang mempunvai nilai 
terbcsar. Elemen maksimum matriks dicari dengan meneiusuri semua 
elemen matriks, mulai dari elemen A[ 1, il sampai elemen A[Nbar, Nkol]. 

Algoritma mencari elemen terbcsar sebagai berikut: 

proceduxj> M.ikmmuml input A i Hatrikolnt, input Nbar. Nkol i Integer . 
outp ut Make : integer ) 

( Mencari demon makalmun pada matriks All..Star. l..NkolJ. } 

( K.Awal ; Matriks A sudafc terdelinlei harga clecen-elemer.nya. } 

{ K.Akliir: Make beriai demen nakai mum matriks A / 

DEKLARASI 

i : integer ( ladcka barie j 

J : integer l indeks kolom ) 

ALGORITMA: 

Maka «-9999 ( diasumsikun -9999 aobagai nilai maksimum ocnentara ) 

for » 4- 1 to Mbar do 
for j i- I to Nkol do 
It All,di > Make then 
Makn •- A(l. J) 
endif 

cndfpr 
e nd for 

Algoritma 14.22 Moncnn domon maksimum dl dalam malnks 


Contoh 14.9. Mencari elemen tertentu di dalam matriks 
Mencari nilai tertentu (mlsalkan .v) di dalam matriks. Bila x ditemuknn. 
maka kcluarnn yang diinginknn adalah indeks bans dan indeks kolomnya. 
Bila x tidak ditemukan di dalam matriks. maka indeks baris dan indeks 
kolom yang dihnsilkan masing-masing bemiini - 1 . 

Algoritma penenrian beruntun padn Inrikkita terapkan untuk matriks: 

proco dum Cnr.'XI Input A : Matxlknlnt, input Mbar. Nkol 1 intogor. 

Input x 1 lntogor, 

output IdxlMrin. ldxKolom 1 Integer) 

I Mencari x dl dalam matrxka All. Nbar. l..Nkolh 7 

I K.Await x mid.tl 1 terdefinlal nllninya: matrlkm A Jug* audah 
terdefinlni elemeti-elemennya, J 

/ KAkhiCt IdxDnrln dan IdxKolom bertai indeke aatrika aodamlkian 
aehlngga AI Idxnnria, hlxKolowl • x. Jlkn x tidak ditemukan. maka 
IdxBarln d, in JdxkoJom dilai nilai -1 I 

DEKLARASI 

I : integer ( indekn l>arln / 

J 1 integer ( Indekn kolom J 

ketrmu 1 boolean f true jJka X ditemukan, tmlae Jika oebaliknya I 
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ALGORITHM 

1 *- 1 

ketomu t alae 

whllo U S Nbar) and Inot ketemul do 

\ - 1 

( cduaurj e lemon- eleven matrikm p*da berie kc-1, dumilm dail 

kolom ke-J J 

while (j S Nkoi) and inot ketemul do 
if Ati,j| -X then 
ketomu »- true 
else 

j ♦- j . 1 { per ikea pada kolooi berikutnya ) 

endif 


endwhilo 

7 J > WkoJ or koc 


l 


IJ not kotemu then 

i *- 1 * 1 { akan dipitrlko* elemen'*!«»*•/> bariii borikuenya ) 

endif 
endw hile 

{~T > Nbar or ketomu J 

if ketomu then 
IdxHnrln ♦- 1 
IdxKolom «- J 

•lee 

IdxDaria * -i 

IdxKolom ♦- -1 
•ndif 

Algoritma 14.23 Moncari demon torlonlu di dalam mntnks_ 


Contoh 14.10. Memhuat matriks transpose 

Matriks transpose adalah matriks yang diperoleh dan matriks yang lain. 
Matriks transpose clihasilkan dcugan mcntnuisformusikan sehiruh demon 
pada bans 1 (dan matriks asal A) mcnjndi clcmcn-demcn kolom j (pada 
matriks transpose At ). sedemikian scliinggo 

At{j, i’J - A[i,j\ untuk setiap i dan j. 

Contoh matriks A dan matriks transpose- nya: 



1 

2 

3 

1 

1 

2 

3 

2 

5 

6 

7 

3 

9 

10 

11 

4 

12 

13 

14 


A 


12 3 4 


1 

1 

5~1 

9 

12 

2 

2 

6 

10 

13 

3 

3 

7 

11 

14 


At 



Ala 
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Vang harus dipcrhatikan dalam mcmbuat matriks transpose adalah ukuran 
matriks transpose, sebab ukuran matriks transpose akan berkebalikan 
dengan ukuran matriks asal (pada contoh di atas. A berukuran 4x3, 
sedangkan At 3 x 4). Kita mengasumsikan ukuran matriks transpose masih 
tetap lebih kccil dan ukuran maksinuim matriks yang telah dideklarasikan. 


Algoritma membuat matriks transpose: 

procedur e BoatTranopoae (input A 1 Katrikelnt, Inpu t .’.bar, Hkol: 
i nteger . 

output At x Katrikalnt, o utput t.*b«rAt. NkolACx 

{ Hembentuk transpose dar i sutrik* Atl..Hbar. l..Nkol). ) 

{ K.Awnl : MatrIkt A aud.th terdetxnitl nilai eleven-#1emennya. ) 

( K.Akhir: At adalah tranpote darX matriks A tedemikian tthingga 
AltJ.il • Alx.JI untuk tew a 1 dan j; UbaiAt dan NkolAt berisi 
ukuran natrikt hatil tratttpote (juni ah barit dan jualah koloml } 


DHKLARAOt 
1 1 integer 
J 1 integer 


( indekt barit I 
( i ndtkt kolon I 


AUKmiTOA: 

j.'baxAt •- Nkoi { jumtah barit tatnkt trantpoto ) 

MkolAt •- Nbar { jualah kolom pet rlks t ranoott ) 

[or i ► I to Nber do 
for j •- ] to Hkol do 
At J J, I) - All, II 
endCar 
andfor 


Algoritma Ik. 24 Mnmbu.it m,link# frnrispajo 


Con toll 14.11. Mcncetak elemen diagonal matriks 

Misalkan kita ingin mcncetak hanya clemen-clcnicn diagonal matriks. 
Elemen diagonal adalah elemen A[i, i| untuk semua /. Schagai contoh. bfiln 
matriks A schagai lierikut: 



1 

2 

3 

4 

1 

1 

2 

3 

4 

2 

2 

6 

7 

8 

3 

3 

7 

11 

12 

4 

4 

8 

12 

15 


maka yang dicetak adalah: 1 6 11 15. 

Algoritma mcncetak elemen-elemen diagonal matriks: 

procedure CetahDlagonal (input A : Katriks, input Nbar, Hkol : integer) 
{ Hencetak eleven-el emer. diagonal natrikt A( 1 ..Nbar. 2..Mkol ke 
pi rand keluaran. J 

{ K.Aval : Kacrika A oudah zerdefiniti nilai elernen-elevennya. ) 
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{ K.Akhir: Ele.wn Ali.iJ tercetjk ke pirar.tx keluaran. } 

DEKLARASI 
i : integer 
3 s In teger 

ALGORITMA: 

for 1 *- 1 to Nbar do 
for j ♦- 1 to Nkol do 
if i • j then 
write (Mi.il > 
end lf 
endfor 
cndfor 

AlQoritma 14.25 Mencelak etemen ©lemon diagonal mntnks 


( itxdeka barxa I 
( indeks kolca f 


AlQoritma CetakDiagonal di atns dapat dilmat lebih mangktis dcngan hanya 
.salu buah kalang/or sebagai berikut: 

procedure CetakDiagonal{ input A : Matrikolnt, Input Nbar. 

Nkol:Integer? 

{ Moncetak eiemen-olenen diagonal natxiko Ml..Nbar, i..Nkol ke 
pliant 1 keluaran. ) 

( K. Aw.il r Matriks A audah terdoflnlot nilai elemcn-clcmennya. } 
K.Akhir: Blecen A[i,l] tercetak Jre ptrantt keluaran, f 

DUKLARAS1 

1 * integer ' xndeka bai l a } 

1 1 integer f indeka kol o» ) 


AIX30A1TMA: 

for * «- I to Nbar do 
write IA(1.111 
qndfor 

Algorltmo 14.26 Mencelak elomen-elemon diagonal m iinka (vuret 2) 


Con toll 14.12. Matriks no! 

Matriks nol adalali matriks dcngan soimia demon adalah o. Matriks ini 
banyak berguna dalam maternalikn, khususnyan unluk menyimpulkan 
apakali basil operas! matriks mengaliasilkan matriks nol. 

Contoh sebuah matriks nol yang berukuran 4 x 4: 


1 

2 

3 

4 


1 >’ , i , » 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 
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Algoritma untuk memeriksa npnknh sebuab matriks mcrupaknn matriks nol 
adalah dengan menclusuri sclunih elemen malriks. Pemuriksaan dapat 
dihcnlikan bito ditemukan pcrtama knlinya scbuah A[i,j 1 / o untuk suatu i 
dan j. 

function Nol( input A : Katrikeint, Input Nb«r. Nkol : lnto gor) -♦ 
boo lean 

T Heircrlkaa apakah natrika All.. Nb.it, 1 ..N'ko 1I mcrupakan matnko noJ 
aengetibalikan nil.il true jlka A adalali matrika nol .»tau tala? Jika 
bukan matrlkn nol } 

fiSKLMASX 

i : i nteger { indaks barla ) 
j : integer I indeks kolon I 

ALGORITMA: 

for l «- 1 to NbarA do 
for j •- 1 to KkolA do 
it All. 31 $ 0 then 

return false ( bukan irucrtka nol. atopl / 
end If 
endfor 

•»*£or 

ft urn true { aevua AH.ji - 0 I 
Algoritma 14.27 Momonksa apakah matnks nol_ 


Contoh 14.13- Matriks segitiga bawali. 

Malriks segitiga bawah adalah matriks bujursangkar dengan semua elemen 
di alas diagonal utama adalah o. Malriks segitiga bawah banyak digunakan 
dalam pembahasan sol us i sislem persainaan 1 unjar (linear). 

Sebuab malriks bujursangkar di bawah ini morupakan malriks segitiga bawali: 


[211 0 0 _ [__0 

W$r 

0 

L ° 

m 


Algoritma untuk memeriksa apakah sebuab malriks merupakan malriks 
segiliga bawah adalah dengan menclusuri seluruh elemen matriks. 
Pemcriksaan dapat dihcnlikan bila ditemukan pcrtama kali A[i,j) - o untuk 
1 * l.Mar dnil j a i+l.MtA. 
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function SegitigaBawah( Input A : KatriksXct, input Nbar, Nkoli integer) 

—* boolean 

{ Nemeriksa apakah A[l. .Nbar. 1. .tikolj nerupakan matriks segitiga bawah. ) 
( Fungoi tr.cngembalikan ailat true jika A adalah matriks segitiga bawah 
atau false jika bukan. ) 

DEKLARASI 

i i integer ( indeks baria ) 
j : inte ger ( indeks kolom ) 

ALGORITMA: 

if Nbar * Nkol then { A bukan matriks bujurcangkar } 
return false 



for i *- 1 to Nbar A do 

{ pcrlksa elemen-elemen di ataa diagonal utama ) 

lor j •- i ♦ 1 to Nkol do 
if All,jj * 0 then 

re tur n false ( A bukan matriks segitiga bawah. stop/ j 
end if 
endfor 
endfor 
return true 

?n4Al 

Algoritma 14.28 Momenksa Spekah mtrifcs 1 §bWb» bmnh _ 


Conloli 14.14. Perkalian dua buah matriks 

Perkalian dua buah matriks A dan B mcnghasDknn matriks C, yaitu C ■ A x B. 
Algoritma mengalikan dua buah matriks lebih rumit daripada mcnjumlahkan 
keduanya. Syarat perkalian matriks A dan niatrik B: jumlah kolom matriks A 
hams sama dengan jumlah baris matriks B. 

Misalkan^[i..m, i..n] dan H(i..n. i..pl, yang dalam hal ini, 
m adalnb jumlah baris matriks A, 

n adalah jumlah kolom matriks A dan juga jumlah baris matriks B. 
p adalah jumlah kolom matriks B. 

Hasil perkalian A dan B mcnghasilkan matriks Cf i..rrt, l..p]. 

Algoritma perkalian matriks: 

1. Inisialisasi Cli,j] dengan o, untuk 1 * l, 2,.... ni dan j *= t, 2.p. 

2. Untuk setiap baris i - 1, 2. m pada matriks A lakukan: 

Untuk setiap kolom./ - I, 2.p pada matriks B lakukan: 

Untuk setiap baris k = t, 2,..., n pada matriks B lakukan: 

C[i,j)-Cli.j]*Mi.k]>B[kJ) 
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Contoh perkalian matriks: 


1 

2 

3 


10 

11 

4 

5 

6 

x 

12 

13 

7 

8 

9 


14 

15 


(1*10) 4-(2* 12)4-(3 *14) (1*11)4-(2*13)4-(2* 15) 
*= (4 *10)4-(5 *12)4-(6*14) (4*11)4-(5 *13)4-(6 *15) 
(7 *10)4-(8 *12)4-(9 *14) (7*11) +(8*13)+(9*15) 


76 67 

184 199 
292 326 


Pseudo-code algoritma perkalian matriks: 

procodu ro Porknl lnnM.itrika (input A : Matrlkslnt, i nput, m, n : Intogo t, 
inp ut B : KalriksXnt, Input p : integer , 
output C : K»trlkalnt, output NbarC, NkolC: tntoqor ) 
(Mangallkan matriks A{l..m, l..n/ dan l..pI monghasllk,in 

matriks Cfi..m, 1 ..pi. I 

I K.Awal t MatrIks A dan B audah terdetinlsl olemen-eleaennya. / 

I K.Akhir: Matriks C bcilsl basil perkalian A dan D. NbarC dan NkolC 
barisi ukuran matriks C I 

IiEKLARASI 

i, 1, k : intaoor 

ALGORITMA: 

NbarC «- m ( jumlah bans matriks haall perkalian I 
NkolC <- p I Jumlah kolom aatrika hasll perkalian I 

I inislallsasl seluruh eleaen matriks C dengan 0 I 
for l «- I to NbarC do 
for ) 4- 1 to NkolC do 

a i,ji 4- o 

endfor 

o ndfor 

I lakukan operasi perkalian I 
tor l 4 - 1 to m do 
for J *- 1 to p do 
for k *- 1 to n do 

q i.)l *- q 1.31 • H l.kl • « k,fl 

ondfor 

ondfor 

ondfor 

Algoritma 14.29 Perkalian dua buah matnks (verst 1) 


Inisialisasi matriks C dengan o dapat dilakukan sekali jalan dengan operasi 
perkalian. Perbaikan algoritma perkalian di atas sebagai berikut: 

procedure PerkallanMatrlks( Input A : Matrikslnt, input m, n : integer , 

input B : Katrikalnt, Input p : integer , 
output C : MatriksXnt, output NbarC, NkolC: 
integer ) 
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{ Mengalikan nut riks All..a. l..nj dan B{l..n. l.pj menghaailkan 
macrika Cfl..m. l..pj. } 

I K.Aval : Matrtko A dan B audah cerdefiniel elcmen-alemennya. J 
{ K.Akhlr: Macrika C txrriai haoil parkalian A dan B. NbarC dan UkolC 
burini ukuran macrika C } 

DEKLARASI 

i t i nteg er 
j i integ er 
k i inte ger 

ALOORITMA: 

NbarC m { jumlah barla macrika haail perkallan } 

MkolC «- p { jumlah kolcm macrika haail perkallan ) 

for 1 •- 1 to m do 
for j «- 1 to p do 

Cli.j] *- 0 ( inlaialinaai CU.ji dangan 0 ) 

for k *- 1 t o n do 
' Cli.j] ♦- Cli.j) . AU.k) • B(k.J) 
endfor 
endfor 
endfor 

Algorltma 14.30 PorknHnn due txmh metnks (ve n!2) 


.lika A dan H kcduanya bcrukuran bujursangkar (n x n), maka nlgnritma 
pcrkalian matriks mcnjadi lebih scdcrhana. Hasil pcrkalian adalah matriks C 
yang juga bcrukuran n x n. Ukuran matriks basil pcrkalian tidak pcrlu 
disimpan. Pseudo-code algoritmanva sebagai berikut: 

procedure PerkallanMotrike I input A. B i Hatrlknlnt, input n i Integer, 

c 1 Metrlkelnt) 

{ Nengalikan macrika A 11 ..n, l..n] dan l..nj monghani Ikan 

macrika C(l..n, l..nj. ) 

f K.Awal : Macrika A dan B audah tardefiniai olemun-alemannya . } 
K.Akhlr: Macrika C beriol haail perkalian A dan B. ) 

DRKLARASI 
i : integer 
j : integer 
k : inte ger 

ALGORITMA: 

for l *- 1 to n do 
for ) *- 1 to n do 

Cli.j] •- 0 ( iniaialiaaai Cli.j] dengan 0 ) 

for k «- 1 to n do 

Cli.j) - Cli.jl . Ali.k] • B(k.J) 
en dfor 
endfor 
endfor 

Algorltma 14.31 Perkalian dua buah matnks (versi 2) 
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Contoh 14.15. Matriks karaktcr 

Sebuah matriks karaktcr W bcrukuran m x n. Elemen-elemcn pada seliap 
bans bcrisi karaktcr-karaktcr pomhcntuk kata (lihat contoh di bawab). Satu 
bans menyatakan sebuah kata. Akhir sebuah kata ndalah karaktcr spasi (’ 
Diasumsikan elcmen pcrtania pada sctiap bans bukan spasi. Elcmcn matriks 
yang kosong bcrisi spasi. 



1 

2 

3 

4 

5 

6 

... 

n 

l 

•a’ 

*m' 

P-. 

*u* 

•h- 




2 

V 

guH 

’n' 

*cT 

EH 

'n‘ 

K 


3 

V 

Efl 

'n* 






A 

EH 

V 

*m' 

VH 

EH 

•h* 



5 

vm 

EH 







6 

km 

v 

EH 






• •• 

— 








in 

'in* 

‘a’ 

V 

T 






Tuliskan algoritmn uiituk: 

(a) mencetak sctiap kata 

(b) lcbar kata terpanjang 

Pcnyclesaion: 

(a) Mencetak sctiap kata 

Aigoritmanya sebagai berikut: tclusuri clcmcn-elcmen matriks per baris 
per kolom. Selamn elcmen matriks hukan spasi, cetak karaktcr di datnm 
elcmen matriks tersebut. 

proced ure Cot akKata(input H 1 MatrikaKar. input in, n i integer ) 

/ Mencetak -kata* di dalaa matrike H ) 

l K.Awal 1 Matrika * audah terdefiniai eiencn-eJemennya. ) 

( K.Akhir: "kata' tcrcetak ke piranti kelusran. / 

DBKLARASI 

i 1 integer { panelist mdekr. barle J 

3 * integer / pencatat 1 ndeka kolom ) 

ALOORlTHAt 

for i «- 1 to a do 

/ cetak ole men aatrlka pada batia i eaapai ketemu apaei I 
for J ♦- 1 to n do 

If Wti.j) f • • then 
vrite lWti, 11) 
end if 
endfor 

endfor 

Algorttma 14.32 Mencetak kata' pada setap bans matnks 
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(b) Menentukan Icbar kata tcrpanjang 

Algoritmanya scbagai bcrikut: asumsikan untuk sementara Icbar kata 
tcrpanjang adalah o. Telusuri clcmcn-clcmcn matriks per bans per 
kolom. Catat Icbar setiap kata, lalu bandingkan dengan lebar kata 
tcrpanjang sementara. Jika lebar kata sekarang lebih besar daripada 
lebar kata tcrpanjang sementara. ubahlah lebar kata tcrpanjang sementara 
dengan lebar kata sekarang. 

procedure Hltur.gLebarKataTerpanjangt input Vi : MatnkoKar. 

input a, n 2 integ er, output p : inte ge r ) 

( Senenlukar. Icbar kata tcrpanjang } 

( K.Aval : Kaenka K audah tcrdetiniai clown-elaoennya. ) 

I K.Akhlr: p borl8i lebar kata tcrpanjang. ) 


DEKLARAS I 

i x intege r ( pencatar indeka bar la ) 

j » integer ( pcncatat indeka kolcn f 

panjang 1 integer ( Icbar kata } 

ALGORITMAi 

p •- 0 ( lebar kata terpanjang acmrntara } 

for i *- 1 to b do 
panjang ♦- 0 

( hi rung pan Jang kata p.tda bar la i ) 
for i t- 1 to n dp 

if MU,3) * • • then 

panjang ♦- panjang • 1 
•ndif 
endfor 

I update nllal p I 
If panjang » p then 
p •- panjang 
end i f 

endfor 

Algorltmn 14.33 MonontuKon lebar Kata terpanjang 


Soal l.atihun Bab 14 

1. Apa perbedaan pada dcklnrnsi 2 buah matriks tempera tur-tekanan di 
bawah ini: 

DEKLAPASI 

{ Macrlka toTperacur-tekanan ) 

conat HBarioKaka - ... ( junlah baric eucrJka ) 

conat NKolooMaks «... ( Jxmlab kolon matrlka ) 
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5ype TP i record <T; real ,.tp;:real>- { tip* alemen nacrlko } 

B » array (1. HbariaWake. 1..NKolooMaka) of TP 
DBKLkRASI 

/ Matrlko t®mparatur-ta*aiian } , i : J I 

const ifftariaMake ... f'jumlah bario matri/ca j * 

• const HKolcxiMako .... f jumlah kolom maetika ) 

type TP i record <T i array Cl. .WbarloMaka. 1. .NKoloo#lakoJ of real . 

P : array [1. .MbarlalVOca. 1. .Nltolc»Maka] of real > 

?V /. !•«•* 1.1 i ( *•!». '* .1 < . I » . 

B i TP 


2. Diberikan sebuah matriks bujursangkar yang berukuran n x n. Tuliskan 
algoritma untuk menentukan apakah matriks tersebut merupakan 
matriks segitiga atas. 

3. Diberikan sebuah matriks bujursangkar yang berukuran n x n. Tuliskan 
algoritma untuk menentukan apakah matriks tersebut merupakan 
matriks identitas (/). 

4. Misalkan matriks C yang berukuran m x n sudah berisi data karaktcr. 
Ibliskan algoritma untuk menghitung frekuensi kemunculan huruf'A’ di 
dalam matriks tersebut. 

5. Diberikan sebuah matriks integer yang berukuran m x n. Tuliskan 
algoritma untuk menentukan apakah di dalam matriks tersebut ada 
baris yang semua elemennya o. 

6 . M orang mahasiswa mengambil n mala kuliah. Setelah seluruh ujian 
akhirselesai, nilai rata-rata (NR ) mahasiswa tersebut segera dihitung. NR 
dihitung dengan rumus: 

'E'UKjXSKS, 

i sks > 

>-i 

yang dalam hal ini, MKj adalah mata kuliah yang ke-7 dan SKSj adalah 
bobot SKS dari mata kuliah MKj. Nilai mahasiswa (berupa indeks nilai A, 
B, C, D, E) disimpan di dalam matriks NilaiMhs yang berukuran mxn. 
Baris i pada matriks menyatakan mahasiswa ke-i, dan kolom j 
menyatakan mata kuliah ( MK ) ke-j. Setiap elemen matriks adalah 
berupa record yang terdiri atas field SKS dan field IndeksNilai (jadi 
matriksnya berripe terstruktur). NilaiMhs[ i, j ] menyatakan data nilai 
mahasiswa i yang mengambil mata kuliah j, NilaiMhs[ i,j ]. IndeksNilai 
menyatakan indeks nilai mata kuliah j yang diambil mahasiswa i. 
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Tulislah algoritma untuk menghitung dan menuliskan NR setiap 
mahasiwa. 

7. Tinjau matriks B pada Gambar 143 dan pendeklarasian tipe matriksnya. 
Tuliskan algoritma untuk menentukan titik-titik pada permukaan logam 
yang temperatumya di atas T 0 dan tekanannya di atas P* T 0 dan P 0 
a dal ah parameter masukan. 

8 . Tinjau kembali Contoh 14-15- Tuliskan algoritma untuk menentukan 
kata terpanjang. 
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Algoritma Pencarian 



Pencarian ( searching) merupakan proses yang fundamental dalam pengolahan 
data. Proses pencarian adalah mencmukan nilai (data) tertentu di dalam 
sckumpu/an data yang bertipe sania (haik bertipe dasar atau bertipe 
bentukan). Sebagai contoh, untuk mengubah (update) data tertentu, langkah 
pertamn yang harus dllakukan adalah mcncari keberadaan data tersebut di 
dalam kumpulannyu. Jikn data yang dicari ditemukan, mnka data tersebut 
dapat diubah nilainya dengan data yang baru. Aktivitas awal yang sama juga 
dilakukan pada proses penambahan ( insert) data baru. Proses pcnambnhan 
data dimulai dengan mcncari apakali data yang akan ditambahkan sudah 
terdapat di dalam kumpulan. Jika sudah ada dan 
mengasumsikan tidak boleh ada duplikasi data 
maka data tersebut tidak perlu ditambakan, tetapi 
jika belum ada, maka tambahkan. 

Bab 15 ini membicarakan algoritma pencarian data 
di dalam larik. Algoritma pencarian yang akan 
dibicarakan dimulai dengan algoritma pencarian 
yang paling sederhana (yaitu pencarian bemntun 
atau sequential search) hingga algoritma 
pencarian yang lebih maju yaitu pencaian bagidua Sumbcr. http://www.cpa.gov 
(binary search). 
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15.1 Spesifikasi Masalah Pencarian 


Pertain a-lama kita menspesifikasikan masalah pencarian di dal am lank. Di dalain 
Bab 15 ini kita raendefinisikan persoalan pencarian secara umum sebagai berikut: 
Diberikan larik L yang sudah terdefinisi elemen-elemennya, dan x adalah 
elemen yang bertipe sama dengan elemen larik L Carilah x di dalam larik L. 

Hasil atau keluaran dari persoalan pencarian dapat bermacam-macam, 
bergantung pada spesifikasi rind dari persoalan tersebut, misalnya: 
a. Pencarian hanya untuk meraeriksa keberadaan x. Keluaran yang 
diinginkan misalnya pesan ( message ) bahwa x ditemukan atau tidak 
ditemukan di dalam larik. 


Contoh 


writs ('ditemukan 1') atiu 
writs (•tidak ditemukant') 


b. 


Hasil pencarian adalah indeks elemen larik. Jika x ditemukan, maka indeks 
elemen larik tempat x berada diisikan ke dalam idx. Jika x tidak terdapat di 
dalam larik L, maka idx diisi dengan harga khusus, misalnya -1. 

Contoh: Perhatikan larik di bawah ini: 


L 


I 21 I 36 | 8 17 I 10 I 36 
1 2 3 4 5 6 



32 | 12 I 10 I 36 1 
89 10 11 


Misalkan x - 68, maka idx - 7, dan bila x - 100, maka idx - -1. 

c. Hasil pencarian adalah sebuah nilai boolean yang menyatakan status hasil 
pencarian. Jika s ditemukan, maka sebuah peubah bertipe boolean, 
misalnya “ketemu", diisi dengan nilai Inifi, sebaliknya "ketemu" diisi 
dengan nilai false- Hasil pencarian ini selanjutnya disimpulkan pada 
bagian pemanggilan prosedur. 

Contoh: Perhatikan larik L di atas: 

Misalkan x ■ 68, maka ketemu ■ true, dan bila x - 100, maka ketemu - 
false . 

Untuk kedua macam keluaran b dan c di atas, kita mengonsultasi hasil 
pencarian setelah proses pencarian selcsai dilakukan, bergantung pada 
kebutuhan. Misalnya menampilkan pesan bahwa x ditemukan (atau tidak 
ditemukan) atau memanipulasi nilai x. 


Contoh; 


(1) if idx # -1 then [ x dJteaxJcun ) • ! f j V* 

Lfidx] ♦- L (Idx) til* \f ■sflipuJssi nilai x ) 

. -matt -• s. TTT• *,i . 


na 
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( 2 ) if ketemu then { yaitu , Jceteou » true^ 
write (x, ’ tldak ditemukan') 
el®e 

write (x. 'ditemukan') • ' 

endif 

Hal lain yang hams dipeijelas dalam masalah pencarian adalah mengenai 
duplikasi data. Apabila X yang dicari terdapat lebih dari satu banyaknya di 
dalam larik L, maka hanya X yang pertama kali ditemukan yang diacu 
algoritma pencarian selesai. Sebagai contoh, perhatikan larik di bawah ini: 

L | 21 I 36 | 8 17 I 10 I 36 I 68 I 32 I 12 I 10 I 36 H 
1 23456789 10 11 

Larik L memiliki tiga buah nilai 36. Bila x * 36, maka algoritma pencarian 
selesai ketika X ditemukan pada elemen ke-2 dan menghasilkan idx = 2 
(atau menghasilkan ketemu - ims jika mengacu pada keluaran pencarian 
jenis c). Elemen 36 lainnya tidak dipertimbangkan lagi dalam pencarian. 

Algoritma pencarian yang akan dibahas di dalam Bab 15 ini adalah: 

1. Algoritma pencarian beruntun ( sequential search ). 

2. Algoritma pencarian bagidua ( binary search). 

Untuk masing-masing algoritma, tipe larik yang digunakan didefinisikan di 
bagian deklarasi global seperti di bawah ini. Larik L bertipe LarikJnt. 

( kamue data global ) 

DBKLARASX 

conat Kmako » 100 (jumlah nmkalmxm alanen larik ) 
type Lariklnt • array [l..Wmaka) of integer 

Alg oritma 18.1 Dekiafti tarl k inleQtf yog dfrunaken d l daiam bab >nl. _ 


15.2 Algoritma Pencarian Beruntun 

Algoritma pencarian yang yang paling sederhana, yaitu metode pencarian 
beruntun (sequential search). Nama lain algoritma pencarian beruntun 
adalah pencarian lurus (linear search). 

Pada dasamya, algoritma pencarian beruntun adalah proses membandingkan 
setiap elemen larik satu per satu secara beruntun, mulai dari elemen pertama, 
sampai elemen yang dicari ditemukan, atau seluruh elemen sudah diperiksa. 

Contoh 15.1. Perhatikan larik L di bawah ini dengan n - 6 elemen: 

FTTl 16 I 14 I 21 I 76 I in 
1 2 3 4 5 6 
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Misalkan nilai yang dicari adalah: x = 21 

Elemen yang dibandingkan (bertumt-tumt): 13,16,14,21 (ditemukan!) 
Indeks larik yang dikembalikan: idx = 4 

Misalkan nilai yang dicari adalah: x = 13 

Elemen yang dibandingkan (berturut-tunit): 13 (ditemukan!) 

Indeks larik yang dikembalikan: idx = 1 

Misalkan nilai yang dicari adalah: x = 15 

Elemen yang dibandingkan (berturut-tunit): 13,16,14,21,76, 21 (tidak 
ditemukan!) 

Indeks larik yang dikembalikan: idx = -1 

Terdapat dua versi algoritma pencarian beruntun. Pada algoritma versi 
pertama, aksi pembandingan dilakukan sebagai kondisi pengulangan, 
sedangkan algoritma versi kedua, aksi pembandingan dilakukan di dalam 
badan pengulangan. Versi pertama tidak menggunakan peubah boolean 
dalam proses pencarian, sedangkan versi kedua menggunakan peubah 
boolean. Untuk masing-masing versi kita tuliskan dua macam algoritmanya 
berdasarkan hasil yang diinginkan: indeks larik atau nilai boolean. Selain itu, kita 
asumsikan jumlah elemen di dalam larik adalah n buah. 

(a) Versi 1 (Pembandingan elemen dilakukan sebagai kondisi 
pengulangan) 

(1) Hasil pencarian: sebuah peubah boolean yang bemilai true 
bila x ditemukan atau bemilai/abe bila x tidak ditemukan. 

Setiap elemen larik L dibandingkan dengan x mulai dari elemen pertama, 
£[1]. Aksi pembandingan dilakukan selama indeks larik i belum melebihi n 
dan L[f] tidak sama dengan x. Aksi pembandingan dihentikan bila L[i] ■ x 
atau i - n. Elemen terakhir, L(nJ, diperiksa secara khusus. Keluaran yang 
dihasilkan oleh proscdur pencarian adalah sebuah peubah boolean (misal 
nama peubahnya ketemu ) yang bemilai true jika x ditemukan, atau bemilai 
false jika x tidak ditemukan. 

Algoritma pencarian beruntun versi 1 untuk kategori hasil berupa nilai 
boolean dapat kita tulis sebagai sebagai prosedur atau sebagai fungsi. 

(i) Prosedur pencarian beruntun: 

procedure BoqBoarchl( Input L 1 Leriklnt, Input n 1 Integer . 

Input x 1 Integer , output ketemu. boolean ) 

( Mencarl keberadaan nilai x di dalam larik Lfl..nJ. J 
{ K.Await x dan larik Ltl..nJ audah terdefinlei nilainya. ) 

I K.Akhirt ketemu baroilai Cm# Jika x ditemukan. Jika x tidak 
ditaomkan. ketemu bemilai f alng . J 
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{ pencatat indeks larik ) 


DEKLARASI 

i : integ er 

ALGORITMA: 
i 4 - 1 

while (i < n ) and (L[il / x) do 
i 4 - i ♦ 1 
cndwhile 

7 i • n or L [ij - x f 

if Lfi) -x then { x dltermkan ) 

kctomu 4~ true 
olee 

kctecnu *- false ( x tidak ada dl dalam larik L J 

endif 

Algoritma 15.2 Prosodur pencafian berunlun (vorsi 1. hasil poncanan booloan) 


(ii) Fungsi pencarian berunlun: 

function SoqSonrchl (input L i Lariklnt. input n i integer, 
input x i integer ) -* boolean 

( Mengetuballkan nllai true Jika x ditemukan dl dalam larik L[l..nJ, 
atau nllai talon Jlka x cidak ditemukan. J 

DEKLARASI 

1 « integer f pencatat indeka larik ) 

ALGORITMA; 
i 4 - 1 

while (1 < n ) end (L(i) a x) do 

i •- i ♦ 1 

ondwhile 

/ 1 • n or HI) - x f 

if L[il • x then ( x ditemukan ) 
return true 

olee 

roturn fnlo« l x tidak ada dl dalam larik L ) 

endif 

Algoritma 15.3 Fungsi poncarten berun(un (versJ 1. hasil poncanan boolean) 


Perhatikanlah bahwa padn algoritma seqsearchi di alas, pembandingan x 
dengan elemen larik dilakukan pada kondisi pcngulangan. Apabila elemen 
larik yang ke-i tidak sama dengan x dan i belum sama dengan n, aktivitas 
pembandingan ditemskan ke elemen berikutnya (i ♦- i+i). 

Pembandingan dihentikan apabila £[i] = x atau indeks i sudah mencapai akhir 
larik (i = n). Perhatikan juga bahwa jika i sudah mencapai akhir larik, elemen 
terakhir ini belum dibandingkan dengan x. Pembandingan elemen terakhir 
dilakukan bersama-sama dengan penyimpulan hasil pencarian. Hasil pencarian 
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disimpulkan di luar kalang while-do dengan pemyataan if <L[iJ = x) then 


Pemyataan if-then ini juga sekaligus mcmeriksa apakah elemen terakhir, 
/-[»«]. sama dengan x. Jadi, pada algoritma seqsearchi di atas, elemen 
terakhir dipcriksa secara khusus. 

Prosedur seqsearchi dapat dipanggfl dart program utama atau dari 
prosedur lain. Misal kita asumsikan prosedur seqsearchi dipanggil dari 
program utama. MLsalkan program utama Ixrtujuan untuk memeriksa 
keberadaan x di dalam larik. Jika x terdapat di dalam larik maka ditampilkan 
pesan "ditemukan!”, sehaliknya jika x tidak terdapat di dalam larik maka 
ditampilkan pesan “tidak ditemukan!". 

Con toll program utama yang memanggil prosedur seqsearchi: 

PROGRAM Pencarlan 

( Program untuk mencari ntlai tortentu di dalam lank } 

DEKLARASI 

conot Mmako - 100 { Jumlah makaimum elaaen larik ) 

type Uriklnt i array (1. .Nouikal of integ er 

L i Uriklnt 

x i Integer f eJorum yang dicari } 

found i boolean ( true jika x ditrmjkan, faluo Jika tidak ) 
n i Integer ( ukuran larik ) 

f rocodure OacaLailk(output L t Larlklnt. Input n i Integer ) 

Mongiai elemen larik L[l..n] dengan nilat yang dibaca dari 
pi rant i maaukan } 

procedure SeqSearchl(input L i Uriklnt, Input n i Integer, 

input x :integer, output ketemu i boolean I 
( Moncar 1 koboradaan nilal x di dalaa larik Lfl..nJ. } 

ALGORITMA: 

read(n) ( t ontukan banyaknya elemen larik } 

BacaLarik(L, nl ( baca elemen-olemen larik L) 
rend (x) ( baca nilai yang dicari ) 

ScqSoorchUL, n. x. found) / cari ) 
it found then { found • true f 
write (x. * ditemukan!*) 
aloe 

wrlte lx, • tidak ditemukan!' J 
end it 

Algoritma 15.4 Conloh program utama pemongg.inn prosedur Poncarinn boruntun 


Prosedur BacaLarik yang disehutkan di dalam program utama di atas 
algoritmanya seperti di bawah ini: 
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procedure Baca Lari* {output L : Larrfclnt. Input n : integer ) 
rMengiai clcmcn larik Lll..n] d engar. nilai yang dibaca dan piranti 
nufiukan .} 

[ K.Avalz lank 1 . belim terdetinlui elemer.-eleoennya. n eudah beriai 
jumlah demon efekcit. n diasuasikan tidak lebih bcoar dari 
ukuran makaimum lank (Kmaksl. ) 

{ K.Akhir: octelab penbacaan. sebanyak n fcuah eleven larik L beriai 
nilal-nilnl yang dibaca dan piranti nasukan } 

DEKLARASI 

1 * i nte ger ( penc.it.it xndeka larik } 

ALOORITMA: 

for l «- l to n do 
read(L(10 
endfor 

Algorllma 15.5 Prosedur pernb.i »on-«lemon lank _ 


Untuk pencarian beruntun yang berupa fungsi, contoh cara pemanggilan 
fungsi SeqSearchl r 

read(x) 

If not deqHearchl(L.n, x> then 
write|x, ' tidak ditemukani‘1 
elae 

I proaea torhadap x } 
end if 


2. I Iasi I pencarian: imlcks clcmcn larik yang mengandung nilai x. 

Setlnp clcmcn larik I. dibandingkan dengan x mulai dnri clcmcn pertame, 
/-Ill- Aksi pembandingan dilakukan sclama indeks larik i belum melcbihi n 
dan /.l»| tidak sama dengan x. Aksi pembandingin dihentikan bila L[i] ■ x 
atau i * N. Klcmcn tcrakbir, tin), diperiksa sccara khusus. Kcluaran yang 
dihasilkan oleb prosedur pencarian adalah peubah idx yang l>crisi indeks 
larik tcinpat x ditemukan. Jika x tidak ditemukan, idx diisi dengan nilai -i. 

Algoritma pencarian benmtun versi i untuk kategori basil benipa indeks 
clcmcn larik dapat kita tulisyakni sebagai prosedur atau sebagai fungsi. 

(i) Prosedur pencarian beruntun: 

procedure SeqScarch2 ( input L s larik, input n : integer . Input x : integ er. 

ou tput idx i Int eger ) 

/ Mencari keboradaar. nilai x di dalaa larik Lfl..nJ. } 

{ K.Avail x dan elcmcn-eleacn larik L[l..n) eudak terdefiniai.} 

{ K.Akhir: idx beriai indeks larik L yang beriai nilai x. Jika x tidak 
ditemukan. maka Idx dnsi dengar. nilai - 15 . } 

DEKLARASI 

i s integer f pencacat indeks larik / 
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ALGORITMA: 
i 4 - 1 * 

while (i < n ) and (L[il * x) do 
l<-i.l 
endwhile 

{ 1 - n or L[i] - x ) 

If Liu - X then ( X ditecakan ) 

ldx ♦- i 

else 

idx *- -1 
end if 

Algoritma 15.6 Prosodur poncanon borunlun (vorsi 1. hasH poncarian: indoks olomon) 


(ii) Fun^si pcncarian beruntun: 

function SoqSoarch 2 (input L : lank, input n i Integer, 

Input x i integer) -* integer 

{ Mengombalikan indeka larik Hi. .n) yang boilai x. Jika x tidak 
ditemukan, make indeka yang dlkeabalikan adalah - 1 . } 

DBKLARASI 

l j integer ( prncat.it Indeka larik ) 

ALGORITMAi 
1 «- 1 

while (i < n » and (L|l| a x) do 
1 ♦— 1 ♦ 1 
endt-h^lo 

Pi i n or Hl\ • x ) 

if Lli] -x then ( x ditemikan ) 

return 1 

?i25 

re turn -1 

ondif 

Algoritma 15.7 Fungsl pcncanan borunlun (vorci 1. haul poncanon: indoks olomon) 


Misalkan program yang memanggil prosedur SeqSearch 2 bertujuan unluk 
mcnambahkan (append) nilai x ke dalam larik. namun scbelura 
penambahan itu hams dilentukan apakah x sudah terdapat di dalam larik. 
Jika x belum terdapat di dalam larik, maka x ditambahkan pada elemcn ke- 
n+i. Karena itu kita harus memastikan bahwa penambahan satu elemen 
bam tidak melnmpaui ukuran maksimum larik (Nmaks). Setelah 
penambahan elemen bam ukuran larik efektif inenjadi n + 1. 

PROGR AM TatnbahElemenLariJc 

{ Program untuk menarb.thkan elemen baru pada ke dalam larik. Elemen 
baru dibaca dari pi rant 1 eaaukan. lalu dicari apakah audah 
terdapat di dalam larik. Jika belum ada, tambahkan elemen baru 
setelah elemen cerakhir. } 
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DEKLARASI 

co not Nmaka ■ 100 { ) uni ah maksiaum eleven larik ) 

type Lariklnt i array [1. .Kr.aksl of integer 

L : Lariklnt 

n : integer { ukuran larik L ) 

x : integer { eleven yang akan dicari } 

idx : integer ( ncncatat indeks eleven larik yang beriai X J 

p rocedure BacaLarik( outp ut L i Lariklnt, input n : integer ) 

( Nonglai eleven larik L[l..n] dengan data integer ) 

procedure SoqSearch2(input L : Lariklnt, input n i integer, 

input x i integer, output idx i i nteg er) 

( Mencari keberadaan nilai x di dalam larik L(l..nl. ] 

ALGORITMA: 

read(n) f tentukan banyaknya eleven larik } 

BacaLarik<L,n> ( baca eleven-el even larik L ) 

readlx) 

SeqSearch2(L,n,x,idx) ( cari x aebelun ditambahkan ke dalam L } 
if idx * -1 then 

write (x. ’ audah terdapat di dalam larik') 

eluo { x belum tenlapat di dalam larik L. tairbahkan x pada poaial 
ke-ntl l 

n *- n ♦ 1 I nalkkan ukuran larik } 

Llnl *- x [ olalpkan x ) 

?ndlf 

Algortlma 15.8 Program ponambahon olomen larik 


Unluk pcncarion bcrunlun yang bcrupa fungsi, contoh cara pemanggilan 
fllligsi SoqSearch2 i 
read (x) 

idx •- Seqflearch2(L.n,x) 
if idx • -1 then 

write(x, * tidak ditcmukani') 

oloe 

I Inntrukai manlpulaoi t erhadap L(ldxl ) 

end if 


(a) Vcrsi 2 (I’cmhundingun demon dilakukan di dalurn badan 
pengulangan) 

Pada vcrsi rang kedua ini, aksi pcmbandingan dilakukan di dalam badan 
pcngnlangan (jadi bukan di awal pengulangan seperti pada varian pertama). 
Untuk itu, kita mernerlukan sebuab pcubah boolean yang akan berfungsi untuk 
menyalakan apakah x sudah dilemukan. Misalkan peubali tersebut bemama 
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ketemu yang pada mulanya diisi nilai false . Bila x ditemukan pada elemen ke-i, 
yaitu L[i I = x, makn ketemu diisi dcngan nilai true . Pcngulangan dihentikan bila 
ketemu = true . Hasil pencarian disimpulkan di luar Ixulnn pcngulangan. 

Algoritma pencarian beruntun versi 2 lebili clegan dibandingkan dengan 
algoritma versi 1 karena semua elenien dibandingkan dengan cara yang 
sama. Algoritma pcncariannyn kita buat dua inn cam, yang pertama untuk 
basil pencarian bempa berupa peubah boolean, dan algoritma kedua untuk 
basil pencarian bempa indeks elenien Inrik. 

2. Hoail pencarian: schuah peubah boolean yang bernilai true 
bila x ditcinukan atau bernilai false bila x tidak ditcinukun. 

Pada versi ini. peubah boolean ketemu diinisialisasi dengan nilai false dim 
indeks larrik i diisi dengan 1 (karena pemhandingan dimulai dan elenien 
pertama). Setiap elemen /. dibandingkan dengan x mulai dari elenien 
pertama. .lika L[i] sama dengan x, peubah ketemu diisi nilai true dan 
pcngulangan dihentiknn. Sebaliknya, jikn /.|i| tidak sama dengan .v, 
pembandingan dilanjutkan untuk elenien berikutnva (1«- f ♦ 1). Pada versi 2 
ini, setiap elenien larik, termasuk elemen terakbir, diperiksa dengan cara 
yang sama. Keluaran yang dibasilkan adalab nilai yang disimpan di dalam 
peubah ketemu. 

Algoritma pencarian beruntun versi 2 untuk kategori basil berupa nilai 
boolean dapat kita tubs yakni sebagai prosedur atau sebagai fungsi. 

(i) Prosedur pencarian beruntun: 

procedure 3wqRoarch3 (Input 1. i Lertklnt, Input n i Integer . 

input x i integer, output kntomu i boolean) 

( Mencarx keberadaan nilai x di dalaa larik Ltl..nl. ) 

( K. Await nilai x, n. dan elmmmn larik Lfl .nJ nudah terdet mini. } 

I K.Akhirt ketemu bernilai true Jtka x ditemukan. Jlka x tidak 
ditemukan. ketemu bernilai lale e. ) 

DBKLAKASI 

1 j integer / pencatat indeke larik f 

ALGORITMA: 
i «- 1 

ketemu *- falo e 

while (i S n ) and Inol keteoul do 
If L[1} -x then 
ketemu «- true 
alee 

t *- i * 1 

end if 
endwhlle 

7 l » n or ketemu J 

Algoritma 15.9 Prosedur pencarian beruntun (versi 2 . hasil poncanan boolean) 
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(ii) Fungsi pcncarian berunlun: 

function SeqSearchl(input L t Lariklnt, input n : integer, 
i nput x i i nteger ) -» boolean 

{ Hengemba 1 i kan nilai true Jika x dieemukan di dalam larik L[l..n ]. 
Jika x tidak diteamkan, nilai yang dtkerabal ikan adalah false. ) 

Dine LARAS I 

i I Integer { pencatat indeks larlk ) 

ALGORITMA: 

i «- 1 

ketemu 4- false 

while (i 4. n ) and (not ketemu) do 
if L(i| - x then 
ketemu *- true 

III! 

1 •— t ♦ 1 
endIt t 
en dwhile 

( i » n or ketemu J 
return ketemu 

Algoritma 15.10 Fungsi pencanan boruntun (vorsi 2. hosil ponconon boolean) 


2. I lasil pcncuriun: indeks demon lnrik yang mengundung nilai x 

Algoritmnnya sama seperti seqsuorchi di alas, hanya si\ja setelah kalang 
while-do ditainbahkan pemyalann if-then untuk memberikan hosil 
pcncarian berupa indeks elemen lnrik (idx) yang berisi nilai x. Jika x lidak 
diU'imikan maka ic/v cliisi nilai -i. 

Algoritma pcncarian benintun versi 2 untuk kalcgori basil berupa indeks 
elcnion larik dapnt kila lulisvakni sebagai prosedur atau sebogai fungsi. 

(i) P rosed ur pcncarian bcrunlun: 

procedure SuqQoarch*(input L : Lariklnt, input n : integer, 

input x « integer, output idx i integer ) 

{ Noncari keberadaan nil.ii X di dalam larik Hl..n]. } 

{ K.Awali x dan elemen-elemen larik L/ 1 ..NJ audah terdefiniai. ) 

( K.Akhir: idx beriai indeka larik L tenf«c x berada. Jika x tidak 

dltcmukan, maka idx diiai nilai -I. ) 

DEKLARAS 1 

l i inte ger 
kotemu : booIcon 

ALGORITMA: 
i 4- 1 

ketemu 4 - false 

whil e (i £ n ) and (not ketemu) do 
if L|l| - x then 


{ pencatat indeks larik I 
( true bila x ditemukan. false bila tidak ) 
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ketemu ♦- true 
elae 

i ♦- 1*1 
end i f 
endwhile 

{ i > n or ketemu ) 

it ketemu yien { x ditamukaa f 
Ldx *- i 

else l x tidak ditemukar. } 

idx «- 1 

ondif 

Algoritma 15.11 Prosedur pencarian beruntun (vorsi 2. haul pencanan mdeks olomon) 


(i) Fungsi pencanan beruntun: 

function SeqSearch*(input L t LarlkXnt, input n i integer, 
input x i integer) -» integer 

{ Nongemballkan indaka larlk 1(1..nj yar^beriai x. Jika x tidak 
ditamukan, maka Indaka yang dikambnliknn adalalt -1. I 

DKRLARASZ 

i i integer ( pancatat indaka larik ( 

kotemu i boolean ( true bil.i x ditanukan, talma hi la tidak ) 

ALGORITMAs 
i 4 - 1 

ketemu •- false 

while (i i n ) and (not ketemu) do 
if L(l) -x the n 

ketemu *- true 

•ill 

i ♦- lei 
end if 
o ndwh lle 

Ti » n or ketemu ) 

if ketemu then ( x ditcmukan ) 
return i 

olae ( x tidak ditamukan f 

return -1 

gndif 

AlgorHma 15.12 Fungsi pencarian beruntun (vorsl 2. hasll poncanan indeks elemon) 


Kinerja Algoritma Pencarian Beruntun 

Secara umum, algoritma pencarian beruntun berjalan lambat Waktu 
pencarian sebanding dcngan jumlah elcmcn larik. Misalkan larik berukuran 
n elemen. Maka, pada kasus di mana x tidak tcrdapat di dalani larik atau x 
ditcmukan pada elemen yang terakhir, kita hams melakukan perbandingan 
dengan seluruh elemen larik, yang berarti jumlah perbandingan yang terjadi 
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sebanyak n kali. Kita katakan bahwa waktu pencarian dengan algoritma 
pencarian beruntun sebanding dengan n. Bayangkan bila larik berukuran 
100.000 buah elemen, maka kita harus melakukan perbandingan sebanyak 
100.000 buah elemen. Andaikan satu operasi perbandingan elemen larik 
membutuhkan waktu o.oi detik, maka untuk 100.000 buah perbandingan 
diperlukan waktu sebesar 1000 detik atau 16,7 menit. Semakin banyak 
elemen larik, semakin lama pula waktu pencariannya. Karen a itulah 
algoritma pencarian beruntun tidak bagus untuk volume data yang besar. 

Algoritma Pencarian Beruntun pada I-arik Terurut 

Larik yang elemen-elemennya sudah terurut dapat meningkatkan kinerja 
algoritma pencarian beruntun. Jika pada larik tidak terurut jumlah 
perbandingan elemen larik maksimum n kali, maka padn larik terurut 
(dengan asumsi distribusi elemen-elemen larik adalah seragam atau 
uniform) hanya dibutuhkan rata-rata n/2 kali perbandingan. Hal ini karcna 
pada larik yang terurut kita dapat segera menyimpulkan bahwa x tidak 
terdapat di dalam larik bila ditemukan elemen larik yang lebih besar dari x 
(pada larik yang terurut menaik) [TEN86]. 

Contoh 15.2. pencarian pada larik terurut. 

(a) Diberikan larik L tidak terurut: 

I 13 I 16 I 14 1 21 I 76 I 15 I 

1 2 3 4 5 6 

maka, untuk mencari 15, dibutuhkan perbandingan sebanyak 6 kali. 

(b) Misalkan larik L di atas sudah diurut menaik: 

I 13 I 14 I 15 I 16 I 21 | ~76 | 

1 2 3 4 5 6 

maka, untuk mencari 15, dibutuhkan perbandingan hanya 3 kali (secara 
rata-rata). 

Prosedur seqsearch? berikut adalah algoritma pencarian beruntun pada larik 
yang terurut menaik, yang merupakan modifikasi dari algoritma seqsearchi 
dengan perubahan pada eskpresi kondisi L[ 1] * x menjadi L[i] < x . 

procedure SeqSearch7( input L « Lariklnt, Input n : integer , 

input x s integer , output idx : integer ) 

( Mencari keberadaan niiai X di dalam larik Hl..oJ yang elemen- 
olemennya oudah terurut menaik. } 

{ K.Avals niiai x dan elemen-elemen larik L[l..oJ audah t ordofinioi. 

Elemen-elemen larik L audah terurut menaik. ) 

{ K.Akhir: idx bariai indaka larik L yang beriai niiai x. Jika x tidak 
ditemukan, maka idx diiai dengan niiai - 1 . f 
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DEKLARASI 

i * integer 


{ pencecat indeka larik ) 


ALGORITMA:' 

i ♦- 1 

while (i < n ) and (Mil < at) do 
1 <- 1 4 1 
endwhile 

( 1 - W or Hi ) - x ) 


if L(i) - x then 
idx 4 - i 


{ x die a milk an J 


idx 

endif 


-1 


Algorltma 15.13 Pencarian beruntun pad a lank terurut 


Metode Pencarian Beruntun dengan Sentinel 

Jika pencarian bertujuan untuk menambahkan elemen bam setelah elemen 
terakhir larik, maka terdapat sebuah varian dari metode pencarian beruntun 
yang mangkus. Nilai x yang akan dicari sengaja ditambahkan terlebih dahulu 
pada elemen ke-n+15. Data yang ditambahkan setelah elemen terakhir larik 
ini disebut sentinel. Selanjutnya, pencarian bemntun dilakukan di dalam 
larik L(i..n+i]. Akibatnya, proses pencarian selalu menjamin bahwa x pasti 
berhasil ditemukan. Untuk menyimpulkan apakah x ditemukan pada elemen 
sentinel atau bukan, kita dapat mengetahuinya dengan melihat nilai idx. Jika 
idx - n+i (yang berarti x ditemukan pada elemen sentinel), maka hal itu 
berarti bahwa x tidak terdapat di dalam larik L semula (sebelum penambahan 
sentinel). Keuntungannya, elemen sentinel otomatis sudah menjadi elemen 
yang ditambahkan ke dalam larik. Sebaliknya, jika idx < n +i (yang berarti x 
ditemukan sebelum sentinel), maka hal itu berarti bahwa x sudah ada di 
dalam larik L semula. 

Contoh 15.3. Pencarian bemntun dengan menggunakan sentinel. 

(a) *-18 

1 13 I 16 I 14 | 21 | 76 | 15 Ti e 3 *- Mntinel 
1 2 3 4 5 n* 6 7 

18 ditemukan pada elemen ke-n+i. Sentinel otomatis sudah 
ditambahkan ke dalam larik. Ukuran larik sckarang - 7. 

(b) x-21 

I 13 I 16 I 14 | 21 | 76 | 15 1211 sentinel 
12345 Nb6 7 
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2i ditemukan pada clemen ke-5. Sentinel batal menjadi elemen yang 
ditambahkan ke dalam larik. Ukuran larik tetap 6. 

Algoritma pencarian beruntun dengan sentinel kita tuliskan sebagai berikut: 

proce dure SeqScarchWithSentincl( input L : Lariklnt, input n i Integer , 

inpu t x j integer, outp ut idx : integer ) 

( Nencarl x di dalam larik Hl..nl dengan menggunakan sentinel) 
i K.At/ah x dan elemcn-elexcn larik L11..NI eudah tcxdelimoi 
nilainya.} 

{ K.Akhlri idx berioi indeka larik L yang berioi nilai x. 

Jika x Cl dak ditemukan. maka Idx dltai dengan nilai -15. } 

DEKLARASl 

1 i Intoger ( pencatat Indeka larik ) 

ALOORITMA: 

Lin • 11 •- x f oentinel ) 

1 ♦- 1 

while (Mi] 4 x) do 
1 ♦- i t i 
end while 

7 l(i\ - x ) ( Pencarian aolalu berhaoil nenemukan x ) 

{ Kita ha nut menyimpulkan apakah x ditemukan pada elenen 
uontinel .itau bukan } 

If idx • n • X then ( x ditemukan pada o lemon oentinel ) 
idx *- -1 { berarti x belun ada pada larik L oemula ) 

jiao ( x ditemukan pada indeka < n • 1 ) 
idx *- i 

endif 

Algoritina 15.14 Poncarmn beruntun dongan MnUnol 


Program utarna yang memanggil prosedur seqScnrchwithSentinel kirn- 
kira algoritmanya sebagai berikut: 

ALGORITMA: 

... ( inotrukoi-Inatrukai Bebelumnya } 

road lx) 

SeqSearchWlthSentincKL, n. x. idx) 
if idx A -1 then 

write(x. ' nudah terdapat dl dalam larik’) 

else (x belum terdapat di dalam larik L semula. sentinel 
otom.it is menjadi elemen yang ke-n* IS. ) 
n «- n ♦ X f liaikkan ukurar. efekeif larik } 
endif 

Algoritma 15.15 Program utama yang memanggil pencanan beruntun dengan sentinel 
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15.3 Algoritma Pencarian Bagidua 

Pencarian pada data yang terurut menunjukkan kineija yang lebih baik 
daripada pencarian pada data yang belum terurut. Hal ini, sudah kita 
bicarakan pada metode pencarian beruntun untuk data yang sudah terurut. 
Data yang terurut banyak ditemukan di dalam kehidupan sehari-hari. Data 
nomor telepon di dalam buku telepon misalnya, sudah terurut berdasarkan 
nama/instansi pelanggan telepon dari A sampai Z. Data karyawan diurut 
berdasarkan nomor induknya dari nomor kedl ke nomor besar. Data 
mahasiswa diurut berdasarkan NIM (Nomor Induk Mahasiswa), kata-kata 
(entry) di dalam kamus bahasa Inggris/Indonesia telah diurut dari A sampai 
Z, dan sebagainya. 

Terdapat algoritma pencarian pada data terurut yang paling mangkus 
(efficient), yaitu algoritma pencarian bagidua atau pencarian biner 
(binary search). Algoritma ini digunakan untuk kebutuhan pencarian 
dengan waktu yang cepat. Sebenamya, dalam kehidupan sehari-hari kita 
sering menerapkan pencarian bagidua. Untuk mencari arti kata tertentu di 
dalam kamus (misalnya kamus bahasa Inggris), kita tidak membuka kamus 
itu dari halaman awal sampai halaman akhir satu per satu, namua kita 
mencarinya dengan cara membelah atau membagi dua buku itu. Jika kata 
yang dicari tidak terletak di halaman pertengahan itu, kita mencari lagi di 
belahan bagian kiri atau belahan bagian kanan dengan cara membagi dua 
belahan yang dimaksud. Begitu seterusnya sampai kata yang dicari 
ditemukan. Hal ini hanya bisa dilakukan jika kata-kata di dalam kamus 
sudah terurut. 

Prinsip pencarian dengan membagi data atas dua bagian mengilhami 
algoritma pencarian bagidua. Data yang disimpan di dalam larik hams 
sudah terumt. Untuk memudahkan pembahasan, selanjutnya kita misalkan 
elemen larik sudah terurut menurun. Dalam proses pencarian, lata 
memerlukan dua buah indeks larik, yaitu indeks terkecil dan indeks terbesar. 
Kita menyebut indeks terkecil sebagai indek ujung kiri larik dan indeks 
terbesar sebagai indeks ujung kanan larik. Istilah *idri" dan ''kanan" dinyatakan 
dengan membayangkan elemen larik terentang horizontal. 

Misalkan indeks kiri adalah t dan indeks kanan adalah j. Pada mulanya, kita 
inisialisasi i dengan 1 dan j dengan n. 

Langkah 1 : Bagi dua elemen larik pada elemen tengah. Elemen tengah 

adalah elemen dengan indeks k «(i + j) diy 2. 

(Elemen tengah, L[k], membagi larik menjadi dua bagian, 
yaitu bagian kiri L[i..j ] dan bagian kanan L[k+i.J]) 

Langkah 2 : Periksa apakah L[k] = x. Jika L[k] * x, pencarian selesai sebab x 
sudah ditemukan. Tetapi, jika UJc) * x, harus ditentukan 


«n 
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apakah pencorian akan dilakukan di larik bagian kiri atau di 
bagian kanan. .Jika L[k) < x, maka pcncarian dilakukan lagi 
pada larik bagian kiri. Scbaliknya, jika L[k) > x, pcncarian 
dilakukan lagi pada larik bagian kanan. 

Langkah 3 : Ulangi Langkah 1 hingga x ditemuknn atau i > j (yaitu, 
ukuran larik sudah nol!) 


Contoh 15.4 Uustrosi pcncarian bagidua: Misalkan diberikan larik L 
dcngan delapan buah elemen yang sudah terumt menurun seperti di bawah 
ini: 

I B 1 | 76 | 21 | ITT 16 | 13 | 10 r~rn 
/-I 2 3 4 5 6 7 B-/ 

(i) Misalkan elemen yang dicart adalali x = iH. 

Iaingkali 1: 

i ■ 1 dnn> ■ 8 

tndeks demon tengah k * (1 ♦ 8) div 2 ■* 4 (olcineit yang dinrsir) 




mmmmmmmm 


a 

R3BEMR3HB3I 


kiri kanan 


l angkah 2: 

Pembandingan: /.[.»)« 18? Ya! (xditemuknn, proses pcncarian sdesai) 

(ii) Misalkan elemen yang dicari adalali x = 16. 

Langkah 1: 

i • 1 dan j - 8 

Indeks elemen lengnh k (1 * 8) diy 2 = 4 (elemen yang dinrsir) 


1 —.——"**"—“i 


rnnr 1 -11 .... 


1 • * f ■ * 

<1 

1 1 _ 2 .. 3 _ 

« ! 

5 6.7.8.1 


kiri kanan 


Langkah 2: 

Pembandingan: LU1 - l6?Tidak! Harus diputuskan apakah pcncarian 
akan dilakukan di bagian kiri atau di bagian kanan dcngan pemeriksaan 
Sebagai berikut: 
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Pembandingan: LU 1 > 16? Ya! Lakukan pcncarian pada larik bagian 
kanan dengan i = k+ 1 = 5 dan j « 8 (Ictap) 


n 

16 13 | 10 

7| 

1*5 6 7 

8=) 


1 -ingkah 1': 

1 = 5 dany * 8 

Indeks elcmcn longah A: - (5 ♦ 8) dlY 2 « 6 (elcmcn yang diarsir) 


QE 

on 

'0 1 7 | 

5 

6 ! 

7 8 


kiri’ kanan’ 


! jingknh 2': 

Pembandingan: /.[6) - i6?Tidak! Harus dipuluskan apakali pennirian 
akan dilakukan di bagian kiri atau di bagian kanan dengan pemeriksaan 
sebagai berikut: 

Pembandingan: /.[6] > i6?Tidak! Lakukan pcncarian pada larik bagian 
kiri dengan i ■ 5 (letup) dan/■ k -1 * 5 



Uingkah i": 

i« 5 danj * 5 

Indeks clemen tengah k *= (5 ♦ 5) diY 2 * 5 (elemen yang diarsir) 


□El 

5 


I.angknli 2": 

/-Is] * »6? Ya! (a: dilemukan, proses pcncarian selcsai) 

(iii) Misulkun clcmcn yang dicari adalah x = 100 

(.angkali 1: 

i = 1 dan j = 8 


412 
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Indeks elemen tengali k = (i + 8) djy 2 ■ 4 (elemen yang diarsir) 


i 81 

76 

21 

1—tan 

16 

13 1 

10 1 

7 


2 

3 

4 

5 

6 

7 

B 


kin kanan 


laingkah 2: 

Pcmhandingan: /.|.|| = ioo?Tidak! Hams diputuskan apakali pencarian 
akan dilakukan di bagian kin atau di bagian kanan dengan pemeriksaan 
sebagai bcrikut: 

Pcmhandingan: I .Ul > ioo?Tidak! lakuknn |>cncarian pads larik 
bagian kiridengan 1 - 1 (tetap)dan/ •k-l ■ 3 

| »1 | W I 21 I 

•• 1 2 3«| 


lamgkuh !*: 

i ■ 1 dany ■ 3 

Indeks elemen tengali k •( 1 + 3) dfaf 2 ■ 2 (elemen yang diarsir) 




r 1 ■ 

I 61 

JL\ 

jD 

1 


3 

kiri* 

kanan' 


lamgknli 2 ': 

Pcmhandingan: /.|2] ■ ioo?Tidak! I lams diputuskan apakali pencarian 
akan dilakukan di bagian kiri atau di bagian kanan dengan pemeriksaan 
sebagai lierikut: 

Pembandingan: /.[2I > ioo?Tidak! Lakukan pencarian pada larik bagian 
kiri dengan i = 1 dan/ ■ k - 1 ■ 1 


11 

1 


Langkuli 1 ": 

i = 1 dan j = 1 

Indeks elemen tengali k = (1 + 1) diy 2 = 1 (elemen yang diarsir) 
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Langkah 2": 

Pcmbandingan: L[i] = ioo?Tidak! Hants diputuskan apakali pencarian 
akan dilakukan di hagian kiri atau di bagian kanan dengan pemcriksaan 
sebagai bcrikut: 

Pcmbandingan: /-hi > 100? Tidak! 1 -akukan pencarian pnda larik bagian 
kiri dengan i =* 1 dan j ■ k -1 ■ O 

Karena i > j, maka lidak ada lagi Ixagian larik rang tersisa. lVngan demikinn, x 
tidak diteinnkan di dalani larik. Proses pencarian dihentikan. 

Algorilma pencarian bagidua pada larik integer yang sudah tcrurut menunin 
kila tuliskan di bawah ini. mnsing-masing sebagai prosedur dan sebagai lungsi. 

(i) Prosedur pencarian bagidua: 

procedure BlnarySoarchl (Input L 1 Larlklnt, Input n 1 integer, 

input x 1 Integer, output ldx 1 integer) 

/ Mencari x di dalt un lari* L/l..n 1 yang audah tcrurut m enurun dengan 
metode pencarian bagidua. Keiuaran prosedur ini adalah indekn el omen 
larik yang mengandung nilal x; ldx dliai 0 Jika x tidak dltomukan. ) 

{ K.Awa 1 1 L(l..nJ audah be rial data yang audah tcrurut menurun, dan x 
adalah nilal yang akan dicarl.) 

( K.Akhlr: ldx beriai indeka elenen larik yang mo ngandung niJai x; 
tetapi bila x tidak ditemukan, aaka Ulx diial dengan -i ) 

DHKLARASI 

i. J > integer 
* 1 Integer 
ketemu i boolean 

ALGORITHAi 

i 1 { ujung klrl larik ) 

J *- n / u Jung kanan larik ) 

kotomu «— fal oe ( aaunaikan x belua dlteaukan ) 

while (not ketemu) and (1 S J) do 

k «-(i • )) dlv 2 {bagidua larik L pada poalal k) 
if (L[k] - x) then 
ketemu «- true 
eloe { L[k] * x ) 
if (L(k) > x) then 

{ Lakukan pencarian pada larik bagian kanan. get indeka ujung 
kiri larik yang baru ) 
i ♦- k . 1 
else 

rLakukan pencarian pada larik bagian kiri. set indeks ujung 
kanan larik yang baru ) 


{ indeka kiri dan indek kanan larik ) 

{ indeka elemen tengah) 

( (lag untuk aenentukan apakah X dltomukan ) 


«r~T 
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j *- k - 1 
cndif 
ondl f 
endwhile 

i kotemu - true or 1 » j) 

If kotemu then ( x dltomukan ) 
ldx •- k 

elae ( x tidak dicemu kan dl dalaa Jarik ) 

idx «- -1 
endlf 

Algoritma 1 5.16 Prosodur pencanan bagtfua pada lank yang lerurul menurun 


(ii) Fungs! pencarian bagidua: 

function BlnarySearchl(input L :L*rikInt, input n i integer, 

input x i Integer) -* integer 

{ MengembalIkan indeke mlemen larlk Lll..nl yang mengandung nllal xi 
blla X tidak dltomukan, make lndek yang dikemballkan adalah -1 ) 

DKKI JVHA.1 X 

l, j i Integer { indeka kirt dan lndek kanan larlk ) 

k i integer ( Indeke eJemeo tengah) 

kotemu i boolonn ( flag uneuk menentukan apakah X ditemukan ) 
AI/30RITMA i 

l ♦- 1 [ ujung kirJ larlk ) 

j 4- n ( ujung kanan larlk } 

kotemu «- falno ( aeumetkan x belum dltomukan ) 

while (not kotemu) and (1 i j) do 

k *-(l ♦ j) dlv 2 (Ixigldu.i larlk L pada poalol k) 

If (L(k) - x) then 
kotemu ♦- true 
eloe { Llk] x x ) 
if (L(kl > x) then 

/ Uikukan pencanan pada larlk baglan kanan, eat indeke ujung 
klrl larlk yang bar u f 
i ♦- k ♦ 1 
•lee 

{ Lakukan pencarian pada larlk baglan klrl, oot indeko ujung 
kanan larlk yang bar u ) 

J - k - 1 
end if 
end i f 
endwhile 

f keCemu - true or 1 > j) 

if ketomu then / x dicemukan } 
return k 

elne f x Cidak ditecukan di daJam larik ) 

return -l 
endif 

Algorilma 15.17 Prosedur pencanan Dagdua pada lank yang terurut menurun 
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Untuk algoritma pencarian bagidua pada larik yang sudah tenirut menaik. kita 
hanya perlu mengganti pemyataan if (L[k] > x) dengan if L(kl < x). 

Kinerja Algoritma Pencarian Bagidua 

Kita dapat melihat bahwa pada setiap kali pencarian, larik dibagidua 
menjadi dua bagian yang berukuran hampir sama. Pada setiap pembagian, 
elemen tengah dibandingkan apakah sama dengan x (if (L[kJ = x). Pada 
kasus terbumk, yaitu pada kasus x tidak terdapat di dalam larik atau x 
ditemukan setelah ukuran larik tinggal 1 elemen, larik akan dibagi sebanyak 
a log(n) kali, sehingga jumlah pembandingan yang dibutuhkan adalah 
sebanyak a log(n) kali. Kita katakan bahwa waktu pencarian sebanding 
dengan a log(n) [WIR76]. Untuk n ■ 256 elemen misalnya, kasus terburuk 
mcnghasilkan pembagian larik sebanyak a log( 256 ) - 8 kali, yang berarti 
jumlah pembandingan elemen adalah 8 kali (bandingkan dengan metode 
pencarian beruntun yang pada kasus terbuiuk melakukan pembandingan 
sebanyak 256 kali). Jadi, untuk larik yang terurut, algoritma pencarian 
bagidua jauh lebih cepat daripada algoritma pencarian beruntun. 


15.4 Pencarian pada Larik Terstruktur 

Algoritma pencarian yang dibahas sebelum ini menggunakan larik dengan 
elemen-elemen bertipe sederhana. Pada sebagian besar kasus, elemen larik 
sering bertipe terstruktur. Contoh, misalkan M adalah sebuah larik yang 
elemennya menyatakan nilai ujian seorang mahasiswa untuk suatu mata 
kuliah (MK) yang ia ambil. Data setiap mahasiswa adalah NIM (Nomor 
Induk Mahasiswa), nama mahasiswa, mata kuliah yang ia ambil, dan nilai 
mata kuliah tersebut. Deklarasi nama dan tipe sebagai berikut: 

DHKLARAS I 

conat Nmaka • 100 

typa Mahaaiawa 1 record <JHM 1 integer . ( Honor Induk Mahaolmm J 

NamaMha 1 string . { name nahaaiawa ) 

KodcKX 1 at ring . { kode mac a kullab ) 
Hilai. Aar { iodoko nilai MK (A/B/C/D/BJ J 


type TabMha : array [1..Kmaka) of Nahaaiawa 
H 1 TabMha . 

Alio iH—11.18 IrtM—Mag _ 


■ 1 
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Struktur lojik larik M ditunjukkan pada Gambar 15.2. 


1 

2 
3 


100 


Gambar 15.2 Lank M dengan 100 elemen Seliap demon lank bortipo terstniktur (record) Tiap 
record terdiri alas field NIM. field Noma, field MK. dan field Nilal. 


TabMhs 


NIM _NamnMhs KodoMK_ Nilai 


29801 

Heru Satno 

MA211 

A 

29804 

Aminjllah Satya 

FI351 

B 













29887 

Yanli Siregar 

TL321 

c 


Misalkan pencarian data didasarkan pada NIM, maka proses pcmbandingan 
dilakukan terhadap field NIM saja. Algoritma pencarian bcruntun dan 
algoritma pencarian bagidua untuk larik tertstroktur dibcrikan di bawah ini 
(untuk algoritma pencarian bcrunUm, kita gunukan algoritma Vcrsi 2 
dengan basil pencarian adalah indeka larik, sedangkan untuk algoritma 
pencarian bagidua kita gunakan pencariun pada larik yang terurut menaik) 

(a) Algoritma Pencarian Bcruntun 

procedure CarlHIM_i(Input * t TabMhu, Input n x int eger , 

inptjt NXHmhs t integ er, output idx t integer) 

I Hencari kcbcr.xda.xn VINmha di da lam larik dengan rr.ecode 

pencarian boruntun. J 

{ K.Awal i nilai NlHshM. n, dan elvmrn larik Nil., n/ audah covdeflnim . / 

I K.Akhirr Idx beriai ixxlcka larik ten-par. WIMnhii ditemiikan. 
idx - -2 jika NIMmho tide* ditemuk.in } 

DEKLAIA5I 

i : integer f pencatat xndoka larik I 
ketcittj 1 bool run 

AUWRlTMAi 
t *- i 

kntonui «- tflloe 

while (1 i n ) end (not Ketomu) ilo 
II H(l).NIM • NXMrahe thou 
katcinu «- true 
glee 

1 •- l ♦ 1 
ondlf 

. 

if ketetsu then I HMnha dxtemukan / 

Idx *- i 

else I NTMmha tldak ditemukan / 

Idx *- -1 

Algoritma 15.19 Poncanen borunlun padn lank lonUiyMur 
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(b) AlKoritma Pencarian Ua^idua 

procedure CarlNIM 2(Input H : TahMhff, input n : integer, 

input NIMmhn i integer, output IDX • in* 1 i 

i Hcncari NINmhn di d4lan larlk N(l..nJ yang oud.ih torurut wonnlk 
berdannrknn NIH dong.m metode pencarian baglduM. f 
{ K.Awal i LariA M(l..nJ audah beeial data yang audab tarurut menaiA. 
dan N.'Mmha adalah niJai yang .lAari tlicari ) 

l K.Akhlt.- Idx beriai indeka JariA tempat NIK-xtia dltemukan. Idx - 1 

jiAa NJMmiio cidaA ditenuAan / 

DEKLARASX 

i, J : integer { indeka Airi dan indeka Aanan f 

k : integer { indeka elemon tenga/i } 

ketemu : boolean { flag unluk menencukan Aetemu acnii tidak f 

ALOORlTHAi 

i ♦- 1 I ujung klri JariA ) 

j *- n ( u/ung Aanan JaiiA f 

ketemu •- taiga ( Aaimalkan x balum ditemuAan ) 

while (not kotemu) nnd (i £ )) do 

k «- (i *J) dlv 2 f bagidua JariA L pada poalai A / 
if (Mlk).HIM - NXMmho) then 
ketemu *- true 
elne ( Nlkj .NIN * NIMmh* ) 

it (Mlk).NIH < NIKnho) then 

I Lakukan pencar:*n pad* JariA b.igi.m Aamn, oet indeka 
uj nng kiti JariA yang baru / 
i «- k ♦ 1 
else 

/ LaAuAan pencanan pada JariA bag/an Ain, net indeka 
ujung Aanan Jan A yang baru ^ 

) k - 1 
end if 
end if 
endvhile 

7 Aetemu - true or 1 > J) 

it (ketemu) then / NIMuha ditenuAan ) 
idx *- k 

else 7 fUNeha tidaA ditenuAan di da Jan JariA / 

idx *- 1 

endif 

Algoritma 15.20 Pencarian bagkJua pada lank lerstruktur 


(jofiifiui ann 
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15.5 Pakai yang Mana? Algoritma Pencarian 
Beruntun atau Pencarian Bagidua? 

Kedua algoritma pencarian ini mempunyai kelebihan dan kekurangan 
masing-masing. Algoritma pencarian beruntun dapat digunakan baik untuk 
data yang belum terurut maupun untuk data yang sudah terurut. Sebaliknya, 
algoritma pencarian bagidua hanya dapat digunakan untuk data yang sudah 
terurut saja. 

Ditinjau dari kinerja pencarian, kita sudah mengetahui bahwa untuk kasus 
terburuk (yaitu jika pencarian gagal menemukan x), algoritma pencarian 
beruntun memerlukan waktu yang sebanding dengan n (banyaknya data), 
sedangkan algoritma pencarian membutuhkan waktu yang sebanding 
dengan a log(n). Karena a log(n) < n untuk n > i, : maka jika n semakin besar 
waktu pencarian dengan algoritma bagidua jauh lebih scdikit daripada 
waktu pencarian dengan algoritma beruntun. Karena itulah, algoritma 
pencarian bagidua lebih baik untuk mencari data pada sekumpulan nilai 
yang sudah terurut ketimbang algoritma pencarian beruntun. 

Sebagai perbandingan antaru algoritma pencarian beruntun dengan pencarian 
bagidua, tinjaulah kasus di mana x tidak ditemukan di dalam larik yang sudah 
terurut. Misalkan, 

(a) untuk larik yang berukuran n ■ 256 elemen 

■ algoritma pencarian beruntun melakukan pembandingan elemen 
larik sebanyak 256 kali, 

■ algoritma pencarian bagidua melakukan pembandingan sebanyak 
a log( 256 ) - 8 kali, 

(b) untuk larik yang berukuran n - 1024 elemen 

■ algoritma pencarian beruntun melakukan pembandingan elemen 
larik sebanyak 1024 kali, 

■ algoritma pencarian bagidua melakukan pembandingan sebanyak 
a log(i 024 ) - 10 kali. 


15.6 Pencarian pada Larik yang Tidak 
Bertipe Numerik 

Meskipun algoritma-algoritma pencarian yang sudah dikemukakan di atas 
diterapkan pada larik integer, mereka tetap benar untuk larik data yang 
bertipe bukan numerik misalnya data bertipe karakter, maupun string. Aculah 
kembali dari Buku 1 bahwa operasi perbandingan (dengan operator <, >, *) 
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juga berlaku pada tipe data karakter maupun string. Jadi, pcmbandingan 
karakter sepcrti 'a' < ‘b’ atau pcmbandingan string scperti budi’ < *iwnn’ 
adalah ekspresi relasional yang sah. 


15.7 Algoritma Pencarian Beruntun dan 
Pencarian Bagidua dalam Bahasa 
PASCAL dan Bahasa C 

AI.GOR1TMIK 

> DEKLARA3I 

conat Nnuikn • 100 tjumlah tMkflmim tlcfwm larik 1 
cypg Urtkint i arrA* tl..UMkal of integer 


PASCAL 

(• DBKLARASI •) 

conat flmakii * 100j IJuinlah nakalirun ol. i i n lailk ) 

typa l-arlklnt array |l..Nraka| of lntagar. 


c 

/• DBKLAMSI •/ 

lidofina NmakB 100 /• Juniah aienon Uilk •/ 

typedof lot Urlklnc /• induk* larlk dir ila: darl 0 

nanpai Mrvike, totepi "Uocn Vo 0 tidnk nkan dlgunakan*/ 


l. Algoritma Pencarian Beruntun 
ALGORITMIK 

proceduru 3eqS*arch2 i input L i Litlklnt, input n i Integer , 

input x : integer, output idx i integer ) 

{ Mcncari keberadaan nllai x di dalam larlk Lfl..n]. f 
l K.Awal: x dan elcnen-olcaen larlk L11..NJ euda h terdeiinlol . } 

( K.Akhir: idx beriai indeka larik L yang beriai nilai x. Jika x tidnk 
dteemukan. maka idx dlisi dengan nilai -15. ) 

DBKLARAS2 

i i integer ( pencatat indeka larik } 

ALOOKITKA: 

i *- 1 

while li < n ) and <L[i| < xt to 

i *- i * 1 

endwhtIn 

J~l • n or Lli] • x l 

If Mil - x then { x ditemxkan } 


~T 


AI 
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PASCAL 

procedure S«qSoaTCh2 (: Uilikint; i : integer; x : integer. 

var idx t integer,; 

l Nencari kcberadaan nilai x til dalaa lank LI1..NJ. } 

{ K.Awal: x dan elcmo.n-c lemon larlk LU..S] sudah tcrdcfimui. } 
( K.Akhir: idx bcriai Indoko Jarik L yang benai nilai x. Jlka x tidak 
ditewukan, iraka idx dlial dcngan nilai -15. ) 

var 

l : integer. ( pcncatat ir.dcko larik ) 

begin 

i t- 1 1 

while ll < n J and (L|iJ <> x) do 
i «• i • Ij 

{endwhlle} 

(l - n or L[il • x } 

if L(i| • X then ( x ditenuk.ir. ) 
idx i 

•lee 

idx t- ll ( x tidak ditcoukan ) 

fondllj 

end; 


c 

void daqSearch 2 (turlkInt L. int n. int x. int *idxi 
/• Nencari koboradaan nilai X di daiaar lari* Hi..ill. •/ 

/• K.Aval: nilai x dan demon-a lemon latlk H1..N 1 audah tvrdofinial. •/ 
/• K.AJchir* idx barlal indaka larik l yang berial x. Jlka X tidak 
dltcmukan, idx dilal dengan nilai - 1 . •/ 

I 

int ij /• pencatat mdcko larik •/ 

i • It 

while (i < n bk L|1| I X) 

i 

/* endwhlle •/ 

/• l mm n Or LIU •• X •/ 

if iLllJ •* X) /• X dltcmukan •/ 

•idx - 1; 

elae /• x tidak dltcmukan •/ 

•idx - h 

/•cndlf/ 
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2. Alnorilma Pencarian Bagidua 


ALGORITMIK 

procedure BlnarySearch2( input L s Lariklnt, input n : integer , 

input x i integer , output idx : in teger ) 

( Mencarl x di dalam larlk L[l..n] yang sudah terurut menurun dengan 
wet ode pencarian bagldua. Keluaran prooedur Ini adalah indeka elemen 
benot nllal x. } 

( K.Attal i Larlk L[l..nJ audah berlai data yang audah tex*urut menuru n, 
dan x adalah harga yang akan dicarl. } 

( K.Akhlr: Idx berlox indeka lank tcnpat x ditewukan. idx - -i Jika x 
tidak dltemukan } 

DKKLARASI 

l,j i integer 
k i integer 
ketcmu j boolea n 

Al/IORITMA: 

1 X { ujung kirl larlk ) 

j «- n l ujung kanan larlk ) 

keteau ♦- faloe { aaumalkan x be 1 urn dltemukan ) 
while (not kntemu) and (i S j) rto 

k (i ♦ j) diy 2 ( bagldua larlk L pada poalal k J 

if (L[k| - x) then 
kotomu «- true 
5I00 f L(kJ a x f , 
if (L(k) > x) then 

{ Lakukan pencarian pada larlk baglan kanan. act Indoka 
ujung klrl larlk yang baru ) 
i ♦- k ♦ 1 
olao 

{ Lakukan pencarian pada larlk baglan klrl, act Indeka 
ujung kanan larlk yang baru I 
j 4- k - i 
end if 
endlf 
ondwhllo 

( kotomu m true or i > J} 

if (kotomu) then ( x dltemukan ) 
idx *- k 

eiae ( X tidak dltemukan di dalam larlk ) 

idx *- -1 
endlf 


( indeka klrl dan Indek kanan larlk ) 

( Indeka aleaen tengah) 

{ pertanda untuk nenentukan apakah x dltemukan ) 
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PASCAL 

procedure BinarySearch2 (L : Lariklnt; n : integer; x : integer; 

var idx : integer); 

{ Mencari x di dalam larik Hl..nJ yang audah terurut menurun dengan 
mot ode pencarian bagidua. Keluaran prosed ur Jni adalah indeka elemen 
boriai niiai x. } 

{ K.Awal t Larik L[1..NJ audah beriei data yang audah terurut menurun. 

dan x adalah harga yang akan dicarl. } 

{ K.Akliir: idx beriai indeka larik terspat x dicemukan; idx - -1 Jika x 
tidak ditemukan. ) 

var 

l,J i integer; ( indeka klri dan indak kanan larik J 

k i integer; f indeka elemen tengah) 

ketemu i boolean; ( flag untuk menentukan apakah X ditemukan ) 

begin 

i i- 1/ ( ujung kiri larik ) 

1 i- n; f ujung kanan larik ) 
kotomu i- false; ( aaumaikan x belum ditemkan } 
while (not ketemu) and (i <• J) do 
begin 

k:«(i « j) div 2; ( bagidua larik L pada poaiai k } 

if (L(k) - X) then 
ketemui* true 
elee ( L[kl *> x f 
it (L[k) * X) then 

I Lakukan pencarian pada larik baglan kanan. aot indeka 
ujung kiri larik yang baru I 
i i- k . 1 

elee 

( Lakukan pencarian pada larik bagian kiri. aot indeka 
ujung kanan larik yang baru J 

J i- k - 1 ; 

(endit) 

{enditI 
end{ while ); 

{ ketemu - true or i > J} 

if (kotomu) then ( x ditemukan } 
idx :• k 

elee ( x tidak ditemukan di dalam larik J 

idx r- -1; 
fendit} 

end; 


c 

void BinarySearch2(Lariklnt L. int n, int X. int «idx) 

/• Mencari x di dalam larik L(l..n / yang audah terurut menurun dengan 
metode pencarian bagidua. Keluaran prosedur ini adalah indeks 
elemen berioi niiai x. •/ 


Bab 15 - Algontma Pencarian 


[ 423 


http://www.pakteguh.com 



/• X.AwaJ s larik L[l..nJ audah berisi data yar.g audah terurut 
menurun,dan x adalah harga yang akan dicari. •/ 

/• K.Akhtr: idx beriai mdeke larik tempat X ditemikan; xdx * -1 jika 
x tidak ditcaukan •/ 


typedef er.un(true • i. false 0) boolean; /• deklaraoi tipe boolean 

•/ 

int i.jj /• ir.dcko klri dan lndeka kanan Jarik •/ 

int k; /• lndeka eleaen c engah •/ 

boolean k«Unu/ /* (lag on tux menentukan apakah X ditetrukan •/ 

1-1/ /• ujung klri larik •/ 

J - nj /• ujung kanan larik •/ 

koteinu • falao; /• aouaaikan x belum ditemukan •/ 

while (tkotenu uu i <- j) 

( 

k • (1 • J>/a/ /• bagidua larik L pada poalal k •/ 

It <L(k) -• x) 
kotumU - true; 
olno /• Ltk] /- x •/ 

if (Llk) > X) 

/• Akan dilakukan pencarian pada larik bagtan kanan, oot 
indoka ujung klri larik yang baru •/ 

l - k • 1/ 

ola. 

/• akan dilakukan pencarian pada larik bagian klri, 
aet lndeka ujung kanan larik yang baru •/ 
j - k • i/ 

/•endif/ 

/•endif/ 

I 

/• endwhile•/ 

/• ketnmu - true // i * j •/ 

if (ketumul /• x ditemukan •/ 

•idx • k; 

«lo® /• x tidak ditemukan di daJam larik •/ 

•Idx • -1/ 

/•endif/ 

\ 


Soal Latihan Bab 15 

1. Tulislah kembali algoritma pencarian beruntun yang memberikan hasil 
indeks elemcn larik yang mengandung x, Ictapi pencarian dimulai dari 
olemen terakhir. 

2. [TEN 86 ] Algoritma SeqSearch 8 berikut hanya membutuhkan satu cksprcsi 
perbandingan pada awal kalang while-do. Rcalisasikan algoritma 
tersebut ke dalam bahasa Pascal dan bahasa C. 
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procedure SeqSoarchfl( Input L : Leiiklnr, input rs : integer . 

input x : Integer . output iox : integer ) 

f Moncarl keberadaar. nilai X dl dalam larlk LH..NJ. ) 

{ K.Await x dan eJenen-eJecen lank LI1..N) audah tcrdeliniol 
nilainya.} 

( K.Akhir: idx berlai indeka larlk L yang berial x; jika x rid ak 
ditemukan. idx dtlal dong .in nilai - 1 , / 

DEKLARASI 

i « integer ( pencatat Indeka larlk ) 

poa t integer 

ALG0K17MA: 
l ♦- 1 
poo 

whllo (l * pool do 
if X - Mil then 
poo ♦- i 
Mae 

!*-!•! 

nuM 

onrfw hllrt 

T 1 • p°» l 

it 1 > n then ( x tldak ditemukan I 
idx •- I 

ola«t I X ditemukan j 

idx •- poo 
•milt 

3. Masnlah npa yang Icijodi jika algoritma pcncarian beruntun kiln lulls 
aeperti borikul ini: 

i «- i 

whllo II ill » aiul <L( 1 ) # xl do 
I •— 1 ♦ i 
Mlidwhilw 

( 1 » n or L[il • x I 

ii LIU • X then { x ditemukan } 
idx ♦- 1 

piw« I x tldak ditemukan I 

idx •- 1 

ondit 

4. Nyntnkun algoritma pcncarian bagidua berupa fungsi yang 
mengembalikan indeka demon larlk yang berisi nilai x. 

5. [PAR95] [TEN86] Mctodc pcncarian intcrpnlusi {interpolation 
search) merupakan varian dari metode pcncarian bagidua, di mana 
demon berikutnya yang akan dihundingkan didasarkan pada nilai indok 
1 dan j. Misalnya jika x "diperkirakan" tciictak pada posisi bagian antara 
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L[i] dan L\j], maka kita set k dengan nilai bagian antara i dan j. 
Memperkirakan posisi x di dalam larik disebut menginterpolasi. Rumus 
untuk menghitung k kita tulis sebagai berikut: 

k «- i • (j - L|• (sc - Liil) div (L(j] - L|iJ) 

(Metode pencarian interpolasi mengasumsikan data di dalam larik 
terdistmbusi uniform. Metode ini pada dasamya sama dengan metode 
pencarian bagidua, kecuali dalam penentuan elemen yang diperiksa 
berikutnya). Tulislah algoritma pencarian interpolasi. 


1 
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16 


Algoritma Pengurutan 



Mengumtkun kartu (Sumber: www.infiHlrsign.com.au) 


Di dalam Bab 15 kita sudah membicarakan salah satu algoritma pencarian, 
yaitu algoritma pencarian bagidua. Algoritma pencarian bagidua hanya 
dapat diterapkan jika elemen-elemen larik sudah tenirut Icbih dahulu. Di 
dalam Bab 16 ini akan dikemukakan beberapa algoritma pengurutan data. 

Masalah pengurutan mcnipakan 
persoalan yang menarik, karena 
terdapat puluhan algoritma 
pengurutan yang pemah dikemukakan 
orang. Tidak semua algoritma 
pengurutan akan dibahas di dalam 
Bab ini, hanya beberapa pengurutan 
sederhana yang akan dijelaskan. Kelak 
algoritma pengurutan yang Icbih 
M maju” akan diberikan pada 
pembahasan algoritma tingkat lanjut 
pada seri buku algoritma yang lain. 
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16.1 Masalah Pengurutan 

Pengurutan ( sorting ) adalah proses mengalur sekuinpulan objek menumt 
urutan atau susunan tertentu [WIR76]. Masalah pengurulan dapat ditulis 
sebagai berikut: 

Diberilcan Uirik I. dengtm n clemen yang sudah tenlefinisi elemen-demennya. 
Urutan Uirik tersebut svhingga tersusun secant mcnaik (uscending): 

atau sccara menurun (descending): 
l.fl/*L/ 2 J*L/J/*„ * 11 ") 

Data yang diurut dapat Iwrupn data bertipe dasar atau tipe terstruktur (record). 
.lika data bertipe terstruktur, moka harus dispesifikasikan berdasarkan field apa 
data terscl)ut diunitkan. Field yang dijndikan dasar pengurutan dikennl sebagai 
field kunri. 

berikut ini diberikan belxTapa contoh data yang tcrurut: 

i. 23,27, 45 .67. too, 130,501 

(data bertipe integer tcrurut mcnaik) 


ii. 50.27.3* 009,20.3,19.0. -5.2. -10.9 
(data bertipe riil tcrurut menurun) 

iii. 'Amir*. Badu', Budi\ *Dudi\ •Rno*. *Rudi\ ‘Znmiaiiii 1 
(data bertipe string tcrurut mcnaik) 

iv. ‘dVeVg'.T.V 

(data bertipe karakter tcrurut menaik) 

v. <13596001, 'Eko', 'A'>, <1:1596006, ‘Kizka', *B'>, 

< 13596007, 'Haindi', *D*>, <13596010, 'Rizal', *C>, 

<13596012, 'Ratlin’, ‘B'> 

(data mahasiswa bertipe tertsniktur tcrurut mcnaik berdasarkan field 
NIM ) 

Dalam kchidupan schari-hari, entry di dalam buku telepon, kata di dalain 
kamus buhasn/istilah, dan entry di dalam ensiklopcdi selalu terurut secara 
alfabetik. Rita juga soring melakukan pengurutan seperti mencatat alamat 
teman berdasarkan nama, menyusun tumpukan koran berdasarkan tanggal, 
mengantri di pasar swalayan berdasarkan unitan waktu kedatangan di kasir, 
dan sebagainya. 
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Data yang sudah temmt memiliki beberapa keuntungan. Selain 
mempercepat waktu pencarian, dari data yang terunit kita dapat langsung 
memperoleh nilai maksimum dan nilai minimum. Untuk data numerik yang 
terurut menumn, nilai maksimum adalah elemen pertama larik, dan nilai 
minimum adalah elemen terakhir larik. Hal ini bermanfaat untuk 
mengetahui juara kelas misalnya, atau mengetahui peserta ujian Seleksi 
Penerimaan Mahasiswa Bam (SPMB) yang memperoleh skor nilai tertinggi. 

Pengurutan dikatakan stabil jika dua atau lebih data yang sama (atau 
identik) tetap pada umtan yang sama setelah pengumtan. Misalnya di dalam 
sekelompok data integer berikut terdapat 3 buah nilai 12 (diberi tanda petik 
", dan untuk mengidentifikasi urutannya. 

70 , 12 ’, 45 . to. 12", 60,12’", 33,50 

Jika suatu metode pengumtan menghasilkan susunan data temmt seperti 
berikut: 

10,12’, 12", 12"*, 33 . 45 . 50 .60,70 

maka pengumtannya dikatakan stabil dan metode pengumtannya disebut 
metode stabil. Tetapi jika suatu metode pengumtan menghasilkan susunan 
data temmt seperti contoh berikut: 

10,12", 12\ 12"', 33 . 45 . 50 ,60,70 

maka pengumtan dan metodenya kita katakan tidak stabil. 

Kestabilan pengumtan mungkin penting atau tidak penting [PAR 95]. 
Misalnya kita ingin menyusun data buku yang temmt secara alfabetik 
berdasarkan nama pengarang sekaligus temmt berdasarkan judul buku oleh 
pengarang tersebut (pengarang bisa menulis lebih dari satu buku). Jika kita 
menggunakan metode pengumtan yang stabil, maka kita umt berdasarkan 
judul buku lebih dahulu bam kemudian kita umt berdasarkan nama 
pengarang. Jika kita menggunakan metode pengumtan yang tidak stabil, 
maka ldta tidak memperoleh hasil pengumtan yang kita inginkan. 


16.2 Algoritma Pengurutan 

Adanya kebutuhan terhadap proses pengumtan memunculkan bermacam- 
macam algoritma pengumtan. Banyak algoritma pengumtan yang telah 
ditemukan. Hal ini menunjukkan bahwa persoalan pengumtan adalah 
persoalan yang kaya dengan sol us i algoritmik. Algoritma pengumtan yang 
sering ditemukan di dalam literatur-literatur komputer antara lain: 

1. Bubble Sort 

2. Selection Sort (Maximum Sort dan Minimum Sort ) 
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3 - Insertion Sort 

4. Heap Sort 

5. Shell Sort 

6. Quicksort 

7. Merge Sort 

8 . Radix Sort 

9. Tree Sort 

Di dalam Bab 16 ini kita tidak akan membahas semua algoritma pengurutan 
tersebut, tctapi hanya empat buah algoritma pengurutan yang sederhana 
saja, yaitu: 

1. Metode Pengurutan Apung ( Bubble Sort ) 

2. Metode Pengurutan Seleksi ( Selection Sort) 

3. Metode Pengurutan Sisip ( Insertion Sort) 

4. Metode Pengurutan Shell (Shell Sort) 

Dua algoritma pertama ( bubble dan selection sort ) melakukan prinsip 
pertukaran elemen dalam proses pengurutan sehingga keduanya dinamakan 
pengurutan dengan pertukaran (exchange sorts), sedangkan dua algoritma 
terakhir melakukan prinsip geser dan sisip elemen dalam proses pengurutan 
(sh\fi and insert sorts). Semua algoritma pengurutan selalu melakukan 
operasi perbandingan elemen larik untuk menemukan posisi urutan yang 
tepat. 

Algoritma pengurutan yang lain membutuhkan beberapa konsep pengetahuan 
pendahuluan yang tidak dicakup di dalam buku ini. Misalnya Heap Sort dan 
Tree Sort memerlukan pengetahuan konsep pohon (free), Quick Sort dan 
Merge Sort membutuhkan pengetahuan konsep divide and conquer dan 
algoritma rekursif. Untuk pemahaman konsep pengurutan, empat buah 
algoritma sederhana di atas sudah cukup untuk diketahui. 

Seperti halnya pada pencarian, algoritma pengurutan juga dapat diklasifikasikan 
sebagai algoritma pengurutan internal dan algoritma pengurutan ekstemal. 

1. Algoritma pengurutan internal, yaitu algoritma pengurutan untuk data 
yang disimpan di dalam memori komputer. Umumnya struktur internal 
yang dipakai untuk pengurutan internal adalah larik, sehingga 
pengurutan internal disebut juga pengurutan larik. 

2. Algoritma pengurutan ekstemal, yaitu metode pengurutan untuk data 
yang disimpan di dalam disk storage, disebut juga pengurutan arsip 
(file), karena struktur esktemal yang dipakai adalah arsip. 

Di dalam Bab 16 ini kita hanya membicarakan algoritma pengurutan internal 
saja. Algoritma pengurutan ekstemal merupakan bahasan tersendiri yang 
tidak dicakup di dalam buku ini. 
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Untuk semua algorilma pengurutan yang akan dijelaskan di dalam Bab 16 
ini, kita menggunakan tipe data larik yang didefinisikan di bagian deklarasi 
sebagai berikut: 

DEKLARASI 

conat Nmaks «* 1000 { J usd ah aakaimua elemen larik ) 

type Larlklnt - array (l..NMka) of Integer 


Algoritma 16.1 Deklarasi larik integer yang dfrunakan di dalam Bab 16 Ini 


16.3 Algoritma Pengurutan Apung 

Algoritma pengurutan apung (bubble sort) diinspirasi oleh gelembung sabun 
yang berada di atas permukaan air. Karena berat jenis gelembung sabun 
lebih ringan daripada berat jenis air, maka gelembung sabun selalu terapung 
ke atas permukaan. Secara umum, benda-benda yang berat akan terbenam 
dan benda-benda yang ringan akan terapung ke atas permukaan. 

Prinsip pengapungan di atas juga digunakan pada pengurutan apung. 
Apabila kita menginkan larik terurut menaik, maka elemen larik yang 
berharga paling kecil "diapungkan", artinya diangkat ke "atas" (atau ke ujung 
kiri larik) melalui proses pertukaran. Proses pengapungan ini dilakukan 
sebanyak n - l langkah (satu langkah disebut juga satu kali pass ) dengan n 
adalah ukuran larik. Pada akhir setiap langkah ke-i, larik L[i..n] akan terdiri 
atas dua bagian yaitu bagian yang sudah terurut, yaitu L[i..i], dan bagian 
yang belum terurut, L[i+l..nj (Gambar 16.1). Setelah langkah terakhir, 
diperoleh larik L(i..n) yang terurut menaik. 

l_ i f ♦ l _n 

sudah terurut I belum terurut 


Gambar 16.1 Bagian larik yang teiuiut dan t^m lerufut pj^ 


Algoritma Pengurutan Apung 

Untuk mendapatkan larik yang terurut menaik . algoritma pengurutan apung 
secara global sebagai berikut: 

Untuk setiap pass i ■ l, 2,.... n - l, lakukan: 

Mulai dari elemen k - n, n - l.i ♦ l, lakukan: 

1.1 Bandingkan L[k] dengan L[k - l]. 

1.2 Pertukarkan L[k] dengan L[k - i] jika L[k) <L[k- l]. 
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Rincian setiap pass sebagai berikut: 

Pass 1 : Mulai dari elemen k e-k - n, n-i.2, bandingkan Uk] dengan 

L(k - lj. Jika Uk] <L[k- 1], pertukarkan L[k] dengan L[k - 1]. 
Pada akhir langkah i, elemen L[i] berisi harga minimum 
pertama. 

Pass 2 : Mulai dari elemen ke-A: » n, n - 1, ..., 3, bandingkan L[k] 

dengan Uk - 1]. Jika L[k] <Uk- 1], pertukarkan L[k) dengan 
L[k-i). 

Pada akhir langkah 2, elemen L[ 2] berisi harga minimum 
kedua, larik L(i..2] terurut, sedangkan L[3..n] belum terurut. 

Pass 3 : Mulai dari elemen ke-A: ■ n, n - 1, 4, bandingkan L[k) 

dengan L[k - 1]. Jika L[k] < L[k - lj, pertukarkan L[k] dengan 
Uk-i). 

Pada akhir langkah 3, elemen Lfo] berisi harga minimum 
ketiga, larik LI1..3] terunit, sedangkan LU-.n] belum terurut. 


Pass n - 1 : Mulai dari elemen ke-A: ■ n, bandingkan LfAc) dengan L[k - 1]. 
Jika Uk] < Uk- 1), pertukarkan Uk] dengan Uk - lj. 

Pada akhir pass n - 1, elemen L(n - 1] berisi nilai minimum kc- 
(n - 1) dan larik - 1] terunit menaik (elemen yang tersisa 
a dal ah L(n], tidak periu diurut karena hanya satu-satunya). 

Tinjau larik L dengan n ■ 6 buah elemen di bawah ini yang belum terurut. 
Larik ini akan diurut menaik : 

l~25 | 27 | 10 | 8~ f~76T 21~1 

1 2 3 4 5 6 

*- a rah pembandingan 


Pass 1: 



k 

Elemen yang dibandingkan 

Pertukarkan? 

Hasil Sementara 

Ac«6 

L[6] < LI5]? (21 < 76?) 

Ya 

25,27,10,8, 21,76 

k m 5 

05 ]<A.[ 4 ]?( 2 i< 8 ?) 

Tidak 

25.27,10, fi, 2 L Z6 

k -4 

U 4 l<U 3 l?( 8 <io?) 

Ya 

25. 27 , 8 , 76 

*-3 

U 3 l < U2]? (8 < 27?) 

Yo 

25, BJKU&ML2& 

k- 2 

L[ 2 ]<ail?( 8 < 25 ?) 

Ya 



Hasil akhir pass 1: 




1 . 8 .] 25 1 27 | 10 1 

21 1 76 | 



12 3 4 

5 6 



wi 
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Pass 2: (berdasnrkan hasil akhir pass 1) 
k Elemen yang dibandingkan Pertukarkan? 


k = b 
k = 5 
*■4 

3 

a 6 i<a 5 i?( 76 < 2 i?) 

/ 45 l < £.[ 4]?(21 < 10?) 

J-Ul < U31? (10 < 27?) 

U 3 l<U 2 l?(io< 25 ?) 

Hasil akhir puss 2: 

Tidak 

Tidak 

Ya 

Ya 


| 8 |. 10 | 25 | 27 | 

21 1 76 | 


12 3 4 

5 6 

Pass 3: (berdasnrkan hasil akhir pass 2) 

k 

Elcincn yang dibandingkan 

Pertukarkan? 

k - 6 

a 6 |</.| 5 l?( 76 < 2 i?) 

Tidak 

k -5 

U 5 l</*l 4 l? (21 <27?) 

Ya 

k -4 

U 4 l</.[ 3 l?( 2 l< 25 ?) 

Ya 


Hasil akhir pass 3: 



Pass 4: (berdasnrkan hasil akhir puss 3) 

k Elemen yang dibandingkan Pertukarkan? 
fc -6 /.[ 6 J < /.I5J? (76 < 27?) Tidak 

*-5 / 45 l<M 4 l?( 27 < 25 ?) Tidak 


Hasil akhir pass 4: 



1 2 3 4 8 6 

Poms 5: (berdnsarknn hasil akhir pass 4) 
k Elemen yang dibandingkan Pertukarkan? 
K - 6 /.| 6 J < L( 5 l? (76 < 27?) Tidak 


Haail akhir pass 5: 



1 2 3 4 5 6 
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Hasil Sementara 

8 ,25, 27 , to, 21 . 76 
8 . 25.27. 

8 . 25. 

8 . 1 & 3 & 27 . 21.76 


Hasil Sementara 
8 . 10. 25, 27. 21, 76 
8 . 10. 25, 31 . 27. 76 
8 . 10,21.25. 27.76 


Hasil Sementara 
9,10.21.25.22126 
9.10. 21. 25.27.76 


Hasil Sementara 

8 . 10.21,25.27.76 
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Hasil akhir jmss 5 menyisakan satu elcmcn (yaitu 76) yang tidak perlu diurutkan 
lagi, maka |>engiirutan selesai. Larik L sekarang sudah terurut menaik! 

procedure BubbleSortl ( input / output L : Lariklnt, input n : integer ) 

{ Mengurutkan larik L[l..nl eehingga terurut «r>?naik dengan rretode 
pengurutan apung. } 

( K.Awal : Eleven larik L sudah terdefeniai nilai-nllainya. ) 

{ K.Akhir: Elerzen larik L terurut aenaik oedemikian oehingga 
LUJ * L[2J * - 5 L[nJ. ) ) 

DBKLARASI 

i ! integer { pencacah untuk jurclah langkah } 

k 1 integer ( pencacah,untuk pengapungan pads art lap langkah ) 

temp : integer { peubah bantu untuk percukaran ) 

ALGORITMA) 

lor 1 *- 1 t o n - 1 do 

for k •- n downt o i * 1 do 
if I.[k! < L|k-1] then 

{pertukarkan L[kl dengan LIk-11) 
temp «- Llkl 
Llk) *- Llk- 1 ) 

LIk-11 «- temp 
endi f 
endfor 
ondfor 

Algoritma 16.2 Pongurulan apung (mon.uk) 


Kiln dnpnt mcnuliskan proses pertukaran (tempi- L[k], l.[k]i-L[k - 1 ], 
l.[k - 1 ]*-tvmp) sebagai sebuah prosedurTukar sebagai berikut: 

procedure Tukar (input/output a 1 intogor. Input/output b 1 integer) 

{ Kempertukarkan nilai a dan tx 

( K.Awal 1 a dan h cudah eerdeflnlst nllai-nilalnya. 

I K.Akhir1 b berlel nilai a sebelun pertukaran. dan b beriei nilai a 
nebol urn pertukaran. f 

DKKLAKAS1 

temp 1 integer / peubah bantu untuk pertukaran ) 

ALGORITMA: 
temp ♦- a 
n *- b 
b «- temp 

Algorllma 16.3 Prosodur memperlukarkan nilai n don b 


Dengan memanfaatkan prosedur Tukar, algoritma pengurutan apung dapat 
disederhannkan penulisannya sebagai berikut: 

procedure BubbleSortl ( input / output L s LarikXnt, input n s i nteger ) 

I Mongurutkan larik Ltl..aJ sehingga terurut menaik dengan metode 
pengurutan apung. f 
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! K.Aw.il : Elcnien larik L sudah cerdetenisi nilai-nilainya. J 
K.Akhir: Elcmcn larik L terurut r.cnaik sodemikian sehlngga 
LIU £ L[ 2 J * _ S Llol. } ) 

DEKLARASI 

i : Int eger { pencacah untuk jimlah langkah } 

k : integer { pencacah. untuk pengapungan pada setiap langkah ) 

f rocedure Tukar (input/ output a : integer , i nput / output b j integer ) 
Hempertukarkan nilai a dan b ) 

ALGQRITMA: 

tor i 4 - 1 to n - 1 do 

for k «- n downto i • l do 
If Mk) « Mk - l) then 

fpertuJcarkan L [k] dengan L/k - lj) 

Tukar (L Ik J. Mk - lj) 
end if 
endfor 
endtor 

Algorltma 16.4 Pongurutan apung (monaik) dengan monggunakan prosedur Tukar 


Untuk mcmperoleh larik yang terurut menurun, kita mclakukan proses 
sebaliknya, yailu “melemparkan" elemen yang berharga maksimtim ke “alas" 
(ntau ke ujung "kiri" larik). Perhatikan algorilmanya di bawah ini. 

f rocedu re DubbleSort2 linput/output L : LarlkXnt, input n i integer) 
Hengurutkan larik L[l..nJ aehlngga terurut menurun dengan metode 
pengurucan apung. } 

{ K.Awal t Elemen larik L oudah eerdetlnlai nilai-nilalnya . ) 

{ K.Akhir: Elemen larik L terurut menurun eedemiklen eehingga 
HU Z L12I * - 2 Llnl.f 

DEKLARASI 

i t intugor f pencacah untuk Jumlah langkah J 

k i riltegej f pencacah,untuk pengapungan pada oetiap langkah ) 

procedure Tukar (i np ut/putput a : integer, input/ outp ut b « integer) 
f Hempertukarkan nilai a dan b I 

ALGORITMA: 

for 1 4- l to n • 1 do 

for k «- n downto l ♦ 1 do 
if Mk) > Llk-1) then 

(pertukarkan LfkJ dengan Llk- 1 )} 

Tuker(Llk). Ltk-ll) 
end if 
endtor 
endtor 

Algorltma 16.5 Pongurutan apung (monurun) 
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Komentar Mengenai Pengurutan Apung 

Pengurulan apung merupakan algoritma pengurutan yang tidak mangkus 
(efficient). Hal ini, disebabkan oleh banyaknya operasi pertukaran yang 
dilakukan pada setiap langkah pengapungan. Untuk ukuran larik yang besar, 
pengurutan dengan algoritma ini membutuhkan waktu yang lama. Karena 
alasan itu, maka algoritma pengurutan apung jarang digunakan dalam 
praktek pemrograman. Namun, kelebihan algoritma ini adalah pada 
kesederhanaanya dan mudah di pah ami. 


16.4 Algoritma Pengurutan Seleksi 

Algoritma pengurutan ini disebut pengurutan seleksi (selection sort) karena 
gagasan dasamya adalah memilih elemen maksimum/minimum dari larik, 
lalu menempatkan elemen maksimum/minimum itu pada awal atau akhir 
larik (elemen terujung) (lihat Gambar 16.2). Selanjutnya elemen terujung 
tereebut “diisolasi" dan tidak disertakan pada proses selanjutnya. Proses 
yang sama diulang untuk elemen larik yang tersisa, yaitu memilih elemen 
maksimum/minimum berikutnya dan mempertukarkannya dengan elemen 
terujung larik sisa. Sebagaimana halnya pada algoritma pengurutan 
gelembung, proses memilih nilai maksimum/minimum dilakukan pada 
setiap pass. Jika larik berukuran n, maka jumlah pass adalah n -1. 

Sebelum: 


1_R 


belum terurut 


Sesudah: 

1 

n 

belum terurut 

HI 


terurut 


Gambar 16.2 Bagian larik yang tarurvrt:dan.tM^mUKurut^pada algoritma Pengurutan Selekal. 


Ada dua varian algoritma pengurutan seleksi ditinjau dari pemilihan elemen 
maksimum/ minimum, yaitu: 

1. Algoritma pengurutan seleksi-maksimum, yaitu memilih elemen 
maksimum sebagai basis pengurutan. 

2. Algoritma pengurutan seleksi-minimum, yaitu memilih elemen 
minimum sebagai basis pengurutan. 


Algoritma dan Pemrograman 


http://www.pakteguh.com 









Algoritmu Pcngurutan Scleksi-Maksimum 

Untuk mendapatknn larik yang tenirut rn.cna.ik. algoritma pcngurutan 
seleksbmnksiimim ditulis secara garis besar sebagai berikut: 

1. JumlahPass ■ n - I 

2. Untuk sotiap pass i = i. 2.JumlahPass Inkukan: 

2.1 cari clcmen terhesar (males) mulai dari elemen kc-i sampai clemen 
kc-n; 

2.2 pertukarkan males dengan clemen ke-;i; 

2.3 kurangi n satu (karena elemen ke-n sudah terurut). 

Rincian aksi pnda setinp pass, seperti di bawnh ini: 

PatM 1 : Can elemen maksimum di dalam L[x..n]. 

Pertukarkan elemen maksimum dengan elemen L[nJ. 

Ukuran larik yang belum terurut * n - 1. 

Pass 2 : Cari clcmen maksimum di dalam /.( 1 ..n - 1). 

Pertukarkan elemen maksimum dengan elemen Uji - 1). 
Ukuran larik yang belum terurut ■ n - 16. 

Pass 3 : Cari clcmen maksimum di dalam Ui..n - 2]. 

Pertukarkan clemen maksimum dengan elemen I.[n - 2]. 
Ukuran larik yang belum terurut = 11-3. 


Pass n- 1 : Tentukan elemen maksimum di dalam /.(1..2] 

Pertukarkan elemen maksimum dengan elemen /.[2I 
Ukuran larik yang belum terurut = 1. 

Setelah fviss n - i, elemen yang tersisa adalah /-[ij, tidak perlu diurutkan 
lagi karena hanya satu-satunya. 


Tinjau larik dengan n = 6 buah elemen di bawah ini yang belum tenirut. 
Larik ini akan diurut menaik dengan metode pcngurutan seleksi-maksimum: 


29 


27 10 


8 76 21 


1 2 3 4 5 6 


Pass 1 : 


Cari elemen maksimum di dalam larik /,[i.. 6 ] =* hasilnya: maks = /.[5I = 76 
Pertukarkan maks dengan L[n], diperoleh: 


F29 | 27 | 10 | 8 1 IT 

1 2 3 4 5 



6 
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Pass 2 : 


(bcrdnsarkan susunan larik basil pass 1) 

Cari elemcn maksimum di dalam larik U1..5] =z hasilnya: maks - 1 .\ 1] = 29 
Pertukarkan Maks dengan LfsJ, diperoleh: 


I 21 | 27 | 10 
1 2 3 



4 5 6 


Pass 3 : 


(bcrdnsarkan susunan larik hasil pass 2) 

Cari elemcn maksimum di dalam larik /.[1..4] => hasilnya: maks * L\ 2 1 ■ 27 
Pertukarkan maks dengan /.[4I, diperoleh: 


I 21 I a |~ro 



1 2 3 4 5 6 


Pass 4 : 


(bcrdnsarkan susunan larik hasil pass 3) 

Cari elemcn maksimum di dalam larik /.J1..3] => hasilnya: maks ■ /.[ 1 1 ■ 21 
Pertukarkan maks dengan /.( 3 l. diperoleh: 


1 ,o 1 9 

1 2 



3 4 5 6 


Pass 5 : 

(bcrdnsarkan susunan larik hasil pass 4) 

Cari elemcn maksimum di dalam larik U1..2] =» hasilnya: maks « /.| ij « 10 
Pertukarkan maks dengan /.[2J, diperoleh: 



1 2 3 4 5 6 

Tersisa satu cleraen (yaitu 8), maka pengurutan selesai. Larik L sudah 
terurut menaik! 

Jadi, pada setiap pass pengurutan terdapat proses mcncari harga maksimum 
dan proses pertukaran dua buah elemen larik. Ingat, algoritma mcncari 
elemcn maksimum sudah pemah kita bicarakan di dalam Bab Larik. 

Algoritma pengurutan seleksi-maksimum selengkapnya sebagni berikut: 

proce dure SelectlonSortl( Input / output L : LarikXnt, I nput ni integer ) 

( Mcnguruckan elemen-elemen larik sehingga tereuaun menaik 

dengan met ode pengurucan aelcksi-aakaiaum. 
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{ K.Awal : Elemer. larik L sudah tecdeiinial harganya. ) 

{ K.Akhir: Eleven larik L ceruruc rz enalk oedeaikian aehingga 
LllJ $ L[21 < - £ Lin) I 

DEKLARASI 

i 5 i nteger ( pencacah pass f 

J i intege r ( pencacah untuk ncncari nilai naksimuo: ) 

imaku : Int eger ( indeks yang beriol nilal oakaisojm oementara J 

make i integer { demon maksimus j 

temp : integer ( peubah bantu u ntuk pertukaran } 

ALGORITMA: 

for i •- n downto 2 do { Jumlah paaa uebanyak n - J / 

( carl elcmcn maksimum pada eieaen LH..1I } 
imakn 4-1 ( demon pertamj diaeumnlkan aebagal demon 

ma kill mum sementara ) 
make #- Mil ( demon makaimum J 

tor j •- 2 tg i do 
If L|J1 » make then 

imaka «- j 
mnka *- MJl 
end if 
endfor 

/perfukerken m aka dengnn HU J 
temp ♦- MiJ 
L (I) *- mak* 

L(tmaka| 4- Temp 

endfor 

Alyoflima 16.6 PenguruUin »etek«-mnh*murn (mean*) 


I’crbatikanlah bahwa pada algorilma SelectionSorti di alas kita dapnt 
menghilangkan pcnggunaau |>mil>ali rake. karena yang kita pcrlukan 
sebenamyn adalab indeks clcmen larik yang mcngandtmg nilai maksimum 
tersebut. .lika indeks itu kita catat, maka clcmen lariknya dapat diacu 
mclalui indeks tersebut. Dcngan demikinn, algorilma pengurutan selcksi- 
maksimiim dapat dibuat menjadi lebib elegan sebagni l>erikut: 

f rocedu ro SelectionSortl{i nput /output L t Lnrlklnt, Input m integer ) 

• litk.m oltmta-ml&man J.uik Lll nj Mhingga teraumm nm.,n 
dengan met ode pengurutan aelekai-makaimum. ) 

( K.Awal : Bloman larik L audah teidetiniol harganya. ) 

I K.Akhir: Eleven larik L terurut nenaik uedemikian aehingga 
LllJ * H2J S - S Lint j 

DEKLARASI 

t i Integer l pencacah paaa J 

J : inte ger [ pencacah untuk nanceri nilai m akaimum ) 

imakn : integer ( indeka yang berlal nilai mkeinum aemencara } 

temp t inte ger ( peubah bantu untuk pertukaran J 


Bab 16 - Algontma Pengurutan 



http://www.pakteguh.com 



ALGORITMA: 

for i «- n dovnco 2 do { Jumlah pass aebanyak n - 1 } 

{ carl elemen maksimum pads elemen L/i.-i J / 

imakfl 4- 1 (elemen perzaaa diaauaaikan sebagai elemen 

makalmum eemencara f 

for J *- 2 to i do 

if L(j) > Ltinaka] then 
imaka *- j 
end i f 
endfor 

{portukarkan L [imaka) dcngan HU} 
temp ♦- L(i] 

Hi] 4- L[imaka] 
l. [ lm.ikn) 4- temp 

endfor 

Algorltma 18.7 Pcngurutan pilih r. ;>n pouboh Mnks 


Untuk seterusnya, pada pencarian elemen maksimum/minimum yang kita 
calal hnnya indoles demon lank sajn. 

Sepeiti halnya pada pengumtan gdemlnmg. prosedur Tukar dapnt digunakan 
untuk mongganti nmtunan aksi pertukaran pada prosodur Select ionSortl tadi. 

f ocedure SelectionSortliinput/output L i Lariklnt, input niinteger) 
Nengurutkan elemon-elemen larlk Lfi..nJ eehlngga cerauoun menaik 
dengan meCOde pengurutan relekol-makalmut n. ) 

I K.Aval i Elemen larJk L audah terdefInlet haryanya. } 

I K.Akhtr i Elemen larlk L teturut menalk eedemlklan eehlngga 
Llll S LI3J i - i Llnl J 

DKKLARASI 

i i integer f pencacah pass ) 

J i integer ( pencacah untuk mencar/ niJal makalmum } 

Xmnko i int eger ( Indeka yang bcrlal nllai makalmum oementara } 

procedure Tukar (input/output a i integer, input/output b j integer) 

I Mempercukerkan nilal a dan b ) 

ALGORITMAt 

for i 4- n d ovnco 2 do ( Jumlah paaa aebanyak n - 1 } 

{ carl elemen makalmum pada elemen LI1..1J I 
tmako 4- 1 felemen pertama diaaumalkan aebagal elemen 

makalmum aemencara f 

for j 4- 2 to i do 

if L[j] > L[ imaka] t hen 
imaka «— j 
endif 
endfor 


Algontma dan Pemrograman 


http://www.pakteguh.com 




/pertukarkan Llimakol dengan LH1} 

TukartLliaakaJ, L|il) 

endfor 

Algoritma 16.8 Pengurulnn seloksi-maksimum dengan prosedur Tukar 

Apahila diinginkan larik yang terurut mcnunin . maka algoritma pengurulnn 
seleksi-maksimum sebagai berikut: 

Untuk setiap pass i - i. 2. n -1 lakukan: 

1. cnri elemen terhesar ( males ') mulai dan elemen kc-i sampai elemcn ke-n; 

2. pertukarkan muks dengan elemen ke-i. 

Kincian seliap pass sebagai berikut: 

Pass kc-i : Can elemen maksimum di dalam /.(i..nj. 

Pertukarkan elemen maksimum dengan elemen 1 . 1 1 1 . 

Pass kc-a : Cnri elemen maksimum di dalam /.| i6..n). 

Pertukarkan elemen maksimum dengan eleinen /.|a). 

Pass kc-3 : Cari elemen maksimum di dalam L(3..n]. 

Pertukarkan elemen maksimum dengan elemen /.(3]. 

Pass 11 - 1 : Cari elemen maksimum di dalam l.[n - 1.. nj. 

Pertukarkan elemen maksimum dengan elemen l.|n- t). 
Ukurnn larik yang bclmn terurut ■ i. 

Setelah pass n - l, elemen yang tersisa adalah /.|n|, tidak pcrlu diurut 
karena hnnya satu*satunya. 

Tinjau larik dengan n ■ 6 buali elemen di bawali ini yang belum terurut Larik 
ini ukan diurut inenunm dengan met ode pengurulnn seleksi-maksimum 



1 2 3 4 5 6 


Pass it 

Cari elemen maksimum di dalain larik hasilnya: imaks * 5, 

L[imaks\ ■ 7b 

Pertukarkan L[imaks) dengan /.|i|. diperoleh: 



1 2 3 4 5 6 
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Pass 2 : 


(berdasarkan susunan larik hasil pass 1) 

Cari elemen maksimum di dalam larik /.(16..6J =* hasilnya: imaks = 
L[imaks] = 29 

Pertukarkan L[imaks) dcngan L[2], dipcrolch: 



1 2 

Puss 3 : 


10 I 8 | 27 | 21 
3 4 5 6 


5. 


(berdasarkan susunan larik hasil pass 2) 

Cari elemen maksimum di dalam larik /.[3..6] =* hasilnya: imaks 
I.[imaks J ■ 27 

Pertukarkan L(irna*s) dengan /.(3I. dipcrolch: 



12 3 4 


J-10-1-21-1 

5 6 


5. 


Pass 4 : 


(berdasarkan susunan larik hasil /hiss 3) 

Cari elemen maksimum di dalam larik /.(4..6J =* hasilnya: imaks 
I.[inuiks]"2i 

Pertukarkan L[imaks\ dengan /.[.«]. dipcrolch: 



12 3 4 


L0-I..B 1 

5 6 


a 


6 . 


Pass 5 : 


(berdasarkan susunan larik hasil pass 4) 

Cari elemen maksimum di dalam larik /.I5..6] => hasilnya: imaks - 5. 
I A imaks ] * 10 

Perukarkan Uimaks] dengan Z|5J (sebenamyn tidak perlu dilakukan sebab 
to sudah berada pada |H>sisi yang tepat), diperoleh: 



Tersisa satu elemen (yaitu 8), maka pengurutan selesai. Larik /. sudah 
tcrurut menu run! 

procedure SelectionSort2 (i nput /ou tput L 1 Lariklnt, input n:integer) 

( Mengurutkan clcmen-elenen larik L[l..nl schingga tersuoun 

m anurun dengan metode pengurutan ttelckei -nakalmum. } 

I K.Awal : Elemen larik L sudah terdelinisl nilainya. } 

( K.Akhir: Slemcn lank L ceruruc manurun cedcsiktar. sehlngga 
LIU 2 L(2J 2-2 Lin] } 
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DKKLAAAS2 

i i integer I pencacah paos ) 

J « Integ er ( pencacah untuk mcncari nilat makaluum J 

immkm i Integer ( Indekt yang burial nilal maJcaimura aeimtnttr* ) 

procedure Tukar < input/ outp ut a » integer, inp ut/output b i Integer ) 

( Htotpartukarkan nilal a dan b ) 

ALGORTTHAi 

for J *- 1 to n - 1 do 

( carl indeka eleven ma/.airn urn dl dalam L[l..nJ ) 
laakn 4- 1 

for i — 1 * 1 to n do 
if LljJ > Uimaka) then 
lroako *- j 
endlf 
ondfor 

{pertukarkan Hlmaka] dengan Hi)) 

Tukar(L|lmnko| , L(i]) 

•j»d«or 

Alflorlimo 10.0 Ponouruton *«l«k»i-fnak»imum (monutun) 


Algnritmn Pcngurutan Sclcksi-Mininuim 

Berbeda dengan algoritma pengurutan sdeksi-maksimum, maka pada 
algoritma |>engurutan seleksi-mininium, basis pencarian adalah elemen 
minimum (terkecil). Klemen minimum ditempatkan di awal larik (agar lank 
lerurut mennik) atau diiempatkan di akhir larik (agar larik terunit menurun). 

Algoritma seleksi-mininium untuk memperoleh larik yang lerurut manaik 
secant garis besar ditulis sebagai berikut: 

Untuk setiop pass i * 1, 2. n - 1 lakukan: 

1. cari demen terkecil (min) mulai dan elemen ke-i sampni elemen ke-n; 

2. pertukarkan min dengan elemen ke-i. 

Rincian setinp puss sebagai berikut: 

Pass 1: Cari elemen minimum di dalam L[\..n | 

Pertukarkan elemen terkecil dengan elemen /.[ 11 

Pass 2: Cari elemen minimum di dalam l.| 16../1I 

Pertukarkan elemen terkecil dengan elemen /-[2] 

Pass 3: Cari elemen minimum di dalam L[3..n] 

Pertukarkan elemen terkecil dengan elemen /.| 3 l 
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Pass »t-i : Cari demon minimum di daiam L[n-i..n] 

Pertukarkan demon terkecil dengan demon UN-i] 

(elcmcn yang tersisa adalah L(nJ, lidak perlu diurut karena hanya *alu-satunyn) 

Tinjau larik dengan n * 6 buah demon di bawah ini yang bclum lerurut. 1 -irik 
ini akan diurut menaik dengan nlgoritma pengurulan seleksi-minimum: 

I 29 I 27 I 10 I 8 I 76 I ~2T~~| 

1 2 3 4 5 6 


Pass l: 


Cari demon terkecil di daiam larik L[i..6] => basilnya: imin - 4 . 74 miiVt] * 8 
Pertukarkan L[imin] dengan L[i], diperoleh: 



27 | 10 | 29 I 76 I 21 | 

2 3 4 5 6 


Pimm 2: 


(berdasarkan susunan larik basil pass l) 

Cari demon terkecil di daiam larik /,[ 16..6) =» basilnya: imin - 3, l.[imin] = to 
Pertukarkan I.[imin] dengan L[2], diperoleh: 



1 2 3 4 5 6 


Pass 3: 


(berdasarkan susunan larik basil pass 2) 

Cari demen terkecil di daiam larik U3..6I •■=> basilnya: imin 6.1.|imin) = 21 
I'ukar l.[imin] dengan /.( 3 l. diperoleh: 



29 1 76 - T? . 


1 2 3 4 5 6 


Pass 4: 


(berdasarkan susunan larik basil pass 3) 

Cari demen terkecil di daiam larik Lt<|..6] =* basilnya: imin 6. 1 .[imin] = 27 
Pertukarkan L[imin] dengan U4], diperoleh: 



12 3 4 


76 | 29 I 
5 6 
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Pass 5: 


•(berdasarkan susunan larik basil pass 4) 

Can elemen terkeril di dalam larik IA5..6] =* hasilnya: innn - 6. Uimin] = 29 
Pcrtukarkan /^imin] dengan LI5I. dipcroleh: 



1 2 3 4 5 6 

Tcrsisa satu elemen (yaitu 76), maka pcngurulan selcsai. Larik /. sudah 
tcmrut menaik! 

! roccdure SolcctionSort3(i npu t/output L : Lariklnt, input n i integer) 
MentjurutkMn el omen-aleven larik Hl.nJ eehingga terouaun menaik 
dengan met ode pengurulan aelekai-minimum. / 

( K.Awa1 i Eleven larik L oudah terdefinioi nilainya. I 
{ K.Akhir: Elemen larik L ccrurut menaik aedemlkian nehlngga 
Llll S’ H2] S - S Llnl I 

DKKIJVKASX 

l i Integer { pencacah pane ) 

J i integer { pencacah untuk manc.nl nilal makaimum ) 

imln i integer ( Indeka yang ber lai mini nuikflimum tinmunlara ) 

procedure Tukar (Input/output a i integer, input/output b > integer) 

{ Memperiukarkan mini a dan b } 

ALOORITMAi 

tor i *- i to n • i do 

{ carl indeko dan eJeaen minimum di dalam larik L(l..Nl l 
Imin «- i 

tor J *• i • 1 to B do 
it L|]1 « Minin) then 
imln ♦- j 
e nd i t 
endfor 

Ipertukarkan Lfiminl dengan LIU/ 

Tukar (L(lmin). Ml)) 

endfor 

Algorltma 16.10 Pongurutan wieksi-mmimum (menaik) 


Apabila diinginkan elemen-elemen larik tcmrut menurun, maka algnritma 
pcngurulan sdeksi-minimum sebagai berikut: 

? rocodu re SelectionSort*( input / outp ut L : Lnrlklnt, input na Integer ) 
Mengurutkan clemen-eleaen larik Lll..nJ uchingga tcrauaun menurun 
dengan metode pengurutan seleksi-minimum. I 
{ K.Awa 1 : Elemen larik L audah terdeHnioi nilainya. I 
{ K.Akhirs Elemen larik L terurut menurun aedemlkian sehingga 
LIU 2 H2l 2 _ > L[nl l 
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DEKLARASI 

i s Integer / pencacah pass } 

j i integer ( pencacah ur.cuk sencari nilai maksimum } 

imin : integer { indeks yang barisi nilai minimum semencara } 

p rocedur e TUkar (input/ output a : Integer , i nput /ou tput b : I nteg er) 
( Momportukarkan nilai a dan b } 

ALGORITOA: 

tor 1 ♦- r. down to 2 do { jlMlsb pass sebanyak n - 1 kali ) 


I carl clenen terJcecil di da I am L(1..1J 
lnin •- 1 



i 


(pertukarkan Lliminf dengan HU) 
Tukar(L(lmin), MU) a 


endfor 

Algoiltma 16.11 Pongurutnn Botokiiminimum (menurun) 


Tinjnu larik dengan n 6 Inuih elenicn di bawnh ini yang belum lenmit. Lnrik 
ini akan diurut menurun dengan inctode pcngumtnn seleksi-minimum: 

I 29 | 27 | 10 | 8 | 76 I ~21 I 

1 2 3 4 5 6 


Foil i: 


Cari demon terkccil di dnlam larik /.[ 1..6] =* imin 
Pertukarkan 7 .(imm| dengan /.|n), dipernleb: 


I 29 1 27 | 10 | 21 1 76 



1 2 3 4 5 6 


A. 1 .[imin )» H 


Pass a: 


(berdosurkan susunan larik basil pass i) 

Cari elemen terkccil di dalam larik /.(1..5I =» imin - 3. /.[imin] * 10 
Pertukarkan H imin l dengan 7 ,( 51 . diperolch: 


29 | 27 | 76 | 21 



1 2 3 4 5 6 
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Pass 3: 


(berdasarkan susunan larik basil pass 2) 

Can elemen terkecil di dalam larik £[1.4] => i/nm =4, Ltfmin] = 21 
Pertukarkan Himin] dengan /.(-ll (sebenamya iidak perlu dilakukan, karena 
21 sudah berada pada posisi yang tepat) diperoleb: 


| 29 | 27 | 76 



1 2 3 4 5 6 


Pass 4: 


(berdasarkan susunan larik basil pass 3) 

Cnri elemen minimum di dalam larik H1..3] =» miin * 2 , /.(imm) « 27 
Pertukarkan /.|mn'n| dengan /43I, diperoleb: 


1-M-L 7? 



1 2 3 4 5 6 


Pass 5: 


(berdasarkan susunan larik basil pass 4) 

Cnri elemen minimum di dalam larik /.(1..2J =» imin ■ 1. Ltfinin ] ■ 29 
Pertukarkan /.|rmm) dengan /.(a|. diperoleb: 



1 2 3 4 6 6 


Tersisa satu elemen (yaitu 76). makn pengunitaii selesai. Urik I. sudah 
terunit menurunl 


Kmnentar Mengenai Algoritma Pengunitaii Seleksi 

Dibanding dengan algorilma pengurutan apung, algoritma pengunitnn seleksi 
meiniliki kineija yang lebib baik. Alnsannya, openisi |H*rtuknran elemen banva 
dilakukan sekali saja pada setiap pass, dengan demikian Inina pengurutannya 
herkurnng dibandingkan dengan metode pengiinitnn geleinbung. 


16.5 Algoritma Pengurutan Sisip 

Dari namanya, pengurutan sisip (insertion sort) adalab metode jx-ngurutan 
dengan earn menyisipkan elemen larik pada posisi yang tepat. Pcncarinn posisi 
yang tepat dilakukan dengan menvisir larik. Selamu penyisiran dilakukan 
pergeseran elemen larik. Metode pengurutan sisip cocok untiik persoalan 
menyisipkan elemen baru ke dalam sekumpulan elemen yang sudah terurut. 
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Algoritma Pengurutan Sisip untuk Pengurutan Mcnaik 

Untuk mendapatkan larik yang tenant menaik . algoritma pengurutan sisip 

secara garis besar diitulis sebagai berikut: 

Untuk setiap pass i = 2. n lakukan: 

1 . y^un 

2. sisipkan y pada tempat yang sesuai di antara L[ 1J... /.| fl 

Klncian setiap pass sebagai berikut: 

Asumsikan: /.[ 1 ] dianggap sudah pada tempatnya 

Pass 2 : Elemen y * /.(2J hams dicari tempatnya yang tepat di dnlnm 
/.(1..2I dengan cara menggeser elemen ke kanan (atau ke 
bawah, jika anda membayangkan larik terentang vertikal) bila 
/.|»..|J lebih besar dnripada /.|2j. Misalkau posisi yang tepat 
adalah k. Sisipkan /.(2| pada L\k\. 

Pass 3 : Elemen ij ■ /.l 3 l hams dicari tempatnya yang tepat di dalam 
/.[1..3I dengan cara menggeser elemen l\ 1..2J kc kanan (atau ke 
bawah) bila ZJ1..2] lebih besar daripada /.I3]. Misalkan posisi 
yang tepat adalah k. Sisipkan 7.(3] pada I.\k). 


Passn : Elemen y ■ L[n) hams dicari tempatnya yang tepat di dalam 
/.[1../1I dengan cara menggeser elemen /.ji..n - ij ke kanan (atau 
ke bawah) bila 7 .[i..n-i] lebih besar daripada L[n]. Misalkan 
posisi yang tepat adalah k. Sisipkan L[n 1 pada !.[k]. 

Hasil dari pass n: I-irik L[i..n] sudah temmt menaik. yaitu 
/.|i] ^ /.[2I £ ... S L[nJ. 

Tinjau larik dengan n = 6 buah elemen di bawah ini yang belum tenirut. 
l-irik ini akan diumt menaik dengan metode pengurutan sisip: 



1 2 3 4 5 6 


Asumsikan: Elemen y = /.(1] = 29 dianggap sudah temrut. 



1 2 3 4 5 6 
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Pass 2: 


(berdasarkan susunan lank pada akhlrpass i) 

Can posisi yang tepat nntuk i j » « 27 di dalam /.I1.2J, diperoleh: 



10 1 8 I 76 | 21 I 
3 4 5 6 


Pass 3: 


(berdasarkan susunan larik pada akliir pass 2) 

Can posisi yang tepat untuk?/ = 7.(3] * 10 di dalam M1..3L diperoleh: 


C'.J 1 -- 

1 0 


mi 


1 2 3 4 5 6 


Pass 4: 


(berdasarkan susunan larik pada akliir pass 3) 

Cari posisi yang tepat untuk [/•/.[4J • Bdi dalam /.(1..4I. diperoleh: 



12 3 4 


i 6 l 21 1 

5 6 


Pass 5: 


(berdasarkan susunan larik pada akliir pass 4) 

Cari posisi yang tepat untuk y - /.[si * 76 di dalam Z-I1..5], diperoleh: 


IKIOE] 


21 —1 


1 2 3 4 5 6 


Pass 6: 

(berdasarkan susunan larik pada akhir pass 5) 

Cari posisi yang tepat untuk y = /.|6J = 21 di dalam L( 1..6], diperoleh: 



1 2 3 4 5 6 


Algoritma pengurutan sisip selengkapnya sebagai berikut: 

procedure InsertionSortM input / output L : Lariklnt, i nput n : inte ger) 
{Hengurutkan demon -el even larik sehingga tersusun menaik 

dengan met ode pengurutan sisip. } 

l K.Awal : El omen-e lem*>n larik L sudah terdefiniai nilainya. } 

( K.Akhir : EJamen-cleven larik L ceruruc ra enoik sedemlkian sehingga 
L(U S L12J S _ S Llnl I 
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DEKLARASI 

i : integer ( per.cacah pass } 

3 ! i nteger ( peccacah untuk peneluauran lari )c ) 

Y ! I peubah bantu agaz UK] tidak ditimpa aelama 

purgeaeran ) 

ketemu : boolean ( untuk renyatakan pea la i pcnyioipan ditemukan } 

ALGORITMA: ( clemen L[l] diaoggap eudah terurut ) 

for i «- 2 to n do ( mu lai dari paaa 2 carpal pane W ) 

y 4- Mil 

( carl poaioi yang copat untuk y di da lam 1(1.. J-IJ oambll 
menggoaer) 

1 *- i - 1 

ko temu *- fa 1 tie 

while (j 2 1 ) and (not ketemu) do 
Tf y « L()l then 

L(J ♦ 1 ] •- Ltjl ( geaer ) 

j - j-1 

oltto 

ketemu 4-true 

MjltC 

end while 

77 < J 2 £ ketemu ] 

MJ.IJ •- y ( nlelpkan y pada tvmpat yang eevual I 

ondfor 

Algoritma 16.12 Pongurutan snip (mena*) 


Algoritma Pengurutan Sisip untuk Pencilrulun Menurun 

Algoritma pengurutan ship untuk mempcrolcli clemen larik yang terurut 
menurun. seperti berikut ini: 

procedure InaertionSort2(Input/output L i Lariklnt, input n t integer) 

/ Nenguzutkan elernen larik Lfl..nJ aehingga terauuun menurun deng.m 
netode pengurutan aiaip. } 

{ X.Avdl : £1 omen -el omen larik L eudah tcrdetlniai nilainya. 

I K.Akhir i Klemen-elemen larik L corurur menurun aedemikian nehsnggo 
L(l] 2 L[2] 2 _ 2 Lfnl ) 

DEKLARASI 

1 * i”?®3®r ( per.cacali paoo } 

j i integer ( pencacah untuk pencluouran larik } 

Y 1 integer ( peubah bantu agar UK] tidak ditimpa 

aelama porgeaaran ) 

ketemu t boolean [ untuk r-enyatafcan pooiei penyioipan ditemukan } 
ALGORITMA: 

{ clemen L(l] dianggap sudah terurut } 

for 1 *- 2 to n do { oulai dari lar.akah 2 aampai langkah n ) 
y 4- Mil 

{ cari poaiai yang tepat untuk y di dalan L(l..l- 1 ] oambil monggeacr ) 
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whll« (J ^ 1) «nd (not ketemu) go 
If y > L(J) than 

H3*Xl ♦- L(J) { gaaor ) 


j - 1 

elw 

ketetnu«-true 
• endlf 
endwhile 

{ J < 1 or ke Cenrj } 

MJ*ll *- y l eiaipkan y pada eerapat yang aeeuai ) 


endfor 

Algorttma 16.13 P angumtan sWp (manu run) 


Komcntar Mcngenai Algoritrna Pcngurutan Slsip 

Keiemahan algoritrna pengurutan slsip terletak pada banyaknya operasi 
pergeseran yang diperlukan dalam mencari posisi yang tepat untuk elemen 
larik. Pada setiap pass f, operasi pergeseran yang diperlukan maksimum i - l 
kali. Untuk larik yang berukuran besar, jumlah operasi pergeseran 
meningkat secara kuadratik, sehingga pengurutan sisip kurang bagus untuk 
volume data yang besar. 


16.6 Algoritrna Pengurutan Shell 

Algoritrna pengurutan Shell diberi nama seuai nama penemunya (Donald 
Shell tahun 1959) [PAR 951 - Algoritrna ini merupakan perbaikan terhadap 
metode pengurutan sisip. Kelemahan metode pengurutan sisip sudah 
disebutkan pada bagian sebelum ini di alas. Jika data pada posisi ke-1000 
ternyata posisi yang tepat adalah sebagai elemen kedua, maka dibutuhkan 
kira-kira 998 kali pergeseran elemen. 

Untuk mengurangi pergeseran lerlalu jauh, kita mengurutkan larik setiap k 
elemen dengan metode pengurutan sisip, misalkan kita urutkan setiap 5 
elemen (k kita namakan juga step atau increment). Selanjutnya, kita gunakan 
nilai step yang lebih kecil, misalnya A: = 3, lalu kita urut setiap 3 elemen. Begitu 
seterusnya sampai nilai k ■ 1. Karena nilai step seialu berkurang maka 
algoritrna pengurutan Shell kadang-kadang dinamakan juga algoritrna 
pengurutan kenaikan yang berkurang ( diminishing increment sort) 

Untuk mempeijelas metode pengurutan Shell, tipjau pengurutan data 
integer berikut: 
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Data sebelum pen guru tan: 


1 81 1 

94 | 

3EI 

inn 


O 

Cl 

O 

Ell 

|71 

eh 

IE1I 

ml 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

Pass 1 (step 

= 5): Urutkan setiap lima elemen 






fail 

94 | 

11 1 

01 


35 

17 1 

|95 

[WL 

58 

[~ 41 ~ 

1 ™ | 

15 | 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 


35 . 41 . 81 

17 . 75 . 94 

11 . 15 . 95 

28 . 96 


Baris pertama menyatakan elemen yang sudah terurut pada posisi I, 6, dan 
ll. Baris kedua menyatakan elemen yang terunit pada posisi 2,7, dan 12 
Baris ketiga menyatakan elemen yang sudah tenirut pada posisi 3,9, dan 13 
Baris keempat menyatakan elemen yang sudah terunit pada posisi 4 dan 9. 
Hasil pass pertama: 35 . 17 . H. 28,12,41, 75 . 15 . 96 ,58.81, 94.95 


Pass 1 (step - 3): Urutkan setiap tiga elemen 
1 35 | 17 | 11 1 28 I 12 1 41 | 75 


15 


58 I 81 I 94 I 95 


1 

I 

28 


4 

I 

35 


7 

I 

58 . 


10 11 12 


75 


13 

I 

95 


12 


15 


. 17 . 


.81 


11 . .41 . 94 . 

Hasil pass kedua: 28,12,11, 35 . > 5 . 4 ». 58 .17. 94 . 75 . 8 l, 96 ,95 


.96 


Pass 3 (step - 1): Urutkan setiap satu elemen 

[ 35 [ 17 I 11 I 28 | 12 I 41 1 75 I IS I 96 | 58 | 81 I 94 T~ 95 l 
1 2 3 4 5 6 7 8 9 10 11 12 13 

I I I I I I I I I I I I I 

II 12 1 5 17 28 35 41 58 75 81 94 95 96 

Hasil pass ketiga: 11,12.15,17.28,35. 4 ». 58 , 75 .81, 94 . 95.96 

Perhatikanlah bahwa pada pass yang terakhir (step - 1), pengurutan Shell 
menjadi sama dengan pengurutan sisip biasa. 

Nilai-nilai step seperti 5,3, dan 1 bukanlah angka "sihir" (magic). Kita dapat 
memilih nilai-nilai step yang lain yang bukan kelipatan dari step yang lain. 
Pemilihan step yang menipakan perpangkatan dari dua (seperti 8, 4, 2, 1) 
dapat mengakibatkan perbandingan elemen yang sama pada suatu pass 
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akan terulang kembali pada pass berikutnya. Meskipun beberapa penelitian 
telah dibuat pada algoritma Shell, namun tidak seorang pun yang dapat 
membuktikan bahwa pemilihan step tertcnlu paling bagus di antara pemilihan 
step yang lain (KRU91]. 

Secara garis besar, algoritma pengumtan Shell dituliskan sebagai berikut: 

1. step 4 - n { n ■ ukur.in larik > 

2. While step > 1 do 

a. step <- step div 3 ♦ 1 

b. For i <- 1 to step do 

Insertion Sort setiap elemen k e-step mulai dari elemen ke-i 

Algoritma |K'ngumtan Shell dibuat dengan pertama-tama memodifikasi 
algoritma pengumtan sisip sedemikian sehinggn kita dapat mcnsjH*sifikasikan 
titik awnl pengumtan dan ukuran step (pada algoritma pengumtan sisip 
yang asli, titik awal pengumtan adalah elemen pertama dan ukuran step - 1). 
Modifikasi algoritma pengumtan sisip ini kita beri nama InsSort. Algoritma 
InsSort dan ShellSort selengkapnya kita tulis berikut ini. 

procedure InnSort(input/output L i Larlklnt, input n, start, 
utep 1 integer) 

{Mongurutkan eienen Jar]* Llatart. .nl aehir.gga terauaun menalk dengan 
metode pengurutan ololp yang dimodifikaai untuk Shell Sort. ) 

I K.Aw.il 1 Rlnmen-elumen larik L audah terdollnial mlainya. } 

I K.AkhinRlnmnn-elemen larik pada kenaikan aebeaai atep terurut mnnalk} 

DRKLARA 3 I 

I 1 Integer ( pencacah atep } 

J 1 integer ( pencacah untuk penoluauran larik ) 

y 1 integer / peubn/i bantu yang menyirwpan nilal UK]) 

ketemu i boolean { untuk menyatakan poalai penyialpan ditemukan ) 

ALGORITMA: 

/ a lemon Llatart] dianggap audah terurut ) 

1 «- ntnrt ♦ etop 
while i S n do 
y ♦- Mil 

{ nimpkan LIU ko dal am bag lan yang audah terurut f 
I cari poolm yang tepat untuk y di da lam Llatart . . i- 1 ] aambil 
mcr.ggeoar) 
j *- i - ntep 
ketemu*-f aloe 


while (j i 1) and (not ketesnj) do 
if y < Llj] then 

L(j * otepl *- Ltjl geaer f 
j ♦- j - ntep 
elee 

ketemu *- true 
end if 
endwhiie 

fJ < 1 or ketemu ] 
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Llj • step] *— w ( eiaipkan y pa da rotrpac yang sesuai ) 
i *- i • scop 
cr.dwhile 

Algoritma 16.14 Modifikasi pengurutan sis p untuk pengurutan Shea 


Perhatikan Algoritma 16.14 di alas, jika start = 1 dan step = 1, maka 
algoritma insSorc menjadi saina dengan algoritma pengurutan sisip biasa. 

proceanre ShellSort Unput / outptit L j Lazlklnt, input n t inteaei ) 

(tfenguruc/can elemen larik L[l..nJ eehingga tersueun menaik dengan 
motode pnngurucan Shell. ) 

I K.Aw.il : Elemen-olemen larik L audah terdetiniai nilainya. ) 

I K.Akhlr: Blemco-elemen larik L terurut monalk ) 

DBKLARAS1 

ntop. ut>iz t 1 lntogot 

DKaKRIPSI 

atop «- n 
whilo stop > 1 do 

atop ♦- step dlv 1 • 1 
tot atarc ♦- 1 to atop do 
InoSortil.. n. start, atop) 
ond for 
qp dwhiig 

Algoritma 16.15 Pengurutan Shall 


Komentar Mcngcnni Algoritma Pengurutan Shell 

Sebagaimana sudoli dijelnskan sobcluninya. algoritma pengurutan Shell 
merupakan perbaiknn terhadnp melodc pengurutan sisip. Namun, tidak 
seorang pun yang pornah dapat menganalisis algoritma pengurutan Shell 
seeara tepat, karena pcmililian ukuran step (seperti 5, 3, 1, atnu 
pendeftnisian ukuran step dengan pernyataan nt#*p «- atop div 3 • 1) 
didusarkan pada pertimbangan sugesti. Tidak ada aturan yang diketflhui 
untuk menemukan ukuran step yang optimum. Jika step dipilih yang 
berdekatan, semain banyak jumlah pass yang dihasilkan, tapi setiap pass 
mungkin lobih ccpat. Jika ukuran step menu run dengan cepat, jumlah pass 
akan berkurang tetapi setiap pass menjadi lebih panjang (lama). Namun 
yang pasti, ukuran step terakhir adalah 1, sehingga pada akhir proses, larik 
diunitkan dengan pengumtan sisip biasa. 


16.7 Penggabungan Dua Buah Larik Terurut 

Misalkan kita mcmiliki dua buah larik, Li dan L2, yang masing-masing 
sudah terurut menaik. Kita ingin membentuk scbuah larik baru, L3, yang 
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merupakan gabungan dari dua buah larik tersebut sedemikian sehingga L3 
juga tern rut menaik. 

Misalkan elemen-elemen larik Li dan L2 masing-masing adalah 

Larik Ii: Larik L2: 

I 1 1 I? 1 » I H I 15 | 27 | 30 ~| 

Penggabungan Li dan L2 menghasilkan L3 yang tetap terurut menaik: 


Larik to _ 

| 1 | 2 | 13 | 15 | 24 | 27 | 30 | 


Proses penggabungan dikeijakan dengan cara membandingkan satu elemen 
pada larik Li dengan satu elemen pada larik L16. Jika elemen pada Li lebih 
kecil dari elemen pada L2, maka salin elemen dari Li ke L3. Elemen 
berikutnya pada Li maju satu elemen, sedangkan elemen L2 tetap. Hal yang 
sama juga berlaku bila elemen dari L2 lebih kecil dari elemen Ll, maka salin 
elemen dari L2 ke L3. Larik L2 maju satu elemen, larik Li tetap. Dengan cara 
seperti ini, akan ada larik yang elemennya sudah duluan habis disalin, 
sedangkan larik yang lain masih tersisa. Salin seluruh elemen yang tersisa ke L3. 

Hal lain yang harus diperhatikan adalah ukuran larik L3. Jumlah elemen 
larik L3 adalah banyaknya elemen larik Li ditambah dengan banyaknya 
elemen larik L16. Jumlah elemen larik L3 ini harus lebih kecil dari jumlah 
maksimum elemen larik yang disedlakan ( Nmaks ). 


Penggabungan Li dan L2 pada Contoh 16.9 dilaksanakan sebagai berikut: 

ft 


HTWI 


1 1 M“l 




1 < 2-*1 


1-1 


2 < 13 -♦ 2 | 1 | 2 


T 


m 


1 i i3 i a 


1 113124 


1 | 13 | 24 


1 |l 3 |g 4 ] | 2 |>, 15 ;| 27 1 30 l 15 < 24-*15 I 1 I 2 113 | 15 ~ 


arntata 


hi umts 


13 < 15—*13 I 1 1 2 | 13 | 


2 115127,1 30 1 24 < 27 -» 24 | 1 1 2 | 13 | 15 T 24 

27 -» 

30 


1 1 2 M 3 115 | 24 127 


2 15 27 


1 | 2 1 13|15124127 


30 
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AJgoritma penggabungan dua buah larik temrut sdengkapnya sebagni bcrikut: 

procedure TableMerge ( inp ut LI : Lariklnt, input nl : integer, 

input L2 : Lariklnt, input n2 ; integ er, 
output LI : Lariklnt. output n3 : integor) 

( Penggabungan dua buah lank eerurut, LI dan L2. menghaallkan larik 
baru L 3 yang terurut menaik. } 

{ K.Awal t Larik Llll..nlI oudah t erdetiniai eletaen-elemennya dan 
terurut menaik. Larik L3[l..n2I audah tcrdcfinioi eleven-clemennya dan 
terurut mouaJk. f 

(K.Akhir: Larik L3[l..n3j berioi hasil penggabungan larik LI dan larik 
L2 dar. clcMn-elevennya terurut menaik. n3 - nl * n2 adalah ukuran 
larik L3. } 

DEKLAPASI 

kl, k2, k3 i integer 
ALGORITMA: 

n3 «- nl » n2 ( ukuran larik L3 } 

kl «- 1 

k.2 4- 1 
k3 4- 1 

while (kl S nij and (k2 S n2> do 
if LllklJ S L2 (k2j then 
1.3 (kl] 4 - LI (kl) 

kl •- kl ♦ 1 (LI maju aatu eleven} 
nine 

Lllkl] •- L2(k2] 

k2 k2 • 1 ( L2 maju aatu eleven} 

•ndif 

k3 4- kl ♦ 1 
en dwhi le 

( kl > nl or k 2 > n 2 } 

( aalln ulna LI, Jika ad .i } 
while (kl i nl) do 
L3(k3] 4- Lllkl] 
kl #- kl 4 1 
kJ 4- kl . 1 
endwhile 
■pci > nl } 

( aalin alaa L2, jika ada } 
while <k 2 S n 2 ) do 
L3(kJ] 4- L2(k2] 
k2 4- k2 4 l 
k3 4- kl 4 l 
endwhile 

7 k 2 > n 2 } 

Algorltmo 16.16 Ponggobungon dua buah lank trrurul _ 
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16.8 Pengurutan pada Larik Terstruktur 

Algoritma pengurutan yang dihahas sebelum ini rncnggunakan larik dcngan 
elemen-elemen bertipe sederhana. Fada sebagian besar kasus, elcmen larik 
soring bertipc terstruktur. Contoh. misalkan TabMhs adaiab scbuah larik 
yang demennya menyatakan nilai ujian seorang mabasiswa untuk suatu 
rnata kuliah (MK) yang ia ambil. Data setiap mabasiswa adalah NIM (Nomor 
Induk Mabasiswa), nama mabasiswa. mata kuliah yang ia ambil. dan nilai 
mata kuliah tcrscbut. Deklarasi nama dan tipc sebagai bcrikut: 

DEKLARASl 

conitt Nnxtlrrt • 100 

typo Mihnuluwa : rocord »NIM i Intege r. ( Honor Induk Mahaciawa } 

I.'jAiKhe i atr;ng, / nama mahaalaea ) 

KcooMK fpfrig,f kcde Mt4 kuJjdh ) 

Nildli clur J~ lodeka nilai MK (A/B/C/D/B) ) 

Syptt TobMha i .it ray U. f.'nvtkol of Mahanluwi 
M i TrthMh* 

Algoritma 10.17 DtMMlftIWfcMyr __ 

Stniktur lojik larik M ditunjukknn di dalam Bab I. Fada proses entry data 
mabasiswa, data dimasukkan socara ncak (tidak tcrurut herdusarkan NIM). 
Kita dnpat mengurutkan sekumpulan data mabasiswa tcrscbut dcngan 
algoritma pengurutan yang sudah dibicarakan di alas. 

Prosedur bcrikut rncnggunakan metode pengumtan pilih maksimum untuk 
mengurutkan sekumpulan data mabasiswa berdasarkan kunci NIM. 

p rocedure got tDetaMha < Input / out put M » TebMha, Input o i latnWT l 

I Mengurutkan el ernen larik M( 1 ..N] aehingga terauaun menalk dengan 
metode pengurutan pilih mak annum. / 

{ K.Awal i Kleman-elomen larik M audah terdeflnlal. ) 

( K.Akhlr: Klomen larik H C#rurut ntenaik aedemlklan aehlngga 
Mil] S Mill S - S H[n) ) 

DEKLARASI 

1 i incaqor ( pencacah paaa f 

j int eger ( pencacah untuk mencarl nilai nakaitmw ) 
iBvrtkn i Integer / indeka yar.g berlal nilai makaimum acmentara ) 

procedure Tukar t lnput / output a : Kahasinw.t, 
input/output b r Maheelnve) 

{ Mumpertukatkan alemen «i dan b ) 

AUlOkITMA: 

for i ♦- a downto 2 do { jualah paoa uebanyak n - I } 

( carl NIM terbeaar pada alemen Mil..11 ) 

Imoks 4 - 1 {elcmen pertaea dianuanik.in ocbagal elcmen terbeaar 

eementara } 

for ) *- 2 to i do 
if Mljl.NIK > KtimokB].N2H then 
tnveka *- j 
ondlf 
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ondtot 

{pcrtukatkan M[imaksl dengan H[i1) 
Tukar (M[ itr.ikr.) , M|l]) 
ondtor 

Algorltma 16 18 rgfruklur 


Prosed ur Tukar: 

procedure Tuknt (I npuc / outpuc a Mahaniova. 

input/ output b i Maha*:sva> 
l Memportukarkan niiai a dan b 

{ K.Awal i a dan b oudah tordellmai nllai-nilalnya. 

( K.Akhir: b barioi niiai a acbdutr. pcrtukaran, dan b beriai niiai a 
aebelum pcrtukaran. } 

0 KKLAHA. 1 I 

tmrji i Mahaninwn ( pcubah bantu untuk pcrtukaran J 

ALOOHITMAi 
toirp ♦- a 
a *- b 
b »- tmrv 

Algorltma 16.19 Prosodur Tutor 


16.9 Algoritma Pengurutan dalam Bahasa 
PASCAL dan Bahasa C 

I)i bnwnh ini kita sajikan algoritma pengurutan yang telah dikcmukuknn di 
alas dalam kcdua bahasa terscbut. 

PASCAL 

<• DEKLARASI nan u •) 

conot Nmakii - 1000; fjurai.ih elcroon lmrik ) 

typo Lurlklnt array 1 1 . .Kr «k:«) of intogar; 


l. Algoritma Pengurutan Apung 

procoduro BubbluSort1(var L s Lariklnt; n intogar) 

(yengurutkan larik Lll..n] achingga terurut n cnaik dengan algoritma 
pengurutan gdembung. ) 

I K.Awal : Elomcn iarik L oudah tcrdeliniai. ) 

( K.Akhlr: Elemen larik L terurut mcnaik aedenikian aehingga 

HU <• Liaj < _ <- Uni 1 

var 

i : intogar; { pencacah untuk jualah langkah ) 

k : intogar, t pencacah,untuk pengapungan pada ectiap langkah } 

teerp : intogor; ( pcubah bantu untuk pcrtukaran } 


Algontma dan Pemrograman 


http://www.pakteguh.com 








bag In 

for 1 s- 1 1 to n 1 do 

for k i • n downto 1 • 1 do 

if LtVO Llk-ll than 
bagin 

( pcrcukarkan L[k] dengan Llk-ll } 

temp J l.lkl; 

Llkl i- L(k•1 )i 

Llk-ll «• tempi 

and; (if/ 

{ endfor / 

I cndfor / 

and; 


2. Alftoritma Pcnj’urutan Sclcksi-Maksinuim 

procadura SaluctlonSor t livir l , Lariklnt; I. s Integer)! 

( Mengurutkan elemen lank m..n) aehlngga ternuoun menalk ilongan 
netode pengurutn n eolekal -makoiiuiim. ) 

( K.kwnl > El0BWn larlk L audah tardttinial harganya. 

{ K.Akhlr: Blamen larik L teruiut nmnalk aedemlklan nehlngga 

LIU «* L[2J «• _ <• LlnJ ) 

vat 

lntogar, ( pencacah untuk Jumljh langkah / 

s lntogar; / pencacali untuk mencarl nllal Mktfimim } 

Iraki* : intagar. ( lndeke yang betlul nllal nakalwum oament/ua / 
t-.HBp i lntogar; ( peubah bantu untuk pe it ukeran / 

bagin 

for . i* n downto L* do ( Jumlnh paoe aebanyak c - 1 / 

bagin 

{ carl elomen makoicua pada elemen Lll..iJ / 

i trunk u »• lj ( elemen pertama dlaaumeikan oebagai el amen makaimtm 
neir.ent.tra / 
tor J i- 2 to l do 

If L|j) > Ulmako) than 

Smako j- J; 

(endltj 
(endforI 

(portukarkan l.llmaktj dongan Hill 
temp l- Lliinaku); 

LIlmukvj t- I.[ 11 ; 

LIU :• tempi 

and; (tor} 

and; 


3. Algoritnin Pengurutan Sclcksi-Minimum 

procadura SoiectlonCOrtJ(var L i Larlklnt; n ; IntegerIj 

( Hengurutkan clcmcr. larik Hi.. HI nehlngga teteuaun irenaik dengan 
ret ode pengurutan oelekai-minimum, f 
( K.Aval i Elemen lank L audah terdecimal mlainya. 

( K.Akhlr: Elemen larik L terurut menaik aedemikian aehlngga 
Llll S L [21 * - S Lin] } 
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var 


i Integer; 

1 pencacah paoo ) 

i integer; 

{ pencacah untuk moncarl nllai nuiknimum } 

;nin : integer; 

1 indeko yang berioi ntlat makaimum oemencara } 

teirp i lntogort 

{ peubah bantu untuk pereukarnn } 

begin 


for 1 i- J to n 1 do 


bagin 


{ carl indokn dart < 

»le*en minimum di dalam larlk Lll..n} ) 

lmin i" i; 


lor j j - 1 • 1 to n 

do 

if L|j) < LllainJ 

than 

imin «• j> 


fend! 1 ) 


IcndlorJ 


Ipertukat’kan Lllmin} dengan Lilli 

temp «“ l-(icni.nl ; 


LllrtinJ i- L(i|i 


Mil i- tump; 


and; 


and; 



4. Algoritnia Pengurutan Slslp 

procedure 1 imur UonSor*-. cvar l i Uriklntj r i integer) j 
{ Hengurutkan elemen larlk 1(1..nj nehlngga terauaun monolk dengan 
metode pengurutan aielp. 

( K.AwdJ Elemen-elemen larlk L nudah tordefinlal niln/nyu. ) 

\ K.Akhlrt Elcmon-olamcn larlk L terurut menaik aedemlklan aehingga 
LIU £ L[2] * - S LlnJ) I 

v*r 

i j integer; { pencacah peon ) 

J : integer; ( pencacah untuk peneluauran larlk f 

y integer; { peubah bantu agar UK! C idak ditlrpa Miami pergeoeran ) 

kotumu i boolean; ( peubah Boolean untuk meny.it akan poalai 

penyiaipnn ditemukan } 

begin 

{ el omen L\l] dlanggap oudnh tnrurut / 

Cor l : • 2 to n do { muJai dart langkah 2 aampal langkali n ) 

begin 

{ nlolpk ,in III] ka dalam baglan yang oudah terurut ) 

y i- 1 .11); 

{ cart poolai yang untuk y di dalam Hi.. 1-1} n.imMJ menggeaer} 

j 1 - 1 ; 

kOtcznUl- falsa; 

while (j >- i) and not kot-mu) do 
bagin 

if y < L[jJ than 
begin 

t.|J»U Hi I; 

j »- 1 * It 

and 

aloe 

koterau: -true; 
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ond ;{whileJ 
{ j < 1 or kctemu ) 

:• y; { aialpkan y pada tcmpat yang seauai } 

ond; {tor} 
and ; 


5. Algoritma Pcnguralan Shell 

procoduro She 11 Sort Ivor L 1 Lariklnt; n : integer); 

{ Mengurutkan alcnen larik L{l..n] eehxngga Cerauaun aenalk dengan 
me code pongurucan Shall. } 

{ K.Aval s Elemen-elemen larik L audah terdefiniei nilalnya. } 

{ K.Akhirs Elcmen-elemen larik L teruruC eenailc aedeaikian aehingga 

LIU S H21 i _ S Uni } 

var 

nenp, Start 1 integer; 

bogln 

otop i- nj 

while at«»p > 1 do 
bogln 

atop 1- IICop dlv 3 * 1 / 

Cor start 1- X to atop do 

InsSortU., U, ntort, atop); 

{endfor} 
and; (whllo } 
ond; 


proaoduro lnnflort Ivor I. 1 Lariklnt; n, otart, atop 1 lntogor); 

{ Mengurutkan airmen larik Llatait.,n) ochingga cerauaun manaik dengan 
metode pongurutsn uloip yang dtmodiflkani untuk Shall Sort. ) 

{ K.Aval 1 Eloman-olemen larik L audah terdnfiniui nilainya. } 

( K.AkhlrtKlemen-oleman larik pada kenaikan aoboaar atop tarurut 
Ntonaikj 

var 

1 1 lntogor; { pencacah step } 

) s lntogor; { pencacah uneuk penoluauran larik } 

y : lntogor; { peubah bantu yang manyinpan nllal HU) 

kotorou 1 booloan, { paubah Boolean uncuk monyaeakan pool at ponylaipan 

ditetaukan } 

bogln 

{ elomen I. Intart J diar.ggap audah eerurut } 
i i- atort • atop; 
whllo 1 (• n do 
bogln 

y :• Mil; { niaipkan L[i] ke dalax bagian yang audah toruruC } 

{carl pooiai yang tapat uneuk y d: dalaa Hetart. .1-11 aarabil 
menggcBcr} 

j 1- l - step; 
koteziu Cnlao; 

whllo (j >• 1) and (not ketomil do 

begin 

1C y t Lijl then 
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begin 

Llj • otopl UjJ; ( geser ) 

j j • ntep 

and 

oloa 

ketomu:-true; 

(endif) 
and; (whtle} 

{ J < 1 or ketemu } 

Llj*9top) i- y; { alalpkan y pada tcrp.it yang neeuai } 

i i • :>Cop; 

and; (while) 


c 

/• DEKLARASI name •/ 

ndafina Nnako 1000 ; /• juaJah oleoen larlk •/ 

typadaf int Lar lfclnt IttnAicB* 1) ; 


l. AlKoritma Pen guru tan Apung 

void BubbloBortl C..ixlklnt L. int nl 

/• Mengurutkan iarik Hi. .n] nehlngga torurut monalk dongan matodo 
pongurutan apung. •/ 

/• K.Awal t Rlemon larlk L eudah t erdoflnlol •/ 

/• K.AkhJr? Klomen larlk L torurut menalk aednmlklan tehlnggn 
LIU <• H2t < - <• Lin] •/ 

I 

int l; /• pencacah uncuk JurUj/j langkah •/ 

int k; /• pencacah. untuk pengapungan pada not lap langkah •/ 

Int tore; /• peubah bantu untuk partufcaran •/ 

for (i • 1; 1 <• n • If !••) 
for (k « n; k >• 1*1; V ■) 

If (Llkl < L(kil) 

( 

/• paitukarkan Llkl dongan Llk-lt •/ 
t*mp • Llkl t 
Llkl - L|k 1); 

L(k 1) - tamp; 

1 

/• andfor •/ 

/•ondfor •/ 

I 


2. Al};<>ritinn PciiKurutan Sclck.si-Mnk.simum 

void Sol^otlonSortl (Lar :klnt L, int r.. 

/• Mengurutkan demon larlk L(l..nl aohingga t erounun menalk dongan 
motode pongurutnn makalmun. •/ 

/• K.Awal : Rleacn larlk L audah terdeflnlat harganya. •/ 

/• K.Akhir: JJJeman iarik L torurut r onalk oedemlklan oehlngga 
Lilt <- LIS) «- _ <- Lint •/ 
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int i i /• pcncacah untuk jumlah longkah •/ 

int j; /• poncacah untuk mencari nilai rtakairoum •/ 

int lnuika; /• indeks yang berisi nilai oaksimum semcutara •/ 
int temp; /• peubah bantu untuk pertukaran •/ 

for (1 - n; i >- 2 ; i -) /• jumlah pass sebanyak n - 1 •/ 

[ 

/• cari eleven makaimus: pada eleven L[l..i ] •/ 

ImakB - 1 ; /• eleven pertaoa diasumsikan aebagai eleven makoimum 

oementara •/ 

for (j - 2j j >• i; 
if (LljJ t UitMkHj) 
imako • J; 

/•endif/ 

/•endfor*/ 

/•pertukarkan Lfim.tka) dengan Hi)•/ 

romp • Ltinwikaj; 

Ltlmikil- LUJ; 

LIU - tMp| 

I 

I 


.’J. Al^orilma I’cn^urulaii Sclcksl-Mininuim 

void ::<iiootlonSorti (Laxlklnt L, int n) 

/• NonguruCkan eInmen larik Lfl..nJ aehingga tersusun menaik dengan 
met ode pongurutan pllih minimum. •/ 

/• K.Awal i Elemon larik L audah tordeflniai nilainya. •/ 

/• K.Akhir i Eleven larik L terurut menaik aodemlkian aehingga 
Hi) S L(2) S - S Lin) •/ 

I int 1 ; /• poncacah paaa •/ 

Int )| /• pencacah untuk mencari nilai m akolmum •/ 

int imlnj /* indeks yang berisi nilai maksimua sementara •/ 

int tompj /• peubah bantu untuk pertukaran •/ 

for (1 • U 1 <• nli 

( 

/• carl lndokn rlarl eleven minimum dl dalam larik •/ 

Ini n • h 

for {J 1*1; j '• n; J--I 
if (Ll)l < LtlninlI 
iinir. - J i 

/•endlf/ 

/•ondfor •/ 

/•pertukarkan Llimin) dengan L[1]•/ 

tuBp • Ltiminli 
Llimlnl - Llll; 

Llll - tempi 
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4- Algoritma Pengurutan Sisip 

void InaeitionSortl(Larikin* L, int n) 

/• Mengurutkan eler.en larik L[l..nl aehir.gga tcrououn menaik der.aan 
me[ode pengurutan sisip. •/ 

/• K.Aval : El ecsn-eleaen lank L sudah C erdofimsi nilainya. •/ 

/• K.Akhir: Eletcen-eleven lank L terurut menaik sedemikian sehingga 
Uli * L[ 2 j * - S LlnJ •/ 

I 

typed*f enuaftrue - 1. false Ol bool* in; /• tJpe boolean •/ 

int i; /• pencacah pass •/ 

int j; /• pencacah unto* peneiueuran larik •/ 

int y; /• peubah bantu agar Hi] tidak ditimpa oelama 

pergeaeran •/ 

boolean keteaui; /• peubah Boolean untuk menyatakan poaiai 
penyioipan ditemukan •/ 

/• elemen L[l) dianggap oudah terurut •/ 

for (1 - 2; l <- n; i*») /• mul.il dari Jangkah 2 uampai langkah n •/ 

I 

/• aialpkan HI] fce dalam baglan yang oudah terurut •/ 

y - Mi) i 

/•carl pooloi yang Cep.it untuk x di dalam LI 1 .. 1 -U oambll 
menggooer •/ 

i - l - i * 

kotorau • false; 

while () >- 1) U (IkotMM) 

( 

If <y < MjJ) 

t 

Mj *1J - Lljlj 

J**l 

I 

alee 

kecornu - truo; 

) 

/• J < 1 or ketenu •/ 

UJ'l) • y i /• aialpkan y pada tempnt yang aeaual •/ 


I 

I 


f>. Algoritma Pengurutan Shell 
void MhollSort (Uiilklm L, int n) 

/• Hengurutkan elemen larik L{l..n] oohlngga teraunun menaik 
dengan metodo pengurutan Shell. •/ 

/• X.Aw.il i Elemon-alemon larik L oudah lardelinlal nilainya. •/ 

/• K.Akhlr: Bl croon -ele-ner. l.irlk L terurut menaik oedemiklan nehinggn 
Lll] S H2] S - i Hn] •/ 

| 

int iitop, start; 

stop - n; 
while lor.op > 1) 

I 

step - sccp/3 • 1 ; 
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for (start ■ 1; star: < - step; 
InsSort(L, n, start, step); 

/•endlor•/ 

I /•while •/ 

I 


void Ir.oSor t (Lariklnt U. lot n. int start. Int step) 

/•.VengurucJcan elemen lari* L[atart. .nl aehxngga eereuoun menaik dcngan 
metodc pengurutan aiaip yang dxoodxfikaai untuk Shall Sore. •/ 

/• K. Aw.il : Blemen-elcoen larik L audah ter deliniai nilainya. •/ 

/• K . AkhiriEl amen -eJ emen lari* pada kenaikan eebeaar ntep 
terurut menaik'/ 

I 

typodof enunltrue 1. fuloc OJ boolean; /• tipo boolean •/ 
int Li /• pencacah atep •/ 

Int J; /* pencacah uncu* peneluauran lari* •/ 

int yj /• peubah bantu yang oenyimpan nilai UlK] •/ 

boolean kotomu; /• peubah Boolean u/Jtu* a enyatakan pooiai penylalpnn 
dltemukan •/ 

/• olemon I. Intart I dlanggap audah teruruc •/ 

1 - Htart • ntep; 
while (i <- n> 

I 

V • L|ll; /• aiaipkan L[iJ ke da lan bagian yang audah terurut. •/ 

/•carl poaiai yang tepat untuk y di da Jam Hotart .. l-l] nambll 
menggenor. •/ 

J • l * illop; 

Jtotfmu • false/ 

While () >- l Lfc fK-t.mu) 

If (y < Lilli 

1 

LlJ'dtepl • Ll)|i /• geaer •/ 
j - 1 • u top j 
I 

kotomu • truo; 

/•endlf/ 

I /•while'/ 

/• j < 1 or ketemu •/ 

L|) • otop) - yj /• aiaipkan y pada tenpat yang aeouai •/ 

1 • l • mop; 

I /-while*/ 

I 


Soul Uitilian Kali 16 

1. Lakukan pengurutan menaik untuk sekunipulan data integer berikut: 
54 . 23. 12. 56.78.50. »2. 89.10,12 
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musing-masing dcngan algoritma pcngumtan apung, pen gum tan selcksi - 
maksimum, pcngumtan sefeksi-minimum, pcngumtan sisip, (Inn 
pcngumtan Shell (khusus untuk Shell, gunakan step 5. 3 . 0 - 

2. Berdasarkan contoh pcngumtan pada soul 1 di atas, algoritma 
pengurutnn mana yang tennasuk stabil dan algoritma mana yang tidak 
stabil? (tandai posisi angka-angka 12 scbclum dan sesadah pcngumtan. 
Untuk membedakan ketiga angka 12 tersebut, masing-masing ditondai 
menjadi 12’, 12", dan 12"’). 

3. Tuliskan kcmbali algoritma pcngumtan apung sedemikian sehingga 
clemcn-elemen temmt “tumbuh" dari “kanan" kc “kiri” (atau dari “bawah” 
kc “atas"). 

4. Tuliskan kcmbali algoritma pcngumtan Shell untuk mcmpcrolch lank 
yang temmt menurun. 

5. Modifikasilah algoritma pcngumtan sisip untuk mcngurutknn data yang 
dl-entry dari papan ketik. Dalatn hnl ini, setiap kali data dibacu, data 
tersebut dicarikan posisinya yang tepnt di dalam larik sehingga larik 
tetap temmt mcnaik. 

6 . Modifikasi algoritma pcngumtan selcksi (baik maksimum maupun 
minumum) sedemikian sehingga jika clcmen maksimum/minimum 
yang ditemukan sudah pada posisi yang sehamsnva, maka tidak perlu 
dilakukan pertukaran. 

7 - hakukan pengurutnn mcnaik untuk sckumpulan data integer berikut 
dcngan metodc Shell. Gunakan (i) step 7. 3 . dan (ii) step 8 .4.2,1: 

34, 56, 12. 8. 90,32. 78.65,21, 87,92. 8.50.23,19. 68, 7i. 69. 1.10 

8 . Mctode pcngumtan dcngan poncacahan (count sort) adalalt sebagai 
berikut: data yang akan diurutkau bertipe integer dan harganya tcrlctak 
di dalam selang NilaiMin.NilaiMakg. Sclumh data tersebut disimpan di 
dalam larik /.|i..n|. Dcklarasikan larik count[NilaiMin.J 4 iloiMaks) dan 
isi coioiflfl dcngan banyaknya data yang berharga f. Kcinudian 
tempatkan kcmbali setiap data yang bemilai i kc dalam larik L sebanyak 
COU/if[t]. /.akan hcrisi data yang telah temmt mcnaik. Tulislah algoritma 
pcngumtan count sort tersebut. 


Algoritma don Pornrograman 


http://www.pakteguh.com 




17 


Pemrosesan 
Arsip Beruntun 


Arsip (file) atau berkas adalah stmkuir penyimpanan data di dalam memori 
sekunder seperti disk. Data disimpan di dalam arsip agar sewaktu-waktu 
dapat dibuka kembali. Struktur arsip memungkinkan kita menyimpan data 
secara permanen dan mengaksesnya kembali bila perlu. Banyak aplikasi 
yang membutuhkan kemampuan ini. 

Pada umumnya, arsip menyimpan informasi dan kategori yang sama. Misalnya, 
data karyawan disimpan di dalam arsip karyawan, data properti barang 
disimpan di dalam arsip properti, data keuangan disimpan di dalam arsip 
keuangan, dan sebagainya. Setiap arsip dikcnali melalui namanya. 

Setiap item data yang direkam di dalam arsip disebut rekaman (record). Semua 
rekaman di dalam arsip diorganisasikan penyimpanannya, dan pengaksesan 
rekaman di dalam arsip bergantung kcpada metode pengorganisasiannya Uu. 
Ada dua earn pengorganisasian data di dalam arsip: beruntun ( sequential ) 
dan acak ( random ) - yang terakhir ini juga dikenal sebagai arsip akses- 
langsung (direct access). 

Arsip beruntun (sequential file) 
menyimpan rekaman secara benirutan, 
rekaman yang satu sesudah rekaman yang 
lain. Untuk mengakses data tertentu, 
program hams mengakses mulai dari 
rekaman pertama sampai rekaman yang 
diinginkan. Pengaksesan arsip jenis ini 
pada umumnya sangat lambat, khususnya 
bila arsip berukuran besar. Namun, arsip 
bemntun mudah dibuat dan dipelihara 
(maintain). 
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Pada arsip acak, rekaman diakses secara langsung, tanpa perlu memulai dari 
awal. Keuntungan jenis arsip ini, pengaksesan data individual lebih cepat 
daripada arsip beruntun, tetapi arsip acak lebih sulit dibuat dan dipelihara. 
Dari kedua cara pengorganisasian itu, pengorganisasian rekaman secara 
beruntun a dal oh metode yang paling sederhana. 


17.1 Definisi Arsip Beruntun 

Arsip beruntun adalah sekumpulan rekaman bertipe sama yang diakses 
secara berurutan mulai dari rekaman pertama sampai rekaman yang dituju 
atau sampai dengan rekaman yang terakhir. Rekaman di dalam arsip 
beruntun diakses satu per satu, yaitu rekaman demi rekaman, secara searah. 
Gambar 17.1 memperlihatkan gambaran lojik pengaksesan arsip beruntun. 
Setiap kotak pada gambar tersebut menyatakan sebuah rekaman. Kita dapat 
menganalogikan arsip beruntun seperti kumpulan lagu di dalam pita kaset. 
Untuk memainkan lagu pada urutan ke-6, kita harus memutar pita kaset 
mulai dari awal pita sampai awal lagu yang ke-6 ditemukan. 


Urutan akses ( satu per satu) 



Rekaman 1 Rekaman 2 mark 

Gambar 17.1 Stmktur arsip beruntun Seperti halnya pada larlk, kite dapat mombayangkan 
•truktur lojik arsip bamnlun dengan sederetan kotak yeng memanjang horizontal atau vortkal. 


Perhatikanlah bahwa stmktur arsip bemntun tidak jauh berbeda dengan 
stmktur larik. Perbedaannya, elemen larik didefinisikan di dalam memori, 
sedangkan elemen arsip didefinisikan di dalam media penyimpanan 
sekunder. Skema pemrosesan pada larik pada hakikatnya sama dengan 
skema pemrosesan pada arsip. An da dapat melihat bahwa beberapa 
algoritma traversal pada larik, seperti algoritma mencari nilai 
maksimum/minimum dan algoritma pencarian elemen tertentu, juga dapat 
digunakan pada arsip. 

Perbedaan arsip dengan larik hanya pada pilihan cara pengaksesan elemen 
data dan “arah" pemrosesan. Rekaman di dalam arsip beruntun tidak dapat 
diakses secara langsung karena harus dibaca dari awal rekaman, sementara 
pada larik elemennya dapat diakses secara langsung melalui indeksnya. Jika 
pada arsip bemntun pemrosesan rekaman hanya dapat dilakukan dalam 
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satu arah, dimulai dari rekaman pertama sampai rekaman terakhir tetapi 
tidak dapat dari arah sebaliknya, maka pada lank kita dapat melakukan 
pemrosesan dari elemen terakhir menuju elemen pertama. 

Jika pada larik kita dapat mengakhiri pemrosesan bemntun bilamana 
pencatat indeks larik sudah melebihi ukuran larik (biasa disimbolkan 
dengan N), maka pada arsip pembacaan rekaman berakhir jika sudah 
sampai pada tanda (mark) yang menandakan akhir arsip (end offile). Tanda 
akhir arsip biasanya karakter khusus yang bergantung pada bahasa 
pemrograman yang digunakan. Kita mengasumsikan bahwa fungsi pustaka 
yang dapat mendeteksi akhir arsip sudah tersedia sehingga kita hanya 
memfokuskan pada algoritma pemrosesan arsip saja. Pemrograman tidak 
perlu tahu bagaimana cara fungsi tersebut mendeteksi akhir arsip. 


17.2 Pendeklarasian Arsip di dalam 
Algoritma 

Sebelum melakukan pemrosesan arsip beruntun, arsip tersebut hams 
dideklarasikan terlebih dahulu. Cara mendeklarasikan arsip bemntun di 
dalam bagian DEKLARASI sebagai berikut (sebagai peubah): 

DBKLARASI 

aralp i File of tipe rekaman 

Alg otttma 17.1 DeMaraslarsip baiunlun sebapot pautoah ( vartabal) _ 

Tipe rekaman dapat bempa tipe dasar ( integer, real, char, boolean, string) 
atau tipe terstruktur (record). Setiap rekaman di dalam arsip bemntun 
hams bertipe sama, baik dari tipe dasar maupun bertipe terstruktur. 
Rekaman bertipe terstruktur terdiri atas satu atau lebih field yang bertipe 
tertentu. 

Adapun cara mendeklarasikan arsip bemntun sebagai tipe bentukan sebagai 
berikut: 

DBKLARASX 

typo name tipe araip « Flip of tips rekaman { tipe bentukan ) 
araip : nama tipe aralp 

Algorttma 17.2 Doklarasi arsip bernnlun sebagai tipo bentukan 


Berikut ini contoh-contoh pendeklarasian arsip bemntun di dalam bagian 
DEKLARASI: 
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1. Arsip Bil yang berisi sekumpulan bilangan bulat. Setiap rekaman adalah 
scbuah bilangan bulat. 

DEKLARASI 

Bil s File of integer 
Algoritma 1 7.3 Dekiarasi arsip integer 

2. Arsip Mhs yang berisi data mahasiswa (NIM, Nama , dan IP). 
Keterangan: NIM = Nomor Induk Mahasiswa, IP = Indeks Prestasi 
(skala o - 4). Setiap rekaman di dalam arsip Mhs bertipe terstruktur 
(record). 

DEKLARASI 

I tipe rekaman ) 

typo DataMhs 1 record <HIM : integer, Hama s string , IP : real > 

( aroip } 

Mho : File of DataMho 
Algoritma 17.4 Deklarnsi arsip data mahasiswa 


3. Arsip Kar, yaitu arsip yang berisi data bertipe karakter. Setiap rekaman 
adalah satu karakter. Pcrhatikan baltwa arsip karakter tidak sama 
dengan teks (text). 

DEKLARASI 

Kar 1 File of char 
Algoritma 17.5 Doklarasi arsip karokler 

4. Mendcfinisikan arsip integer sebagai tipe bentukan. 

DEKLARAS I 

typo Araiplnt 1 File of integ er ( tipe bontukan ) 

Bil 1 Araiplnt ( arolp bertipe Araiplnt ) 

Algoritma 17.6 Doklarasi arsip boruntun sobagni t*po bontukan.___ 

5. Mendefinisikan arsip data mahasiswa pads contoh 2 di alas sebagai tipe 
bentukan. 

DEKLARASI 

( tipe rek.iir.in ) 

typo DataMho : record <IIXH i integer. Hama : string, IP i real * 

/ tipe areIp } 

typo ArnlpMhn i Kile of DataMho 

Mha : AraipKho / aroip bertipe AtelpMho ) 

Algoritma 17.7 Doklarasi arsip data mahasiswa sebagai Upo bontukan 


<s [ 
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Gambar 17.2 niemperlihatkan contoh tiga buah arsip yang disebutkan di 
atas, berturut-turut (1) arsip data mahasiswa ( Mhs ), (2) arsip bilangan bulat 
(BiO, dan (3) arsip karakter (A'or). Garis-garis yang membatasi antara satu 
rekaman dengan rckaman lainnya hanyalah garis fiktif saja dan garis 
tersebut tidak terdapat dalam implementasi fisik arsip bcruntun pada media 
penyimpanan sekunder. Rekaman yang diarsir menyalakan mark. Suatu 
arsip kosong adolah arsip yang hanya berisi mark. 


(1) 


|«- rekaman ke-i rckaman ke-2 rekaman ke-3-*| 


ooi I Adi | 3.8a I 004 I Fltrl 


a .97 


00s Andi 2.4 


] 


( 2 > 


I 345 I 78 


•120 


26 068 | 125 | 237 


( 3 ) 


ii!—I—!?' J—1L—L 


Gambar 17.2 Contoh bgo buan arsip (1) Arsip data mahauswa, (2) Arsip bllnngon 
bulat. don (3) Armp K araMer ____ 


Contoh-con toll pcndcklarasian arsip berunlun lainnya: 

1. Mendeklurasikiin arsip Frcal scbagai arsip yang berisi data bilangan rill. 

DKKLARAS I 

Proal « File of real 
Algorltma 17.8 De klf>«Hp bOangan hit 

2. Mendcldarasikan ArsipTttik yang l)erisi titik-titik (x. y) di bidang kartesian. 

DKKLARASI 

type Titlk - record <x 1 real, y ; real* 

AratpTitik : File o| Tltik 
Algorltma 17.9 Deklorasi arsip data titik di bidang kartesian 


17.3 Fungsi Pustaka untuk Arsip Beruntun 

Kita mendeftnisikan sejumlah instruksi baku untuk peinrosesan arsip. Instruksi 
baku itu dinyatakan sebagai fungsi/prosedur pustaka (library function). Fungsi 
pustaka tersebut diasumsikan sudali tersedia seliingga kita dapat langsung 
memakainya. Kita hanya perlu meiigetahui punvarupa (prototype ) fungsi 
pustaka tersebut agar kita mengetahui cara metnanggilnya (termasuk parameter 
yang dilewatkan). 
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Sejumlah instruksi baku yang dianggap sudah tersedia untuk pem roses an 
arsip beruntun adalah: 

l. Open 

Pungsi: 

Membuka arsip benintun untuk siap dibaca/ditulis. Setelah mcmanggil 
fungsi ini, penunjuk arsip (JUe pointer) akan menunjuk ke karakter 
pertama di awal arsip (mungkin karakter mark). Sebuah arsip beruntun 
yang dibuka hanya bisa untuk masukan (dibaca) saja atau sebagai 
keluaran (ditulis) saja, tidak bisa untuk dibaca dan ditulis sekaligus. 

Purwarupa prosedur Open: 

procedure Open ( input none are ip i Cipe snip, input /rode ; integer ) 

/ Membuka aroip beruntun untuk aiap dlbaca/ditullo. /Code ** 1 
artinya areip dibuka untuk pembacaan. koda - 2 artlnya aralp dibuka 
untu/c perekaman. ) 

( K.Awal i Sembarang. ) 

{ K.Akhlri pointer pembacaan menunjuk ke awal rekaman ) 

Algorltme 17.10 Purwarupa prosedur Open 


Contoh-contoh membuka arsip: 

OpenOQis, 1 ) { Areip Mho dibuka untuk dibaca ) 

Open(Bil, 2 ) { Areip Bil dibuka untuk ditulis) 

OpenOCer, 1 ) ( Arsip Kar dibuka untuk dibuca ) 

Keterangan: 

Di dalam implementasinya, prosedur open berintekasi dengan sistem 
operasi (detailnya tidak perlu menjadi perhatian pemrogram) dan 
mengembalikan pointer file yang menunjuk ke awal rekaman (Gambar 
17.3). Jika arsip kosong, maka pointer menunjuk ke tanda akhir arsip. 
Sckali arsip beruntun dibuka untuk dibaca (ditulis), maka arsip hanya 
dapat dibaca (ditulis) saja. Dengan kata lain, arsip yang dibuka untuk 
pembacaan tidak dapat digunakan untuk penulisan, begitu juga 
sebaliknya. 



Gambar 17.3 Ketika sebuah arsip dibuka. sebuah pointer (dgambarkan dengan anak 
panah) menunjuk ke awal arsip. Jika arsip dfcuka untuk dibaca, pointer menunjuk ke awal 
rekaman pertama; jika arsip dibuka untuk diMta. pointer menunjuk ke karakter akhir arsip 

(merit)._____ ; _ 
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2. Freud 


Fungs!: 

Membaca rekaman yang sekarang sedang ditunjuk oleh pointer. 
Purwarupa prosedur Fread: 

proc edure Fre^d (i nput nama jrflip : Cipe araip, 
output rekaman ; tipc rekaman I 

I Mambaca rekaman yang ackarang eedang ditunjuk oleh pointer baca 
darl araip nama araip. 

(K.Awal : nanu araip audah dibuka dengan perintah Open . ) 
(K.Akhir : rekaman berlol nilai rekaman yang aedang ditunjuk oleh 
pointer baca. Selanjutnya, aetelah membaca aatu rekaman. pointer 
.ikon menunjuk ke awal rekaman berlkutnya J 

Algorilmn 17.11 Purwarupa prosodur Fread __ 


Contoh-contoh peri n lab membaca araip: 


Frond(Mha, RekMho) 
Frond(BU, I) 

Frond(Knr, chi 


PokMha bortipo DntuKhn J 
I bortipo integer ) 
ch bortipo karnkter ) 


Andnikan masing-masing /winter pembaraan sekarang sedang 
menunjuk ke awal rekaman ke-a di da lam araip pada Onmbar 17.2. maka 
basil ketlga perintah Fread di atasadalah: 

lick Mlis berisi <359604, 'Fitri*. 2.97> 

/ berisi 78 
c/i berisi V 


Selanjutnya, pointer akan menunjuk ke awal rekaman kc-3 dan slop 
untuk membaca rekaman leraebut 

3 * Fwrite 

Fungsi: 

Memilis rekaman ke dalam araip benmtiin. 

Purwarupa prosedur Fwritv: 

procedure Fvr&te Unput name araip j tipc araip. 

Input rekaman 1 cipe rekaman) 

I Menulla rekanan ke dalam atalp nanu araip. J 

(K.Awal t pointer pcnullaan audah beradn pada pooiai aiap merekam 
iK.Akhtri rekaman tertulla ke dalam aretp nama araip. Pointer 
penullaan maju eatu poelel ke depan } 

Algorilmn 17.12 Pu/warupa pfosedur Fwrite 
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Contoh-contoh perintah menulis ke arsip: 

FVrite(Mhs, <456091. 'Ida Bogus Adi Sudewa*. 17.23>) 

Write (Bil. 765J 
Fwrite(Kar, *R'> 

{ iai data rekaman } 

RekMhs.NXM ♦- 456007 
RekMhs.Natna *- *Hikmat Sadikin* 

RekMhs.ZP •- 2.76 

Pwrite(Mho. RekMha) ( slapan rekaman tersebut ke aralp Mha ) 

Kcterangan: 

Fwrlte (Bil. 765 ) artinva menuliskan nilai 765 kedalam arsip Bil. 
Fwrite (Mho. RekMha) artinya menulis rekaman RekMhs ke dalam arsip 
Mils. 


4. Close 
Fungsi; 

Menutup arsip yang sudali dihuka. 

Fitrw arupa prosedur Close: 

pr ocedu re Close(input name aralp a tipr aralp ) 

( Menutup aralp yang telah dihuka 
K.Awal 1 Jemb.uang 

K. Akhir: n.vM aralp trlah ditutup, tldak dapiti diproaeo lag1 

I 

Algor lima 17.13 Purwarupo prosodur C/oso 


Contoh-contoh perintah menutup arsip: 

Close(Mho) 

Clooo(Bil) 

Close (Karl 


Selnin keempat instruksi baku di atas, kita mendefinisikan sebuah fungsi 
HOI’ (end of Jllc) yang berfungsi untuk mendeteksi akhir arsip. Fungsi EOF 
ini mengembalikan nilai true jika tanda akhir arsip dieapai, atau false jikn 
tidak. 

fun ction gOF(input naaa aroip i tjpe aroip\ boolean 
{ Mengembalikan nilai true jika pointer nwnunjuk ke tanda akhir aralpi 
sesu Calac jika tidak f 

Algorltma 17.14 Purwnrupa fungsi Mark __ 


«74 
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17.4 Membuat Arsip Beruntun 

Arsip hanya da pat diproses jika sudah terdefinisi isinya. Langkah pertama dalam 
membuat arsip adaiah menyiapkan arsip untuk perekaman (menggunakan 
perintah Open dcngan Kode = 2). Langkah kedua adaiah membaca data yang 
akan direkam (misalnya pembacaan dan piranti masukan), barulah kemudian 
menuliskan data tersebut ke dalam arsip (perintah Fwrite). Jika sebuah arsip 
sudah selesai diisi, arsip tersebut ditutup dengan perintah Close. 

Contoh 17.1. Mengisi arsip bilangan bulat dengan nflai 1 sampai n. Nilai n 
dibaca dari piranti masukan. Tanda akhir arsip didefinisikan 9999. 

PROGRAM BuatAroipBilanganBulatl 

[ Contoh program yang mcmperagakan car a mmnylmpan data km dalam araip 
bo run t an ) 

DSKLARASI 

Bil 1 Pile of integer ( araip bilangan bulat ) 
n 1 Integer ( banyaknya bilangan bulat ) 

i ' 1 intwr ( pancacab pangulangan } 

ALOORXTMAt 

Open (Bil, 2) ( buka araip Bil unCuk perekaman ) 

read (n) 

for 1 «- 1 to n do 
Pwrite(Dll. 1 ) 
endfor 

Close(Bil) ( tutup araip } 

Algorltms 17.15 Penglafrn araip Integer dengan bilangan dart 1 sampel n. 


Contoh 17.2. Mengisi arsip bilangan bulat dengan nilai yang dibaca dari 
papan ketik. Tanda akhir arsip adaiah 9999. 

PROGRAM BuatArsipBllanganBulat2 

7 Contoh program yang mamparagakan cars mmnylmpan data ka dalam 

araip, data dibaca dari papan katik. J 


( araip bilangan bulat } 

{ banyaknya bilangan bulat ) 

{ pancacah pangulangan ) 

{ paubah bilangan bulat yang dibaca dari 


DSKLARASI , 

Pint 1 Pile of integer 
n ' 1 integer 

i • « Integer ' 

x « i nteger 

piranti nasuJcan J 
ALGORXTMA: 

Open(Pint, 2 ) f buka araip Pint until* perekaman } 

read (n) 

for i *- 1 to n do 
read (x) 

fwrite(Pine,x) 

endfor 

Close(Pint) ( tutup araip J 


Algoritma 17.16 Pongisian araip integer dart piranti masukan 
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Contoli 17.3. Mengisi arsip Mhs dengan data mahasiswa yang dibaca dari 
papan ketik. Pembacaan data diakhiri bila NIM yang dimasukkan adalah 
9999- 

P ROGR AM BuatArsipMahasisva 

7 Membuat arsip data mahasiswa. Data mahasiswa dibaca dari papan 

ketik. } 

DEKLARASI 

type DatoMh* : record <NXM s integer , Kama : string, IP j real> 
Msiova : DataMha ( peubah untuk menanpung pembacaan data 

mahasiswa } 

Mho 1 File of DataMho 
ALGORITMA« 

Open(Mho, 2) I buka arsip Mho untuk perekaman } 

read(Moinwa.NIM) f baca SIM mahasiswa pertama. mungkin 9999 } 
while(Maiowa.NIM * 9999 ) do 
"read(Mulnwa.Kama. Muiowa.IP) 

FwritolHho, Moinwa) ( rekam Msiawa ke dalam atslp Mhn ) 
read(Koiawa.NIM) 
endwhUe 

{ Malawi*.NIM - 9999} 

CIobo(M ho) 

Algorlima 17.17 Pongisian arsip data mahasiswa dan ptranti mnsukan 


17.5 Membaca Arsip Beruntun 

Proses pembacaan arsip beruntun mcrupnkan kchalikan dari proses 
pemhuatan arsip. Langkah pertama dalam membaca arsip adalah 
menyiapkan arsip untuk pembacaan (menggunakan permtab Open dengan 
Kode ■ 1). Setiap kali akan membaca suatu rekaman di dalam arsip, kita 
hnrus memastikan bnlnva tanda akliir arsip belum dicapnl. 

Rekaman dibaca satu per satu, dimtilai dari rekaman pertama hingga 
rekaman yang diinginkan sudah ditemukan atau selunih rekaman selesai 
dibaca. Karena kita tidak tahu jumlah data di dalam arsip, maka konstruksi 
pengulangan yang cocok adalah dengan WHILE seperti yang ditunjukkan 
pada Algoritma 17.18. 

PROGRAM PombacaanArmp 

7 Skena pembacaan arsip beruntun tar.pa pensnganan kasue kouong \ 

DBKLARASI 

type Rekaman : TipeRekanan 
Aril ip : File of Rekaman 
Rek : Rekaman” 

ALGORITMA: 

Inlsial isasi 
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Open (Arolp, 1/ 


I buka Araip untuk dibaca ) 


while not EOF(Arsip) do 
Preod(Aruip, Rek) 

Ptooa* Rok 
••ndwhi le 
(iiOP (Arolp) f 

Close(Atoip) 

Algoritm.i 17.1b Skoma umum membaca arsip borunlun 


Sebagai contoh, dibcriknn sebuah arsip Bit yang bcrisi data bilangan bulat 
(proses pengisian dapat dilibat pada Contoh 17.1). Scmua data di dalam arsip 
fli/dibaca kemudian ditampilkan kc layar. Algoritinanya adalah: 

PROGRAM BacnArslpBilnnganBuUt 

( Nencolnk ini atoip ke layai pursy*. Data dibaca dar 1 nrnlp. / 

DKF.LARAS 1 

an 1 Flic cl intcuci 

n t integer ( bsnyaknys bilsngan bulst f 

x 1 integer ( poubah reksmsn } 

ALGORITHM,; 

Open(Bll, l) ( buka sioip B1J untuk pembaesan ) 
whil e not HOF(bllI do 

KreadtBil, x) ( baca rekanuin pertains ) 
write(x) 
endvhlle 
f EOF<Bil) ) 

Close(Bil) ( cutup *r sip I 

Algoritma 17.19 Membaca data dari arsip integer dan mencotaknya ke layar 


hi bawah ini kit a berikan contoh-cotitoh algoritma lainnva yangdi dalamnya 
a da proses pembaeaan data dari arsip. Senum algoritma kita nyatnkan 
sebagai prasedur sajn agarlebili modular. 

Contoh 17.4. Diberikan arsip Mhs (perhatikan hahwa arsip mungkin kosong). 
Algoritma di bawah ini adalah prosedur untuk menghitung jumlah mahasiswa 
yang lulus suatu tahap pendidikan (ynitu mahasiswa dengan huleks Prestasi 
titan P £ 2.0). 

procedure HicungKeluluoantinput Mhe : ArsipMh3. 

output Ndlatafl 2 : integer) 

( Kcnghltung jumlah nuh.toiowa yang IP-nya di stsa 2.0. Data mahasisw.i 
dibaca dari araip Nhs. 

K.Aval s Are ip Mhs mungkin kooang. 

K.Akhir: Ndiatas2 bcrisi Jumlah mahaoicta yang IP-nya di acao 2.0. 

) 
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DBKLAKASI 

pekMhn : DataMha 

AI/T.OR ITMA: 

Kdiata»2 «- 0 

Open (Mho, 1 J { buka araip Mb* untuk pcmb. ic.i.in ) 
while not EOF(Kho) do 

Fiead'(KhG. RekMho) [ baca data ) 

if RekMho.IP > 2.0 then 
Ndiatas2 «- Sdlota«2 . 1 
endif 

endwhile 
(EOF(Mho) ) 

Cloiiu (Mho) ( cutup aruIp ) 

Algoritrro 17.20 Monghilung |um<nh mahasisa yang mompunya IP di alas 2.0 


Contoh 17.5. Dibcriknn arsip Afhs (pcrhallkan bahwa arsip mungkin 
kosong). Prosedur cli baw.ih ini nwnenri data mabnsiswa drngan jV/Af 
lortcnlu. Jika data mnhnsiwa tersebut ada di dnlani arsip, nuika sobuah 
parameter boolean diisi nilai true', sebuliknyn diisi nilai false. 

procedure CariNIMI Input Mhr 1 ArnipMha. '.nput Nomor 1 Integer, 
output Ketemu : boolean) 

I Mcncari data mahaeiava yang NJM-nya • Nomor. ) 

JC.AwaJ : Araip Mho '•ur.gkln koaong. Nomoi cudah bcriol NJM mahaoiaw* 
yang dicari. I 

( K.Akhir: Jika rr ahaoiova yang .VIM-nya • Homor dite.rukan. kote.-nu 
be: ini true, aeb.:liknya jika tidak ada make kete.ru borioi falaa } 

DKKIAPA 51 j 

RekMho 1 DotaMhn 

AI/WRXTMAi 

ketemu *- talon 

Open (Mho, 1) { buka armp Win untuk pcmbacaan I 

whllo I not EOF(Mho)) and (not ketemu) do 

Frond(Mho, RekMho) f baca data wahaolova J 

It RekMho.NIK - Momor t han 
ketemu ♦- true 

endi f 
end while 

f EOF(Mtia) or ketemu j 
Close(Mho) ( tutup araip ) 

Algorltma 17.21 Mencan NIM lononlu dari arsip dala mah.is.swa _ 
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Contoh 17.6. Dibmkan arsip Mils yang berisi rekaman data mahasiswn 
(arsip mungkin kosong). Buatlah sobuah prosedur yang menghitung berapn 
reta-rata IP scluruh mahasiswn. Pcrhatikan bahwa kitn tidak niengctahui 
jumlah seluruh mahasiswa, tcfapi karena sctiap rekaman di dalam asrip 
merepresentaaikan data setiap mahasiswa, maka jumlah mahasiswa sama 
dengan jumiah seluruh rekaman di dalnm arsip. Jadi, kelika arsip dibaca. 
sekaligus kita cacah jumlah rekaman di dalamnya. Jikn arsip kosong, maka 
nilai rata-ratanya tidak terdefinisi (diisi -9999 }. 

proc edure HltungRataRata( inpu t Khu 1 AinipKhB. out put U : real) 

I Menghitung rata-raia IP seluruh malniniowa. Rata-rata IP dihitung 
dengan rumus: U • Total IP/Jumlah mahasiswa. ) 

( K.Awal : Arsip Wig mur.gkir. kosong, } 

( K.Akhir: U berisi rata-rata IP seluruh mahasiswa,) 

DEKLARASI 

RokKhe : DalitMhn 
Total!P : real 

Nmhu 1 Integer I jumlah mahasiswa } 

AlOORITMA: 

TotalJP •- 0 
Kmhfi •- 0 

OponlMha. 1) ( buka arsip Mbs iintu* p«—/ 

while not BOP(MhoJ) do 

Freed (Khe, PekMhnJ ( baca rek.1n.1n f 
Nmhs *- Nmhn . I 
Total IP «- Total IP . RekKhs.IP 
endwhlle 
/ EOFINho) I 

it Nmho • 0 then { arsip tidak kosong ) 

U Tot el IP/Ninhn / i-ata-rata IP seluruh maahniuwa I 
else I arsip kosong \ 

U *- -9999 l nilai rats-rata tidak terdefinisi ) 
endi_f 

Clone(Mho) { tut up ax sip J 
Algorllma 17.22 MonQhllunQ IP rata rnlndnrl neluruh mahattewn 


Contoh 17.7. Dilxn-ikan arsip Mhs yang berisi rekaman data mahasiswa 
(arsip mungkin kosong). Prosedur di bawah ini menemukan data mahasiswa 
yang mempunvai IP tertinggi. 

procedure Carl 1 PTortlcggl (Input Mhd t AralpMhe, output H : DeteMlin) 

( Noncari data mahasiswa yang mempunyai IP tertinggi. I 
I K.Awal : Arsip Mha mungkin kosong. } 

I K.Akhir: N berisi data mahasiswa (N1M, llama. IP/ yang mempunyai IP 
tertinggi.) 

DEKLARASI 

RokMhe j DateMho 
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ALGORITMA: 

FrcfldJMha, RekMhu) ( baca rekaman percama ) 

Mako *- -9999 { IP tertinggi almua oemcntnra } 

Open(Mho. 1) ( buka araip Mho untuk peirbacaan } 

whil e noi EOF(Mho) do 
if Rrttte.IP > Mika than 
Make ♦- KckMho. IP 
M «- RckMhn 
ondlf 

Pread(Mho, RekMho) 
endwhile 

7 Mark (RckMhm) ) 

Clone (Mha) { turup a rttip } 

Algoritma 17.23 Moncart data mahasiswa dengan IP lertmggi 


Bila kita ingin mennmpilkan data mahasiswa yang mempunyai IP tertinggi 
tersehut, maka panggil prosedur CarllPTortinggi di atns, lalu cetak 
kcluarannya. sopcrtl ditunjukkan oleli algoritma dibawnlt ini: 

PROGRAM Cat akbat aKahno1nwaTerba1k 

{ Mcnantpi ikan data rnihaalmta yang mnmpunyai IP tertinggi. ftita mahaaiava 
yang xempunyai IP tertinggi ditanpilkan ke pi rant i keluaran. ) 

DEKLARAS1 

typo DataMhn i record 

<NJM ; integer. 

Kama : atrlng , 

IP t real 

> 

Moinwn s DataMhn 
Mhn * File of DataMhn 

f*. i DataMhn 

procedure Carl IPTortlnggl(input Mhn « ArolpMhn, output M j D acaMhn ) 

( Men carl data ma/iaalewa yang mompunyai IP tertinggi. I 

ALGORITMA: 

CarlXPtertinggl(Mho, M\ 

I cetak data nahaeiawa yang mempunyai IP tertinggi I 
write < * HIM i M.KIM) 

write (* Menu , •. M.Nama) 

wrltef-IP , », M.IP) 

A gori tma 17.24 Program utama yang memanggfl Algoritma 17.26 _ 
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17.6 Contoh Kasus Pengelolaan Data 
Mahasiswa 


Misalkan Kuliah adalah sebuah arsip be run tun yang berisi data nilai selunih 
mata kuliah yang diambil mahasiswa pada satu semester. Satu orang 
mahasiwa dapat memiliki beberapa buah nilai karena dalam satu semester ia 
mengambil beberapa mata kuliah dan setiap mahasiswa mungkin tidak sama 
mata kuliah yang diambilnyanya. Rekaman dengan NIM yang sama 
disimpan berturutan. Setiap rekaman akan berisi data: 

a. Nomor Induk Mahasiswa (NIM), 

b. nama mahasiswa, 

c. kode mata kuliah (MK) yang diambil, 

d. bobot SKS (Satuan Kredit Semester) mata kuliah yang diambil, 

e. indeks nilai mata kuliah yang bersangkutan berupa huruf: A, B, C, D, E. 

Contoh arsip yang memuat rekaman tersebut misalnya: 


NIM 

Nama 

Kode MK 

SKS 

Nilai 

i 

i 

i 

i 

i 

ISTCZH 

‘Ezra Ibrahim’ 


3 

'A' 


'Ezra Ibrahim’ 

■ssm 

2 

B' 

fTTTvT* 

'Ezra Ibrahim' 

wsxjm 

3 

B' 

■ l - T . 


msrzM 

2 

^- 



eztem 

4 

'B' 


Msamssmm 

MZZWM 

3 

C 

WUT^TM i 

■ii i 1 1— 


3 

A' 


1 'Lcvla Khodra 1 


4 

•A' 




2 

B' 


Kiln! 

'IF 221 ' 

L3_ 

•c 

ITftlUEM 

VTt X7TTTTTM. Ml 


-A _ 

A' 


Pada bagian DEKLARASI di dalam program utama, kita definisikan tipe 
arsip sebagai berikut: 

DEKLARASI 

typg DdtdMha I record «NIM i integer . Hama i string . 

KodeMX i string . SKS i Integer. Indeks i chsr » 

type ArslpNilei i rile of DeteHhs 

Kul I ArslpNilei { name arsip date mahasiswa ) 

Algorttma 17.25 Deklarasi tipe arsip data mahasiswa 


i. Data mahasiswa dibaca dari papan ketik, lalu disimpan ke dalam arsip 
Kuliah. Jumlah data mahasiswa yang akan dimasukkan tidak ditentukan 
sebelumnya. Proses pembacaan data dari papan kunci akan berhenti jika 
kode NIM yang dibaca adalah 9999. 
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procedure RehamPataMahaelewa( output Kul : AraipNilai) 

{ Merekam data uj lan mahaalva ko dalam arolp Kul, data d 1 baca dari 
papan ketik, proses parakaman bartonti jlka SIM yang dlmaaukkan - 
9999. I 

( K.Awal : aembarang. ) 

( K.Akhlr: aralp Kul barlmi data ujlan mahaalawa, mu ngkin kooong ) 
DKKLARAS1 

KullahMha i DataMha 


ALOORITHA: 

Open (Kul, 2) { buka aralp Kul untu* penuliaan } 

read (KullahMha.NIM) ( baca data SIM partama, mungkln 9999 ) 

while(KullahMhe.NIM a 9999> do 
read(KullahMha.Name) 
read(KullahMha.KodaMK) 
read (KullahMha.8KS) 
read(KullahMha.Indaha) 

PvrltelKUl, Kul lahMha) (rakam KuHahMhm ka dalam aralp Kul) 
read(KullahMha.MIM) 
andwhlla 

{ KullahMha.SIM • 9999) 

Cloae(Kul) 

AJgoritma 17.28 Merekam data mahastm yang dibaca dari piranti maaukan 


2 . Membuat daftar nilai untuk mahasiswa dengan NIM tertentu dan 
menampilkannya ke layar peraga. Contoh keluarannya kira-kira sebagai 
berikut: 


Daftar Nilai Mata Kuliah 
NIM i 1359601 
Nama i Ezra Ibrahim 


NO 

Mata Kuliah 

SKS 

Nilai 

1 

TI451 

3 

A 

2 

KU301 

2 

B 

3 

IF321 

3 

B 


Langkah pertama adalah mencari data berdasarkan kode NIM yang 
dimasukkan. Setelah data mahasiswa ditemukan, maka data mahasiswa yang 
bersangkutan dicetak ke piranti keluaraiL Karena data mahasiswa dengan 
NIM yang sama disimpan secara bemmtan, maka pembacaan rekaman 

procedure CetakDaftarNilal(input Kul i AraipNilai. 

Input KodeNIM j integer ) 

{ Mencotak daftar nilai untuk mahaalama dengan SIM «■ KodeNIM. ) 

{ K.Awal t Aralp Kul mungkln koaong. KodeNIM audah tordofinial 
harganya. Aralp Kul audah dI buka untuk pembacaan. ) 

{ K.Akhlr: Daftar nilai mahaalawa dengan KodeNIM tcrcota* Ke piranti 
keluaran. Jlka aralp koaong. ceta k pcaan 'Aralp koaong ' ) 
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DEKLARASI 

KuliahMho s DataMho 

no : integer { noaor unit kuliah J 

ketemu : boolean { true Jika KodeNIH ditemukan di da lam arolp } 

otop : boolean { true Jika tidak ada lagi niJai mat* kullnh 

milik KodeNIH J 

ALGORITMA: 

Open (Kul, l) { buka araip Kul urituk pembacaan. f 
ketemu *- falae 

l carl KodeNIH di dalam araip Kuliah ) 
while ( not EOF(Kul) and (not ketemu) do 
Fread(Kul, KuliahMho) 
if KuliahMho. NIH • KodcMIK then 

ketomu •- t rue { data kuliah KodeNIH ditemukan J 

endi f 
endw hile 

I EOF(Kul) or ketemu / 

If ketemu the n 


( cetak aeluruh daftar nilai untu* KodeNIH ) 


writer 
write(* 

wr (fall 

Daftar Nilai Mata Kuliah 

NIH t *, KuliohKho.NXM) 
Namai •. KullahMha.Mama) 

*) 

_ f | 

write! 

writ.- 

No. Mata Kuliah SKfi Nilai 

•) 

•) 

writo( 

no «- 1 


•') 


write.!no, KuliahMho.KodeMK. KuliahMho.SKS, KulialiMK. Indeku) 
whllu (KullnhMho.NIM - KodeNIH) and (not BOF(Kul)) 

Fread (Kul. KuliahMho) 
no t- no » l 

write(no. KuliahMho.KodeMK. KuliahMho.SKS, KuliahMK.Indoko) 
endwhllr 

( Kuli.ihMha.NIH w KodeNIH or EOPlKul) / 

... 

olue 

write r data mahaelowo dengan NIH • *, KodeNIH, • tidak ado.') 
endif 

Clone (Kul) 

Algorldna 17.27 Moncetak daftar mlut mah.isis.va lerlentu 


3. Mcncetak daftar nilai untuk setiap mahasiswa. Contoh keluarannya kira- 
kira sebagai berikut: 
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Daftar Nilai Mata Kuliah 
NIM : 1359601 
Kama : Ezra Ibrahim 


No 

Mata Kuliah 

mum 

Nilai 

1 

TI451 

3 

A 

2 

KU301 

2 

B 

3 

IP321 

3 

B 


Daftar Nilai Mata Kuliah 
HIM » 1359606 
Hama : Aguo Purvoko 


NO 

Kata Kuliah 


Nilai 

1 

KU302 

2 

c 

2 

IP400 

4 

B 


Daftar Nilai Mata Kuliah 
NIM : 1359607 
Nam.i i Ley la Khodra 


No 

Kata Kuliah 

SKS 

Nilai 

1 

IF323 

3 

C 

2 

1F321 

3 

A 

3 

IF400 

4 


4 

IF401 

2 

B 


Daftar Nilai Mata Kuliah 
NIM : 1359609 
Nama i Ahmad Balquni 


Ho 

Mata Kuliah 

mum 

Nilai 

1 

IP221 

3 

C 


Daftar Nilai Kata Kuliah 
NIM s 1359610 
Hama s Arif Bramantoro 


No 

Mata Kuliah 

mum 

Nilai 

1 

IP400 

4 

A 


Algoritinunya sebagai berikul: 

ptoccduic CctakDnftarK11alSoluruhMahng lava ( input Kul : ArsipMho) 

V Heacetak ci.it tar nilai uncuk ciap-tiap nuhasiswa. } 

{ K.Awal : A raip Kul izungkin koaong. ) 

( K.Akhir: Daftar nilai tlap naharuowa tercetak ke piranti kcluaran. } 
DEKLARASI 

KuliahHha j DataMhs 
NIMsukarnr.g t integer 
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no : Integer 


ALGORITMA: 

Open(Kul, 1) { buka aralp Kul untuk pexbacaan. } 

while not EOF(Kul) do 

Freed(Kul. KuliahMha) { baca rekacan ) 

write (* Daftar Nilai Mata Kuliah •) 

write(• NIM s •. KuliahMha.NIM) 

write r Noma: *. KuliahMhn .Kama) 

write (*.-.. 

writeC No. Mata Kuliah SKS Nilai *) 
writer..• J 


no •- 1 

write (no. KuliahMho.KodeMK. KuliahMha.SKS. KuliahMha.lndeke) 
NIMaekarang «- KuliahMha.NIK 

While (KuliahMhn.NIK - NIMaekarang) and (not EOF(Kul)) 

Freed(Kul. KuliahMha) 
no •- no ♦ 1 

write(no, KuliahMha.Kod«MK. KuliahMha.SKS. KuliahMha.Indekn) 
endwhile 

( KulIahMha.NIM * NIMaekarang) or EOFtKul) / 

write (•.•) 

ondwhll o 

Clone (Kul) 

Algofllma 17.28 McncetoK dotter nMl ——p mahaW_ 


4. Mennmpilkiin dnftnr mnhnsiswa yang nu-ngambil mala kuliah tertcntu 
tertcntu saja bcscrta nilninva (bcrdasarknn kode mata kuliah yang 
diberikau). Contoli kcluarun kirn-kirn scbagni bcrikut: 

Defter Pooorta Mete Kuliah 
Kode mate kuliah 1 1F400 


No. 

NIM 

Name 

Nilai 

1 

1359606 

Ague Purvoko 

B 

2 

1359607 

Leyla Khodre 

A 

3 

1359610 

Arif Bramantoro 

A 


procedure CctakDoftarPoaertaMKIinput Kul : ArelpNiloi. 

Input MatKul « strin g) 

I Nencetak pene rte maCa kuliah MatKul. f 

{ K.Aval : Ain ip Kul mungkin kooor.g. NatKul audah terdefininl 
hargnny. 1. ) 

f K.Akhln P.ittar peeerta mate kuliah dengan kode MatKul tercetak ko 
plianti knluaran. ) 

DBXLARASI 

KuliahMhn t DataMho 
no 1 Integer 
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ALGORITMA 

Open(Kul, 1) { buka arexp Kul untuk pemtojcaan. } 

writeC Daftar Peserta Kata Kullah •) 
write r Kode mata kuliah : HatKul) 

writer.') 

writer No. NIM Kara Nilai '1 

write !*—.-.-.---• 1 

no *— 0 


while not BOP(Kul) do 

PreadJKul. KullahHho) ( baca rekawan ) 
if KuliahMhii.KodeMK • HatKul then 
no ♦- no • 1 

write(no. KuliahMhn.NIM, KullahHho.Nama. KullehMho.Indoko) 
end if 

endwhile 

(EOF(KulI / 

writer...') 

endlf 

Clone (Kul) 

Algorltma 17.29 Moncolnk daftar posorta kullah lortontu 


5. Mcnghitung nilai rata-rata (NR) sctiap mahnsiswa. Untuk sctiap 
muhasiswa, dicctak nilai-rata-ratanyn. Kkivalcnsi nilai indeks dalam angka: 
A ■ B - 3, C ■ 2. D ■ i, E * o). Kumus untuk mcnghitung NR adulali 

NR - total nilai dalam angka / jumlnti SKS 
Contoh kcluaran kira-kira sebagai bcrikut: 


Defter tlilei Rata-rata Meheoinwa 


NO. 

NIM 

Nama 

NR 

1 

1359601 

Ezra Ibrahim 

3.38 

1 

1359606 

Ague Purwoko 

2.67 

2 

1359607 

Leyla Khodre 

3.40 

3 

1359610 

Aril Bramantoro 

17.00 


procedure CetakNllaiRataRataMahnBiawadnput 
* “ nilai rata-rata. ) 


_ Kul i AreipMileiJ 

( Nencetak daltar nilai rata-rata. I 
{ K.awal: at nip Kul mungkin koaong ) 

( K.Akhlr: Daftar nilai rata-rata tljp mahaaiova tarcetak ke piranti 
koluaran. ) 


DR KLARASI 
KullahMha 
HZMaekarang 
totalnilai 
angka 
totalSKS 
no 
NR 


DataKha 

integer 

.rw-j-r 

integer 

Integer 

integer 

real 


/ SIM yang aedang diprosea ) 

( total nilai untuk eeorang mahaainwa ) 

( ekivalenai nilai indcka dengan angka } 
( jumlah total SKS seoiang mahautnwa ) 

( nomor urut ) 
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ALGORITMA: 


Opon(KuI, 1) { buka arsip Kul untuk penbacaan. ) 

writer Daftar Kilai Rata-rata Mahasiswa •) 


writer...• | 

write<• No. NIM Nana NR ') 

vriteC.•) 


while not BOP(Kul) do 
no *- 0 

totalnilai 4- 0 
CotalSKS — 0 

NIMuekarang ♦- Kull.ahMha.NZH 

whil e (KullahMha.NIM - NIKaekarang) and (not EOP(Kul)) 

Frcad(Kul. KuliahMha) { baca rekaman 

caae KuliahMhn.Indeko 
•A' i angka *- 4 

•B* : angka 3 

•C* « angka *- 2 

* D* i angka •- 3 

•E* i angka ♦- 1 

ond caaa 

totalnilai •- totalnilai . angka•KuliahMha.AKS 
totalSKS •- totalSKS * KuliahMha.SKS 

NR •- totalnllai/totalSKB 

write(no, KuliahMha.HIM. KuliahMha.Nana, NR) 
ondwhllo 

( Kul iahMha. NIM * NINaekarangt or KOFtltul) ) 

write (.. 

Clone (Kul) 

endwhlle 

( KdnKult f 

Algorltma 17.30 Menghitung NR Mtiap mahasiswa 


1 7.7 Menyalin Arsip 

Rekaman di dalam suatu arsip adakalanya pcrlu disaliu (copy) ke arsip yang 
lain. Pcnyalinan dapai dilakukan tcrhadap fduruh rekaman atau hanya 
rekaman tertentu saja. Di bawah ini kita mcnuliskan dua buah contoh 
algoritmo penyalinan arsip. Algoritma pertama menyalin selundi rekaman 
dan arsip Mhsi ke arsip Mhsa, sedangkan algorilma kedua hanya menyalin 
data mahasiswa yang lulus pada suatu lahap pendidikau (misalnya seorang 
mahasiswa dikatakan lulus bila IP-nya di atas 2.0). 
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(u) Mcnyulin seluruh rckaman di dalam arsip Mhsi kc arsip boro 
Mhs2 

p.rocedur«» SalinAroip(input Mhni i AraipMha, output Mhn2 i ArolpMhn) 
f Heny.il in aeluruh ini arsip Hhol ko aroip Mh»2. ) 

{ K.Awal : are ip Hhol mungkin kooong } 

{ K.Akhlci Mho2 beriol oalinan oeluruh reknman d.irl at nip MIlBl } 
DBKLARASl 

PckMhn t DataMhn 
ALGORITMA: 

Open IHhnl, l) ( buk a am ip Hhol untuk perbacaan. } 

Open(Mhn2, 2) ( buka amip Mho2 untuk penal loan. j 

while (not EOF(Mhol)) do 

Frond(Him 1, RekMhs) ( bacn tekaman dari aroip Hhol ) 

Kwrite(Hho2, RekMhu) { nnlin RekMho ko aroip Mm2 } 
endwhile 

{ KoriHhai) } 

clone(Mhui) 

Clone(Mhn2) 

Algofllma 17.31 Monyalm tsi arsip Mh»1 ko datum arsip Mht2 


(b) Mcnyulin data mahaiswa yang /P-nya di atas 2.0 dari arsip 
Mhst kc arsip barn Mhs2 

proced ure SalInLuluoSajafinput Mhsl 1 AroipMh3, outp ut Mho 2 1 
ArolpMhn) 

( Hcnyalln data n alias iowa yang IP-nya di acaa 2.0. mnhaalttwa 

dibaca dnrl aroip Nhai. f 
{ K.Awal : aroip Hhsl mungkin kooong ) 

{ K.Akhir: Mm2 betioi data mahaoiowa yang luluo dengan TP > 2.0, ) 

DKKLARAS2 

RekMho 1 DatoMhn 

ALGORITMA: 

Open(Mho1. 1) ( buka aroip Mhcl untuk pembacaan, } 

Open(Mhu2. 2) { buka aroip Mm2 uiiCuA penuJioan. ) 

while riot EOF (Mho 1) do 

Fread(Mhol, RekMhs) f baca rekamm dari arsip Mini ) 
if RekMho.IP >2.0 the n 
FVrite(Mhs2, RekMhs) 
endif 
endwhllc 
{ EOF (Mho 1) } 

Clone (Mhill) 

Close(Mho2) 

Algorltma 17.32 Monyalin data mahasisw.i yang IP-nya hi alas 2 0 
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Pcndeklnrasian arsip-arsip: 

DEKLARASI 

typo DataHhn : record <NXK : integer. Nam* i string, IP i renl> 
typ o AroipMho i PIlo of DataMho 

Algorllmo 17.W Doklorasl nrslp data mahaalswa 


Prosedur penggabungan arsip: 

proced ure GabunqAreipl(input Hhol. Mho2 : ArsipMha. 

output MhoJ : AraipHha) 

{ Mcnggabungkan dua buab araip, Mho 2 dan Mho2, rxrnjadi oebuah araip 
baru, Mhs J, dengan cara menyambung iui araip Mhnl dengan isi aroip 
Hha2 ktt da lam araip Mho). / 

{ K.Awal : Araip Mhnl a tau Mha2 mungkln koaong } 

{ K.Akhiri araip MhoJ beriai baail pongg.ibungan Nhal dan Nha2 I 

DEKLARASI 

RekMho i DataMho 

ALOORITMA: 

Open(Mho1. 1) ( buka araip Mh*2 untuk pembacaan. I 

Open (Mhn2, 1) / buka araip Hhu7 untuk pemhacaon. } 

Open (MhoJ. 2) ) buka araip Mha3 untuk penuhoar.. J 

whi_lo (not EOF(Mhnl) do 
Fread(Mhnl, RekMho) 

Pwrlta(KhnJ, RekMhn) 
end whlle 

7 EOF(Mho 11 I 

l Sambung dengan data dari Hha2, letakkan aatalah data dari Hhal ) 
while ( not E0P(Mh«2) do 
Fread*Mho2, RekMhn) 

Fwrite(MhoJ, RekMho) 
undwhilo 

7 EOF (Mha 2 ) } 

Clone(Mhnl) 

Cloaa(Mho2) 

Clone(MhoJ) 

Algorltma 17.W Ponggnbungan ar«p dengan cara ponyambungan 


Penggabungan Dua Buah Arsip Terurut 

Misalkan arsip Mhsi dan Mhs2 sudah terurut menaik berdasarkan field 
NIM. Kita ingin arsip hasil penggabungan Mhsi dan Mhs2 juga temrut 
menaik di dalam arsip \Ihs3. 
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if (not HOF(Mho1)) and (not EOF(MhB2) do 

Pread (Mhal, RekMhol) { baca rekaman dari Mhnl ) 

Pread(Mho2, RokMho2) ( baca rokanan dari Mho2 ) 
akhlrl <- falae 
akhir 2 «- false 

while (not akhirl) and (not akhir2J do 
if lRekMhol.HIM S RokKho2.NIM) then 
FwritelMhoJ. RekMhol) 
i£ not EOF (Mini) then 

FreadfMhsl. RekMhol) { aroip Mhsl maju oatu rekaman ) 
elo e 

akhlrl *- true 
end if 

eloe 

Fwrite(Mhn3, RekMho2) 
if not EOF(Mho1) then 

Proad (Mha2, RekMha2'. ( nr alp Nho2 maju oatu rekaman ) 
cine 

nkhir 2 *- true 
ondlf 
endif" 
endwhilu 

7 akhirl or «*hir 2 } 

end i f 

{ oalin rekaman yang teroioa. dari arolp Nhel atau Nha 2 ) 

while not akhirl do f jika yang toroioa adalah aroip Nhal ) 
Fwrite(Mha3, RekMhai) 
if not EOF(Mnol) then 

Freed(Mhol, RekMhol) ( aroip Hhol maju oatu rekaman } 
eloe 

akhirl ♦- true 
endi.f 
endwhlie 
T a/thirl ) 

while not akhir2 do ( jika yang teroioa adalah aroip Mha 2 ) 
Pwrite(Mhn.1, RekMho2) 
xf not EOF(Mho2) then 

Proad (Mhea. RekMho2) { aroip Hho2 maju oatu rekaman } 
e loe 

akhir 2 <- true 
endif 
endwhile 

{ akhir 2 } 

Close(Mhsl) 

Close(Mhs2) 

Close(Mhs3) 

Algo ritma 17. 35 Penggabung an dua ars ip lerurul menjadl «atu nip terurut_ 
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17.9 Pemutakhiran Arsip 

Pemutakhiran (updating) adalah proses yang dilakukan untuk mengubah 
nilai rekaman lertentu di dalam arsip, menambah rekaman baru, atau 
menghapus rekaman tertentu. Untuk dua pemutakhiran pertama, arsip 
dimutakhirkan dengan nilai baru yang dibaca dari piranti masukan atau 
dibaca dari arsip transaksi lain. Adapun untuk penghapusan, rekaman yang 
akan dihapus dibaca dari piranti masukan. 

Yang harus diperhatikan adalah sebuah arsip beruntun tidak dapat dibaca 
sekaligus ditulisi. Sebuah arsip hanya dapat dibuka untuk pembacaan saja 
atau untuk penulisan saja. Jadi, tidak mungkin membaca rekaman di dalam 
arsip, mengubahnya, dan kemudian menuliskannya kembali ke arsip tersebut. 

Keterbatasan ini menyebabkan pemutakhiran arsip merupakan proses yang 
rumit. Pemutakhiran arsip memerlukan dua buah arsip. Satu arsip (arsip 
“lama") adalah arsip asal yang akan dimutakhirkan, dibuka untuk 
pembacaan. Arsip kedua (arsip “baru"), yang dibuka untuk penulisan, 
berfungsi sebagai arsip temporer, berisi hasil pemutakhiran arsip lama. Jadi, 
arsip “lama" merupakan arsip masukan, sedangkan arsip temporer 
merupakan arsip keluaran. Jika kita menginginkan arsip asal berisi hasil 
pemutakhiran, maka setelah pemutakhiran data, isi arsip temporer disalin 
kembali ke arsip asal. Arsip temporer dapat dihapas sccara fisik karena tidak 
diperlukan lagi 

DBKLARASI 

type DetaMha i record <NIM : integer . Name i e trlng , IP i real > 
type AreipHhs i Pile og DataMho 

Algorltm* 17.36 Deklarasl arsip data maha&lswa (untuk pemutakhiran) 


Contoh 17.8. Misalkan arsip Asal menyimpan data mahasiswa (NIM, 
Nama, IP) - arsip Asal mungkin kosong. Kita akan menambahkan ( append) 
beberapa data baru ke arsip Asal. Penambahan data dilakukan setelah 
rekaman terakhir dari arsip Asal dengan sejumlah data baru yang dibaca 
dari papan ketik. Pembacaan data berakhir jika NIM yang dimasukkan 
adalah 9999. Langkah-langkahnya adalah: 

(i) buka arsip Asal untuk pembacaan; 

(ii) buka arsip Temp untuk penulisan sementara; 

(iii) baca seluruh rekaman dari arsip Asal, lalu tuliskan ke arsip Temp; 

(iv) baca data baru dari papan ketik, tulis data tersebut ke arsip Temp; 

(v) buka arsip Temp untuk pembacaan; 

(vi) buka arsip Asal untuk penulisan; 

(vii) baca seluruh rekaman dari arsip Temp, lalu tuliskan ke arsip Asal. 
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procedure TambahDataMahanlawn( input/output Asal : ArsipMhs) 

{ Hcnanbah oejumlah data baru ke aroip Asal; data dibaca dari papan 
ketik, proses pcn.imbahan data berhenti jika NIK yang dibaca - 9999. ) 

{ K.Awal : aroip Asal mungkin kosong. J 

{ K.Akhir: aroip Asal berisi data lama plus data yang baru. } 

DEKLARASI 

RekMhn t DataMho 

Temp i AraipMho { nana aroip tei^orer ) 

ALGORITMA: 

Open(Anal, 1) 

OpenITemp, 2) 

( baca seluruh rekaman dan Asal, tulio ke Temp ) 
while not EOF(Anal) do 
FreadCAaal. RekMhn) 

Fwrlte (Tnirp. RekMhn) 
ond whlle 
(sortAaa11 ) 

Clone(AnalJ 

read (RekMhe. HIM) (baca data HIM pertanu dari papan ketik, mungkin 9999) 
while(RekMho.NIM # 9999) «lo (baca data field lainnya) 

read(RekMhe.Mama) 
rend(RekMhn.IP) 

FwrJto(Temp. RekMhn) /rekara RekMho ko daiam aroip Temp ) 
read(RekMhn.NIM) 
ondwhlle 

( RekMhn.NIM - 9999) 

Clone(Temp) 

Opon(Tomp, 1) ( buka aroip Temp untuk pembacaan. ) 

Open(Anal, 2) ( buka aroip Anal untuk porekaman. ) 

( baca an Iuruh rekaman dati Temp, tulia ke Anai ) 
while not ROF(Torp) do 
Frond(Tomp,RekMhn) 

Fwrlte(Anal, RekMhn) 
ondwhlle 

7 ROR(Tempi ) 

Clone(Temp) 

Clone!Ann 1) 

Algorllmn 17.37 Ponnmbahnn dnln baru ko dnlam .imp Asal 


Contoli 17.9. Misalkan kita akan memperbaiki IP scorang mahasiswa. Nilai 
IP yang bum dibaca dari pirauti masuknn. Langknh-langkahnya sebngai 
hcrikut: 

(i) buka nrsip Asal untuk pembacaan 

(ii) buka arsip Temp untuk penulisan 

(iii) baca dan salin rekaman dari arsip Asal sampai ditemukan NIM yang 
dicari. Jika ditemukan, baca IP yang baru dari pirauti masukan. ubah IT 
lama dengan IP yang baru. tulia rekamannya ke arsip Temp. 
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(iv) baca setiap rekaman yang yang tersisa lalu tulis ke arsip Temp. 

(v) buka arsip Temp untuk pembacaan 

(vi) buka arsip Asal untuk penulisan 

(vii) baca seluruh rekaman dari arsip Temp, lalu tuliskan ke arsip Asal 

Sebagai contoh, misalkan arsip Asal berisi lima buah rekaman sebagai berikut: 

<359601, ‘Andi*. 2.96> • 

<359602, 'Rudi*, 3.04> 

<359604, ‘Ahmad*, 2.67> 

<359607, ‘Siti*, 2.86> 

<359608, 'Yanti', 2.94> 

Data mahasiswa dengan NIM - 359604 akan diubah IP- nya, misalnya 
mciyadi 2.98. 

Iangkah-langkahnya sebagai berikut: 

(i) Buka arsip Asal untuk pembacaan 
00 Buka arsip Temp untuk penulisan 

(iii) Baca dan salin arsip Asal ke dalam arsip Temp sampai ditcmukan NIM ■ 
359604 

Arsip Temp sekarang: 

<359601, 'Andl*, 2.96> 

<359602, * Rudi*, 3.04> 

(iv) Rekaman dengan NIM ■ 359604 ditemukan pada rekaman ketiga. Baca 
IP yang baru, misalnya 2.98, lalu ubah IP yang lama menjadi 2.98. 

<359604, *Ahmad*, 2.98» 

Salin rekaman yang telah diinutakhirkan ke dalam arsip Temp 
Arsip Temp sekarang: 

<359601, *Andi*, 2.96» 

<359602, ‘Rudi*, 3.04> 

<359604, 'Ahmad'. 2.98> 

(v) Salin sisa arsip Asal ke dalam arsip Temp 
Arsip Temp sekarang: 

<359601, 'Andl*, 2.96> 

<359602, * Rudi*, 3.04> 

<359604, 'Ahmad*, 2.98> 

<359607, 'Siti*, 2.86» 

<359608, -Yanti*. 2.94> 

(vi) Salin kembali arsip Temp ke arsip Asal 
Arsip Asal sekarang: 

<359601. 'Andl*, 2.96> 

<359602, 'Rudi*, 3.04> 

<359604, 'Ahmad*, 2.98> 
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<359607. *Siti', 2.B6> 
<359608. ‘Yanci*. 2.94> 


procedure MutakhirkanData(input/oucput Anal : ArnipMhs. 

input X : integ er) 

I Mengubah IP mahaaiava yang NIK - X der.gan IP yang bam. IP yang baru 
dibaca dari papan ketik. } 

( K.Awal : X audah berioi NIK mahaoiova yang akan diubah IP-nya. ) 

{ K.Akhir: IP mahaaiawa yang NIM-nya - X audah berubah mcnjadi IP yang 
baru } 

DBKLARASI 

RekMha i DataMha 
IPbaru i Mai 
ketemu : boolean 

Temp i AroipMhn { naioa nr a ip temporer ) 

ALGORITMA: 

Open(Anal. 1) 

Open(Temp, 2) 

( carl rvkaman dengan NIK • X, aalln ke Temp Jlka NIH a X ) 
ketemu «- false 

while (not ketemu) and (not HOF(Anal) do 
Frond(Anal, RokMho) ~f baca rekanan ) 

11 RekMhn.HIM - X then 
ketemu t- true 

Pwrlte(Temp, RekMhn) ( aalln ko aralp Temp rekaman yang 

NIM-nya a X ) 

end if 
endwhtle 

{ ketemu or BOF(Aaal) I 

If ketemu then 

{tampilkan data yang lama I 

write |RekMha.HIM, RekMha.Name, RekMha.IP) 

read(IPbaru) / baca IP yang baru f 

RekMha.IP *- IPbaru { ubah IP lama dongan IPbaru } 

Pwrlte(Temp, RekMha) { aalln rekaman yang baru ke Temp ) 

{ aalln rekaman yang teralaa yang terletak aeaudnh rekamnn X / 
while ( not EOF(Anal) do 
FreadlAsal, RekMhnI 
Fwrite(Temp, RekMho) 
endwhtle 
7 EOFfAaall ) 

oloo 

write(X. 1 tldak ada di dalam aroip Anal’) 
end it 

Close(Anal) 

Clone(Temp) 

/ Buka kembali kedua araip dengan lungsi yang berbeda. yaitu 
untuk menya 1 in Lai araip Temp ke Ah.iI J 
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open(Temp. 1) 

Open(A ba1, 2) 
while (not ROF(Temp)) do 
Bread (Temp, RckMha) 

PwrltotAanl. RekMhol 
ondwhile 
(~BOF Cramp) J 

Clone(Temp) 

Close(Aoal) 

Algorltma 17.38 PemulakMmn data d) dalam nrsip Asal 


17.10 Arsip Beruntun dalam PASCAL dan C 

(a) llai’iun Dcklnrnsi 
ALGORITMIK 

(i) Bcntuk unuim pcndcklarasinn arsip 

DEKLARASI 

type n.inwi tip* araip t File of ripe refcaman f tip* bontukan J 
araip j n.imn tips araip 

(ii) Contoh arsip data ir.ahasiswa. 

DSKLARASI 

/ tipe iokam.nl ) 

Sype DataMho « record «MIM : integer. Mama s string, IP t real* 
RekMhu j DataMho / rekaean I 
Mho i Fil e of DataMho ( araip ) 


(iii)Contoh arsip hilan^an bulat. 

DEKLARASI 

typo Arnlpr.it i File of integer { tipe bontukan ) 

i i Integer / rekamnn f 

Bll i Arniplnt { ar aip ) 


(iv) Arsip karaktcr 


DEKLARASI 

type AralpKar i 

File of char 

1 tipo bontukan ) 

c : char 

/ refcaman \ 


Kar : AraipKar 

{ ora ip 1 
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PASCAL 


(i) Bentuk umum pendeklarasian arsip 

DEKLARASI 

type nama tipe at sip - file of tipe rckanan; { tipe bentukan ) 
araip : nama tipe arsip; 


(ii) Contoh arsip data mahasiwa. 

type 

DataMhB - record 

NIM j longint; 
Nama t ctring(25]; 
IP i real; 
end; 

ArolpMho - file of DataHha; 
var 

RekMhn j DataMhaj / rekaman } 
Mho s ArolpMho; ( arsip ) 

(iii) Contoh arsip bilnngan bulat. 

typo 

Aroiplnt - fllo of Integer; 
var 

l i Integer; { rekaman ) 

Bll i Aroiplnt; { araip ) 

(iv) Contoh arsip karakter. 

typo 

ArolpKar - fllo of char; 

var 

c i char; ( rekaman J 

Kar « ArolpKar; ( arolp ) 


C 

(i) Bentuk umum pendeklarasian arsip 

FILE •araipi 

(ii) Contoh arsip data mahasiswa. 

typedof otruct { long HIM; 

char Mama 1251; 
float IP; 

) DataMha; 

DataMhB RekMho; ( rekaman ) 

FILE 'Mho; / araip } 
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(iii) Contoh arsip bilangan bulal. 

Inc 1; /• rcknman •/ 

riL* *Bi 1 j /• aroip •/ 

(iv) Contoh arsip karakter. 

char cj /• rokaman •/ 

FILE *Kar ; /• aroip •/ 


(b) Fungsi Pustaka untuk Pemrosesan Arsip 


ALGORITMIK 

i. opontnama arsip, kodc) 


ontol 


Open lMi>a, 1) 
Open «Bil, 2) 
Open <Kar. 1) 


buka aroip Mho untuk pnmbaonan 
bukn aralp Oil untuk penullaan 
bu»ui orolp Kar untuk pWwicann ) 


2 . Froad (noma arsip, rekaman) 


Conto 


FreadiMho, RekMho) 

Fread(Bil, i) 

Fread(Kar, ch) 

3. Fwrite (NamaArsip, NamaRek) 


ontoh 


Fwrito(Mho, *456091. ‘Ida Bagun Adi Sudowa’, 1.23») 

FwritelBll, 765) 

Fwrite(Kar, 'R') 

RekMho.NIK •- 4560B7 
RekMho.Nana ♦- 'Hlksat Sadikin' 

Rek.Mho . IP •- 2.76 
FVrite(Mho. RekMho) 

4. close (NamaArsip) 


onto 


Close(Mbs) 
Close(Bi1) 
Close(Kar) 


Bab 17 - Pomroscsan Arsip Borunlun 


http://www.pakteguh.com 




PASCAL 


1. aooign {arsip, numa arsipJlsik); 

reset(arsip); { untuk pembacaan, aeau ) 

rewrite (arsip) ( uncuk penulisan f 


ontol 


nosign(Mho.‘mho .dat *); (ahs.dat adalah naraa arsip fislk J 
ronot (MhnI; 

•saign(Bil, * bi 1 . rek'}; (bil.rek adalah nstna arsip fislk ) 
rewrite(Bil)j 

assign(Kar,‘kar.dat*); {kar dat adalah nama arsip fiaik ) 
ronot (Kar); 

2 . road uirsip, rekaman ) 


Conto 


read(Mho, HckMhoj. 
read ( 111 1, I); 
read(Kar, C); 

3 . write {arsip, rckanum) 


ontoh 


RekMhs.NIM i- 4*6091; 

RekMhs.Mama i- 'Ida Bagus Adi Sudewa'; 
RekMhs.Hama i- J.23j 
write(Mhn. RekMhs); 

write(HI 1, 765); 
write(Kar, 'R')j 

RokMMhu.HIM i- 456007; 

RekMhu.Nama t- ‘Hlkmat Sadikin*; 

Rek. Mhn .IP i- 2.76; 
write(Mho. RekMhs) » 

4. ciooo {arsip) 


Contoh 


Close(Mho); 
Clone(Bill; 
Close(Kar); 
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c 

1. arsip = £open(nama arsip fisik, "rb"); / untuk penbacaan, atau */ 
arsip = fopen' nama arsip fisik, -wb"); / ur.tuk penulisan */ 

Keterangan: "rb- r menyatakan buka arsip untuk pembacaan, 
b mengindikasikan arsip bmer 
-wb" w menyatakan buka arsip untuk pembacaan, 
b mengindikasikan arsip biner 

33SE 

Mhe a fopan("nhfl.dat*« -rb*); 

/• mha.dat adalah nama araip flalk •/ 

Dll - fopen("bll.rak", -wb“»/ 

/• bll.rmk adalah nama aralp flalk •/ 

Kar - fopanI'kar.dat", "rb-); , 

/• kar.dat adalah nama aralp fiaik •/ 

2 . froad i&rckamnn, aizoof (rekaman)Jumlah rekaman yang dibaca, 
arsip); 

froad(frRekMho. olioof(RokMha), 1, Hha) ; 
froadUi, olroot(i), l. Bil>i 
fraud(fcc, ■l«*ot(c), 1 , K*r); 

Catalan: jika rekaman bertipe string alau larik, maka karaktcr “&'* 
tidak boleh ditambahkan di depan rekaman. 

3 . f«^rlt*(&rekaman, ali«of(rekaman) Jumlah rekaman yang dibaca, 
arsip); 

fwrito(fcReHMhn, olioof(RokMha), 1, Mba); 
fwtltu(4Z, olzoof(Z), 1. Bll); 
fwrlto(ftC, olzoof(C), 1, Kar) / 

Catalan: 

jika rekaman bertipe string alau larik, maka karakter tidak boleh 
ditambahkan di depan rekaman. 

4- fcloeo [arsip ); 

mm 

fclooo(Kho); 
folooo(Bll); 
fclooo (Kar) ; 
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Bahasa pemrogram Pascal dan bahasn C memiliki fungsi standar EOF. Di 
dalam bahasa Pascal, fungsi EOF dinyalakan scbagai 

EOF (areip) 


Fungsi tcrscbu! nicngcmbalikan nilai true jika akhir arsip ferdeteksi; 
schaliknya false jika tidak. 

Dalam bahasa C, fungsi EOF dinyalakan scbagai 

feof iaraip) 

Fungsi ini mengembalikan nilai tidak-nol jika akhir arsip dicapai. 


(c) Contoh-contoh iranslasl nlgorilnui 

i. Membuat arsip data maliasiswa 
ALCORITMIK 

PROGRAM DuatAroipMah<iolova 

/ M^mbuat armip data mahaniawa. Data nahaalowa dibaca dark papan 

katlk, ) 

DBKLARASI 

typo DatfiMJj.i i record <NIM ; integer. Name i string . IP : real* 
Xoinwa t DataMho f poubah uniuk menampung pemb«caan data 

makaaitiwn ) 

Mho > File of DataMho 
ALQORITMA: 

Open (Mho, 2) / buka am ip Hhn untuk pertrkamn f 

reed(MfllBtfe.NIM) / twice NIK mahaaitwa pertana, mungkln 9999 ) 
vhU°<Hol*tf*.NIK / 9999) do 

read(Hoiown .Nairn, Molnwa.XP) 

Fwrlte(Mliu, Kciowa) { rek.im Maiava ku dalam aralp y.ho ) 
rend(Heiewe.NIM) 
endwhile 

( Mciuva.NIM - 9999) 

Clone(Mho) 


PASCAL 

PROGRAM BuatAraipMahaaiuwo; 

( Membuat arnip data mahaaiawn. Data Kahaaiswa dibaca dari papan 

k**tik. Nama araip adalah ’data.dat', } 

<• DBKLMASJ •) 

typo 

DataMho - rocord 

NIM t longint; 
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Kama : Bering(251; 
IP i real; 
end; 


var 


Mninwa i DataMho; 

Mhn : Pile of DataMho; 


( peubah untuJc menampung pembacann data 
mahaaiowa ) 


{• ALG0R1TKA,•) 

begin 

aaaign (Mho, 'data.daf); 

rowr i to (Mho|; / bufca araip Mm untuJc perckaman ) 

I baca NIM mahaalnwa pextana. nungkin 9999 ) 
write*'NIM x •»; readln (Kuiawa .HIM) ; 
while (Moiowa.HIM <> 9999) do 

begin 

write('Nana : •)/ readln(M b lawo .Nana) ; 
writer IP x ’); readln [Moiowa. IP) ; 

write (Mho. Mixiawa) ; { reksn Maiaw* k* «Ja Jam araip Mm ) 

write (* HIM i •); readln (Moiowa.KIM); 
end; (while) 

( Nbiow.1 .NIN - 9999) 


close(Mho) 


c 

/• PROGRAM BuatArslpMahaolawa •/ 

/• Mombuat arolp data mahaoiowa. Data mahaaiawa dlbaca darl pnpan 
kotlk. Kama araip adalah ‘data.daf. •/ 

main() 

( 

/• DKKLARAfll •/ 

typedef struct ( 


) 

DataMho Kaiawa; 

PILE »Mho; 

/• ALGQRITMAi •/ 

Him • foponCdntA.dif, "wb-J; /• buka aroip Mho untuk perekaman •/ 

/• baca NIM mahaoiowa pertaca. xrungkln 9999 •/ 
printf(*NIM x -); acanfi’tld'. fcMfliowa.NIK); 
while(Moiowa.KIM !• 9999) 

( 

printf ('Kama ; ■); scant( B »a a , Kaiawa.Hamal; 
printf (“IP x * 1; acanf ("%f, tKaiawa.IP); 

/• rekam Moiowa ke da lam araap Mho •/ 
fwriteUHoiowa. aiseof (Moiowa) . 1. Mho); 
printf(“HIM : *); acanf|-%ld-. CMoiowa.KIM); 

}/«while*/ 


long KIM; 
char Name|25); 
float IP; 

DataMho: 

/• peubah untuk menampung penhacaan data 
mahaoiowa •/ 
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/• Ksicwa.HIX - 9999 •/ 
fclona(Mhs); 


2. Membaca rekaman dari arsip data mahasiswa 
ALGORITMIK 

PROGRAM BacaAraipMahasiava 

( Hembaca rekaman darl araip data nahaolawa, dan mcnampilkannya ke 
layer. } 

DKKLAPASI 

cypa DatrtKhn : tocord CUH : lntogot , Hama i airin g, IP i toal > 
MiiiHwn s DatoMhB f peubah uncu* menarapung peml>acaan data mahaaiowa) 
Mhn i Kilo oi DatjMha 

ALGORlTMAi 

Opon (Mho, 1) f buka araip Hha unt.uk pembacaan } 

whl lo not KOP(Ml.n) 

K nun! (Mhn, Mnluwa) 

yt 1 t,p (Mil lawn.HIM. HnlnwA.Nana, Mninvrt.il') 

andwhllo 
f BOF(NIW) / 

Clouo(Mho) 


PASCAL 

program DacaAxaipKAhmiUwaj 

( Membaca rekaman dari araip data mahaaiatta dan metiaapi lkannya ke 
layar. Name araip data nahaaio vj odalah 'data.dat'. ) 

(• DEKIARASI •) 
typ« 

DataMI'.n • record 

KIM : lcngint ; 

Kamo i string 125!: 

IP r real; 


Mb lew,» : DatoMhs; { peubah untuk nenampung pembacaan data 

mahaaiowa ) 

Mhn i Pllo of DataMhfl; 


(• ALGORITMA:•} 

bogin 

anolgn (Mliu. ‘data.dat'); 

roaot(Mhs); ( buka areip Mho untuk pembacaan J 

while not EOFlMhsJ do 
begin 


504 
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roaiKMha, HHiswaJ 
writelnfNIM : *, Ksisva.HIM); 
writelnTNama: Ksiswa.Har^) ; 

writelnTl? : \ HsiRwa.IP): 
ond; (while} 

( EOF<Mho) } 

cloneIKhst; 

ond. 


c 

!• PROGRAM BacoArulpMahasisva •/ 

/• Membnea rokaman darl aralp data cabas is va dan rseimffpllkunr.ya ko 
layai. Data mahaoinva dibaca dari papan kotik. 

•/ 

typodof onim !true - L. false • 0 ) booloan; /• Cipe data boolean •/ 

main() 

I 

/• DEKLARASI •/ 

typodof struct I long NIMi 

char Hair.a(25|; 
float IP; 

I DatdMhs; 

DataMhn Mnlnwa; /• peubah untuk nenarpung pombacaan data mahattinwa 

•/ 

FILE •MllS; 


/• AtXiOK I'JMA: • / 

Klin foponCdata.dat", ’tb*); /• buka arsip Mhs untuk pemlxicaan '/ 

/• »aoi takwtvi pertvro. n»:rtfun MSP* •/ 
while (Ifoof(Khn) 

( 

f road (4MSlava, slioof(Mnlnvat. l. Khs); 
prlntf'-NIM i lid \n'. Ksisva.J.’IMl; 
print f;"Mar 11 la Vn*. Mnlswa .Nnet}; 
prlntfCIP i If \n*. Knliva.IPl; 


fclooolMha); 


17.11 Arsip sebagai Parameter Prosedur 

Scring arsip dilewntkan sebagai parameter prosedur/fungsi. Contnh 17.5 dan 
seterusnya memperlihatkan pettggunann arsip sebagai parameter prosedur. 
I’ada kasus seperti ini. arsip hamslah dilewatkan sebagai parameter keluaran 
(meskipun di dalam notasi algoritmik suatu arsip dilewatkan sebagai 
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parameter masukan). Hal ini untuk menghindari kebutuhan penyalinan 
arsip, sebagaimana yang dilakukan jika arsip dilewatkan sebagai parameter 
masukan (by value). Contoh-contoh berikut ini memperlihatkan cara 
mentranslasi proscdur yang mengandung parameter arsip. 


ALGORITMIK 

procedure Car1NIH( input Kho : AxsipMha. input Hoxncr : integer , 
output ketetnu : boolean) 

I Hencarl data mahaalowa yang NIH-nya - Honor, f 

( K.Awal : Araip Mho tldak koaong, Honor eudah bcrlal HIM mahaaiowa 
yang dicarl. ) 

( K.Akhlr: Jlka mahaalawa yang NIH-nya • Mooor dltomukan, ketemu 
beriai true, aoballknya jlka tldak ada naka ketemu beriai fals e ) 

DEKLARASij 

RokMh* t DataMhl 

ALGORITHM 
Open (Mho. U 
ketetnu *- false 

VdlU" BOP(Hha)) and (not koteaui) do 

Frond<Mhn. RokMhiO 
U RokMhn.WM • Honor thon 
kotomu 4- true 

( EOF (Mho) or Jcete.Tiu } 


PASCAL 

procedure CmlNIMIvar Mho Ar r ipKhu; N or : Integer; 

var kntoitu : boolean); 

{ Hencnrl data nuihaalnva yang NIH-nya - Nomor. I 

( K.Awal s Ar alp Mho tldak koaong, Honor oudah beriai HIM mahaolnwa 
yang dicarl. ) 

( K.Akhlr: Jlka mahaalowa yang NIH-nya - Honor ditemukan, ketemu 
hartal true, octalIknya jika tldak ada maka ketemu beriai false ) 

(• DEKLARASI: •) 
var 

RokMhs 1 IXit.iMho; 

(• ALGORITHA: •} 

begin 

anaign (Mho. 'data.daf); 

rooot(Mhn); / buka araip Mho untuk pembacaan } 

kutunrj s- false: 

while mot EOPtMhM) and not koCotsu) do 

begin 

read (Mils, RekMhs) ; 
if RokMhs.HIM • Noire x then 
kotetnu r- true: 

(endif} 
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ond; {while I 
( EOF(Mho) or ketemu } 

ond; 


c 

void Caii HIM (FILE ‘Mho. long Honor, boolean •r.otcmu) 

/• Ken car 1 data nahasiawa yang HlM-nya - Manor. •/ 

/• K.Awal Arsip Mha tidak kooong, Honor eudah berioi NIM mahasinwa 

yang dicarl. Perhatlkan, di oini arttip Mho haruo dilewatkan sebagai 
parameter keluaran. •/ 

/• K.Akhir: Jika mahaoiova yang UIM-nya - Noraor ditemukan, ketenu 
berisi true, ocbalinnya jika tidak a da maka keteau bcnal false. 

Tipe boolean dianggap eudah dideklnrasikan di luar proeedur sebagai 
bcrlkut: 

typodof ©nun It run • 1, Inloo • 0| bool«»nj 

•/ 

( 

/* DFKLARASli • 

DfltftHho Mfilnwn; 

/• Fungal Nark dlletakkan di luar prosodur •/ 

/• ALG0R1TKA: •/ 

Khn - fopanl-data.dat-. -rb-.»; /• buka snip Mho until* perJjacaan •/ 
•kotoniu - 

vhilo (I toot(Khn) fcfc f(*koto»u)) 

I 

frond .*.Kfliewa, oixoof (Huiiiw*) , l, Hh.T> i 
if (MniBWn.HlM - Kcarot) 

•kod'arj truo 
/•endif •/ 

I/'while*/ 

/• teof(Mho) II •katomu •/ 


17.12 ArsipTeks 

Arsip teks aduluh jenis arsip berunlun yang khusus. Arsip teks berbedn 
dengan tipe File of char yang tdah kita gunukan pada bagian scbelumnya. 
Teks terdiri dari baris-baris karakter, setiap baris dinkhiri dengan karakter 
end of line, sesuatu yang tidak terdapat di dalam file of cliar. Di dalam bab- 
bab scbelumnya kila sudah menggimnkan arsip teks sebagai tempat 
mcmbaca data mnstikun. .lika kita roengabaikan pemrosesnn karakter end of 
line, maka kita dapat membayaiigkan teks sebagai string yang panjang. 
seperti contoli pada Ciambar 17.4. Algoritmn pemrosesnn arsip berunlun 
yang sudali kita babas sebelum ini dapnt kita terapknn pada arsip teks. 
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...aajak 100 tahun yang lalu koU banc 

lung audah dihunl olah... 

Oambar 17.4 Contoh sabuah teks 



Informasi di dal am teks diproses dan dimanipulasi. Contoh pemrosesan teks 
antara lain mencari ( search ) sebuah karakter atau string, menghitung 
jumlah karakter atau jumlah kata, menempatkan head pembacaan ke 
karakter/kata tertentu, dan sebagainya. 

Banyak aplikasi yang di dalamnya melakukan pemrosesan teks. Program 
pengolah kata (text editor ) seperti Notepad dan Word adalah contoh nyata 
aplikasi pengolahan teks. Dengan program pengolah kata tersebut kita dapat 
mencari kata tertentu atau mengganti sebuah kata dengan kata lain. 
Kompilator bahasa pemrograman seperti Turbo Pascal, Turbo C, Borland 
Delphi, Borland C, dan sebagainya, sering dilengkapi dengan editor teks untuk 
menyunting program. Tugas pertnma kompilator pada waktu kompilasi 
adalah membaca program sumber untuk mengambU simbol-sirabol ( keyword, 
peubah, konstanta, dan sebagainya). Komponen kompilator yang melakukan 
aktivitas ini dinamakan program scanner. 

Misalkan ldta mempunvai sebuah arsip teks yang kita beri nama T. Deklarasi 
teks di dalam algoritma kita notasikan sebagai berikut: 

DEKLARASI 

T ! text ( T adalah paubab t oka ) 

Algorit ma 17.39 DeKtarasI T sobagai \sta dl dalam algontrra_ _ _ 


Di bawah ini kita berikan beberapa contoh pemrosesan karakter di dalam 
arsip teks. 


Contoh 17.10. Buatlah algoritma untuk menghitung banyaknya karakter di 
dalam teks (tidak termasuk karakter'.'). 

Penyelesaian 

■procedure HltungBanyakKat ( Input T » text, output n 1 Integer ) 
/"Menghitung banyaknya karakter di del am takoT) 

( X.Aval: T oungkin koaong. ) 

{ K.Akhiri n barial banyaknya karaktur di da lan ecka. ) 

DEKLARASI 
C « char 

ALGORITMA 1 
n ♦- 0 

Open(T. 1) / buJca aralp toko uneu* pembacaan ) 
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while not EOP(T) do 

FxeadlT, C> { baca karaktcr ) 

n *- n * l 

endwhile 
{ EOPfTj } 

Algorit ma 17.40 MengWtUftfl jumlah karakter d< daiom toks 


Contoh 17.11. Buutlah algoritma unluk mencuri karaktcr tcrtentu di dalam 
teks. Hasil pencarian adalah sebuah pcubah boolean yang hcrnilni true jika 
karaktcr ditcmukan, atau bcmilai/n/sf jika tidak ditcmukan. 

Pcnycleaaian 

Misalkan karaktcr yang dicari disimpan di dalam pcubah X, dan karaktcr 
yang dibaca dari teks disimpan di dalam pcubah C. 

procedure Car i (Input T t text, Input X : Char, output ketoimi 1 
boolean) 

( Nencari X di dalam taka. ) ' 

/ K.Awal: X eudah terdctiniai dcrujan auaru karakter. ) 

( K.Akhir: ketemu bernllal true jika X dltcemkan. Jika X tidak 
ditcmukan, ketemu bernllai talae. ) 

DEKLARA5I 
C 1 chat 

ALOOK1TMAt 

koteiou ♦- tal*.* 

OpontT. i» 

whllo Inot EOF(T)) and (not kotanui do 
Frodd(T. C) 
if C - X th*»n 
kotemu •- true 
fmdit 
or.d while 

l EOF IT) or ketoa u / 

Algoritma 17.41 Mencan korakter di dalam teks (verai 2 ) 


Contoh program yang mcmanggil proscdur c\»r 1 (baik untuk algoritma vcrsi 
1 maupun algoritma vcrsi 2): 

PRiXlKAM i'encariaitfUdalanTeke 

( Program untufc mcncari karaktcr tcrtentu di dalam take ) 

DEKLARASI 

T : text 

X * cha; 

found : boolean { true jika X ditcmukan. atau tala e Jika tidak ) 
procedure Carl ( input T : text. Input X : cnai . output ket**ru : boolean) 
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{ Mencari X di dalaa teks. Taada akhxr teks adalah karakter 

ALGORITMA: 
tendIX) 

CdzKT. X, found) 

H found than 

wrlt»<*tidafc dltoffukan*) 
nine 

wricot 'dltenutaal ) 

»ndrr ~ 

Algor lima 17.42 Program pomanggH prosedur Cart 


Contoh 17.12. Huatlah algoritma untuk menghitung jumlah karakter V di 
dalarn teks. Tanda akliir teks adalah kiirakter titik. 


Pe11ycle.su inn 

p rocedure illtungMzaktor^e(input T .* text, output n 1 loyqgnr) 

( Menghitung banyaknya karakter 'a' di delam teka. } 

I K.Akliir: T mungkln koaong. ) 

{ K.Akhiri n her ini Rinyak karakter 'a’di dalam teka. ) 

DRKI.ARA3I 
C r dial 

ALGORITMA 1 

n +- 0 
OpontT, 1 ) 

Vtdlp not i:OP(T) do 
KroAdlT, C) 

U c - *»* chon 
n ♦- n • 1 
•mdll 

f KOFITI ) 

Algoritma 17.43 Monghitung jumlah kemuncul an karaMff 'a*. _ 


Contoh 17-13* Tulislah algoritma untuk menghitung jumlah kemunculan 
pasangan humf ’an’di dalam teks. Misalnya pada contoh teks di bawah ini 
jumlah Vm'ada 3 buah (ditandai dengan garis bawah). 


pandangan aata 


Penyclesaian 

Gagasan yang digunakan di dalam algoritma adalah dengan menggunakan 
dua buah nama peubah, C dan lastC. Peubah C menyimpan karakter yang 
sedang dibaca, sedangkan lastC menyimpan karakter yang sudah dibaca 
sebelumnya. Sctiap kali membaca, kita memeriksa apakah UislC = 'a* dan C = 
'n'. Di awal algoritma, lastC kita inisialisasi dengan karakter spasi. 
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proced ure HitungPaoangan an IInput T : text, output n : integer ) 
l Menghitung banyak paaangan huruf • an' di daiam teka. ) 

( K. Await teka T eudah t erdetinisl iainya. T mungkJn kooong. ) 

I K.Akhiri nA-V bcrlai banyaknya 'an* di daiam teka. ) 

DBKLARASI 

C, lastC : char 

ALGORITKAi 
n 4- 0 

laatC ♦- • • 

Open(T, l» 

while not ROf<T) do 
Fiend(T, C) 

It (laatC • ’a') and (C - n*) then 

n ♦- n ♦ 1 
cndlf 

InotC •- C I untu* pembacaan berikulnya. C nek* rang menjadt laatC ) 
endwhllo 

f sbr IT) I 

Algorltma 17.44 Monghtfung jumloh komunculan an 1 


Con toll 17.14. Huatlah algoritnui untuk menghitung banyaknya kata di 
daiam pita karakter. Kata adalab deretan karakter bukan spasi yang diakhiri 
dengan spasi atau end of file {EOF). 

Contohnya, teks berikut ini: 

1 hari ini hu)an badal 


berisi 5 buah kata (yaitu: 1. hari, ini. hujan, dan baci.il), dan teks yang 
berikut ini: 

m 

hanya berisi satu buah kata (yaitu: a). 

Algorltma menghitung jumlah kata di daiam teks kita tulis dala dua versi. 
Versi pertama menggunakan informasi karakter yang sekarang dibaca dan 
karakter sebelumnya, sedangkan versi kedua mengabaikan spasi sampai 
ditemukan karakter bukan spasi. 

Versi 1: 

Gagasannya samn seperti pada Con toll 17.44. Karakter vang sekarang dibaca 
disimpan di daiam C. sedangkan karakter yang dibaca sebelumnya disimpan 
di daiam lustC. Sebuah kata ditandai dengan salah satu dan ciri berikut: 

(i) lastC sembarang karakter bukan spasi dan C = ' ’ 

(ii) lastC sembarang karakter bukan spasi dan C = karakter end of file 
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procedure HltungBanyakKata (input T i text, putput nKata 


( K.Aval : T laungkin koeong. ) 

l K.Akhir: nKata berlai b,»nyakny a ka Cm di da 2 am t oka.) 

DEKLARASX 

C, laotC t char 


ALOOBITMA: 
nKata ♦- 0 
laatC «- • ' 

Open(T, 1) 
while not EOFJTJ do 
Fread <7, C) 

If (laotC t • •) and (C - ' 'J t hen 
nKata «- nKata • 1 
ondlf 

laotC «- C (until* ptsrbacaan berikueny a. C sekaraiig menjadi laatC } 
endwhlle 
T EOF IT) ) 

{ kata tarakhir dlproaea khuvuo ) 

if laotC f • • ( dan ‘end at file' tozdatakal) then 
nKata «- nKata ♦ 1 
endj f 

Algorlima 17.45 Monghllung jumlah kata (voisl 1). 


Vers! 2: 

Gagasan yang dipakai dalara vcrsi 2 adalah “mengabnikan" ( ignore ) semua 
karakter spasi hingga ditemukan sebuali karakter yang bukan spasi. Sclama 
karakter yang dibaca bukan spasi atau baca tenis leks sampai ditemukan 
karakter spasi lagi atau HOF. Pada kondisi ini. satu kata ditemukan. Sebclum 
dan sesudah suatu kata mungkin saja ada spasi. karena itu pengabaian spasi 
perlu dilakukan di awul dan di akhir kata. 

Prosedur untuk mengabaikan karakter spasi: 

T rpcoduro Abalkanflpaol (In put T t text) 

Mombaca deretan apaoi dan m«m/.ibaik«nnya. ) 

( K.Awnh barang, } 

/ K,Akhir/ kar aktor bukan apaoi ditemukan, / 

DEKLARASX 

C 1 chor 

ALGOR 1TMA: 

fneianu ada apaoi } 
while (C . * •) and <not EOF(T)} do 
ProadtT, 0 
endwhlle 
{ C * • •) 

Algorlima 17.46 Mongnbntkon_ spasi yang dlbnca fa/KVo blank) 
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Prosedur menghitungjumlah kata: 

procedure HitungBanyakKata(input T i text, output nKata i integer ) 
{Nenghltung banyak kata di da Jam toko. ) 

( JC.Aw.ilr nJ'-ata belum terdafiniai nUeJnyj. ) 

I K.Akhin nfata beriai banyak kata di dalaa Ceka. } 

OKKLARA 61 
C i char 

f roced ure AbaikanSpani(input T j text) 

Memb.ica deretan ap/tol dan -w*ngiib<iikannya. f 

ALGORITMA: 
nKata •- 0 
Open(T. 1) 
while not EOP(T) do 

rend(Tj C) 

AbaikanSpaai(T) 

if not KOP'.Tl then 

l baca terua teka oampal kptem u apaai atnu EOF } 
repeat 

read(T, C) 

until (C - ' ') or (HOPIT)) 

nKata *- nKata ♦ 1 f oat u knt.i dltamukan ) 

el«e { arsip hanya l karakter, Jangaung EOF ) 
nKata nKata .1 { satu kata dlteaukan ) 

end if 
e ndwhlle 
? EOFITl } 

Cloae IT) 

Algorltma 17.47 Menghitunnim .') _ 


Contoh 17.15* Tulislah ulgoritmn untuk mcncari upakah kata tertentu 
ditemuknn di dalam teks. Tandn akliir teles adalah karakter titik. 

Pcnyelcsaian 

Gagasan algoritma untuk masalah ini adalah menyambung setiap karakter 
(bukan spasi atau titik) yang ditemukan dengan karakter yang sudab dibaca 
scbelumnva. Penvarabungan ini dapat inenggunakan operator V (ingatlah 
bah\va tipe string memiliki operator V). Misalkan peubah yang menyimpan 
karakter pembentuk kata beniama kata. Pada mulanya, kata kita 
diinisialisasi dengan karakter kosung {null bukan spasi): 

kata •- •' 
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Setiap kali karakter (C) yang dibaca bukan spasi alau tilik, sambungkan C 
dengan kata: 

kata *- kata ♦ C 


Setelah satu kata ditemukan. bandingkan apakah kata sama dengan string s. 
Bila kata 'PROGRAM' ditemukan, pemrosesan teks dihentikan. Untuk 
maksud ini, peubah boolean yang bemama ketemu digunakan. Pcubab 
ketemu bernilai true jika kata yang dicari ditemukan, dan bemilai false 
jika tidak ditemukan. 

procedure CariKata(input T : text, inpu t a : string, 
output ketemu : boole an) 

( Hencari kata tertentu di dalan teks T. ) 

K.Awal: T mungkln koeong; s oudah bcnsl kata yang akan dicari. } 

[ K.Akhlrs ketemu bcrnlJ.il true )lka a ditemukan, at.iu falao jika 
aabaliknya.) 

DEKLARASI 

C i char 

kata i gtring 


proc edure AbaikanSpaul(I nput T i text) 

I Sternbaca deretan apaal dan nengabalkannya. ) 

ALQORlTMAi 

Open(T, 1) 

ketemu ♦- false 

while (not EOF(T)) and (not ketemu) do 
kata ♦- •• 

FroadtT. C) 

Abaikannpaoi(T) 

{ baca torus toko nampal dltemikan apaal at an kVF } 
if not EOF(T) thon 


repeat 

kata •- kata • C 
Fread (T, C) 

until EOF(T) or (C - * •) 

if EOF(T) thon { Jika akhlr araxp tercapal, aambungkan karakter 
torakhir yang dibaca. C. dengan kata ) 
kata •- kata • C 
end If 

oloe I aroip hanya 1 karakter. langaung EOF f 
kata ♦- kata ♦ C 
end if 

( bandingkan kata dangan string yang dicari, n / 
if kata - o thon 
ketemu •— true 
end if 

endwhilw 

.* or ketemu ) 

Clone(T) 


Algoritma 17.48 Mencan kata terlonlu di dalam loks 
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Contoh program pemanggil: 

PROGRAM PencnrJ.inK.itoDld.ilanTckn 

( Program utana untuk pencarian hat* tcrtentu di dalam tcka. ) 
DEKLARASI 

T i toxt 
word i at ring 
ketemu i b oolea n 

proce dure CarlKata( input T ; text, input 8 : •trlng, 
output ketorau s boolean) 

( Mcncari kata tertentu di JaJam eekfl t7~] 

ALGORITMAi 

read(word) (baca kata yang akan dicarl, adaalnya •PROGRAM') 
CariKatalT, word.ketonu) 
if ketemu then 

writo(* diteirukan') 

•IE? 

wrltol* tidak ditcoukanS') 
endif 

Aigoritmn 17 49 I • y.vu • ••■ i »<igil CanK.n. i 


Contoh 17.16. Misalkan kita mcmiliki sebuah teks program dnlam bahasa C 
vang sudah bcnar secara sintnks. Kita ingin mencari jumkili pasangnn *{' dan di 
dalam teks program teiselait Setiap pasangnn '{’ don •}’ menvatakan satu buali 
Wok program. 

Sobngai contoh, teles program Cdi Hawaii ini mempunyai duabuali pasangan 
T dan 

■include <otdio.h> 

■alntl 

( 

int w. pj 
P-0; 

for(m-l;tiw-100;m*4l 

{ P«*2; 

printfCld".p )i 


Pcnyelcsaian 

Gagasan dari aigoritmn di bawali ini sederhana. Karcnn teks program C 
diasumsikan sudah benar seearn sintnks, makn kita cukup hanya 
menghitung jiimlah kern n nation karaktersaja (sedangkanpasangannya 
tidak perlu diperiksa kebenulaannya). 


Bab 1 7 “ PumrosoMin Aisip B 



http://www.pakteguh.com 



procedure HitungJumlahKuraval( input T : text, o utput n : integer) 

( Menghitung jumlah paaar.gan '(’ dan •}' di da2an program C yang dinyatakan 
sebagai teka T. Diasvm3ikar. program C sudah benar aecara aintaka. } 

( K.Awal: T mungkln koaong. } 

( K.Akhir: n berlal jumlah paaangan •(• dan ')• .) 

DEKLARASI 

C i char 
ALGORITMA: 
n •- 0 
OponlT, 1) 
whil e not EOF(T» do 
FreadlT, C) 
if C - then 
n «- n ♦ 1 
end If 
ondwhlle 
7 ROF(T)} 

Close(T) 

Algoritma 17.50 Monghitung jumloh komunculan pasangan *f dan y 


Contoh 17.17. Soring dipcriukan data di dnlam arsip disimpan kc dalain 
larik agar pcmrosesan data dapat lebih copat. Dibcrikan scbunb arsip toka T. 
Buatlnh algoritma untuk inombaca tcks dan monvimpan sctiap knraktor di 
dalam tcks di dalam sebuh larik karaktcr. 

Pcnyelcsalan 

Fcrhntikan bahwa teks mungkin koscmg. Jika teka kosong, maka larik 
karakter tidak tcrdefinisi (ukurannya * o). 

pr oced ure BacaTekeKeLariktinput T 1 text, output K 1 LarikKar, 

output n 1 Integer) 

( Hembaca rangkalan karakter di dalam teka dan monylmpan sue jap 
Acarafrcer di dalam dalam larik K{l..n]. ) 

{ K.Awal: T mungkin koaong. ) 

{ K.Akhir: K beriai karakeer-karakter di dalam t oka; n berlal 
banyaknya karakter di dalam teka (• ukur.in Jar!*). Jika T koaong. 
maka LarikKar tidak ter detiniai dan n • 0 ) 

DEKLARASI 
C : cha r 

ALGORITMA: 
n *- 0 
Open(T, 1) 
while not EOF(T) do 
read(T;C) 
n e- n ♦ 1 

KlnJ *- C / oippan C ke dalam elcccn Kin] } 
endwhile 
/ EOFIT) I 
Close IT) 

Algoritma 17.51 Menyimpan karakter d« dalam arsip teks ke dalam larik 
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Soal Latihan Bab 17 

1. Dimisalkan arsip Mhs sudah berisi data mahasiswa (arsip tidak kosong). 
Tuliskan algoritma untuk menghapus sebuah rekaman dengan NIM 
tertentu (NIM dibaca dari papan ketik). 

2. Dimisalkan arsip Mhs sudah berisi data mahasiswa (arsip tidak kosong). 
Tuliskan algoritma untuk menampilkan data rekaman yang Ve-k (k 
dibaca dari papan ketik). Jika rekaman ke-A: tidak ada, maka 
ditampilkan pesan bahwa rekaman ke-A: tidak ada. 

3. Diberikan 2 buah arsip data mahasiswa, Mhsi dan M/152. Buatlah fungsi 
untuk mencntukan apakah kedua arsip tersebut sama. 

4. Sebuah arsip integer menyimpan nilai-nilai positif. Bagaimana 
mengurutkan isi arsip dengan bantuan larik? Tuliskanlah algoritmanya. 

5. MLsalkan arsip Mhs sudah terurut menaik berdasarkan NIM. Tuliskan 
algoritma untuk menyisipkan data baru ke dalam arsip pada posisi yang 
tepat (sehingga arsip tetap terurut). 

6. Dapatkah metode pencarian bagidua dilakukan pada arsip beruntun 
(yang datanya telah terurut menaik)? Mengapa? 

7. Misalkan tcrdapat dua buah arsip beruntun yang berisi data mahasiswa. 
Struktur arsip pertama: NIM, Nama, Alamat, Nomor Tetpon, dan 
struktur arsip kedua: NIM, Jenis Kelamin, IP. Masing-masing arsip 
sudah terurut berdasarkan NIM. Tuliskan algoritma untuk 
menghasilkan sebuah arsip baru yang berisi irisan atau intersection dari 
kedua arsip tersebut berdasarkan NIM. Arsip yang baru memuat data 
NIM, Nama, dan IP. Misalnya, jika pada arsip pertama terdapat 
rekaman <13596021, ‘Ahmad’, *J 1 . Dago 27*, 250324> dan pada arsip 
kedua terdapat rekaman <13596021, 'P', 3.o6>, maka arsip baru berisi 
<13596021, 'Ahmad', 3.06X 

8 . Untuk semua soal 1 sampai 9. translasikan algoritmanya ke dalam 
bahasa Pascal danbahasaC. 

9. Tulislah fungsi untuk mencari kemunculan pertama kali untaian 'an' di 
dalam sebuah arsip teks. Fungsi mengembalikan nilai true jika 'an' 
terdapat di dalam teks dan false jika tidak ada. 

10. Modifikasilah algoritma pada Contoh 17.13 sehingga dapat digunakan 
untuk menghitung jumlah kemunculan untaian 'kan'. 
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11. Diberikan scbuah arsip leks yang telah berisi program dalam bahasa 
Pascal. Teks mungkin saja kosong. Diasumsikan program tcrscbut sudali 
benar secara sintaks dan semua kata kunci di dalam program tersebut 
ditulis dalam huruf kecil ( lowercase ). Tulislah prosedur yang 
memberikan kcluaran jumlah pasangan 'begin* dan 'end'. 

12. Tulislah prosedur untuk menghitung jumlah kemunculan huruf 
hidup/vokal di dalam arsip teks. Teks mungkin saja kosong. 

13. Tulislah berupa prosedur untuk mencatat pada urutan keberapa - 
dihitung dari awal teks - diteinukan kemunculan pertama kali karakter 
V di dalam teks. 

14. Tulislah prosedur untuk mencari kata terpanjang di dalam teks. 
Prosedur memberikan kcluaran kata terpanjang. .Vika teks kosong, maka 
kata terpanjang yang dihasilkan adalah string kosong. 
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18 


Algoritma Rekursif 



Gambar TV yang rtkuntf (Sumber: WJRI76J) 


KeNdupan berslfat ofentlf, 
manga rah ke pengulangan mekanisme a lam sameata. 
(Alfred Whitehead - Adventuns 0 / Ideas. 1033) 


Bab 18 ini memperkenalkan rekursifitas, yaitu salah satu kakas (too!) yang 
sangat penting dal am pemrograman. Disebut sangat penting karena rekursif 
menyediakan teknik penyelesaian persoalan yang di dalamnya mengandung 
definisi persoalan itu sendiri. J.S. Rohl, seorang dosen di Universitas 
Western Australia, menyatakan bahwa rekursif adalah Cinderella- nya teknik 
pemrograman [ROH84]. Sayangnya, rekursif merupakan materi yang 
paling sulit dimengerti oleh pemula pemrograman. Pembahasan materi 
algoritma rekursif menggunakan banyak contoh agar pembaca mempunyai 
pemahaman yang kuat tentang rekursif. 
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18.1 Proses Rekursif 


Banvak objek di dalam matematika yang didefinisikan dengan cara 
mcnyalakan suatu proses (algoritma) yang menghasilkan objek tersebut. 
Sebagai contoh, n diperoleh dengan membagi keliling lingkaran (AT) dengan 
diameternya (d). Dengan kata lain, proses (algoritma) untuk memperoleh 
nilni a dinyatakan sebagai berikut: 

1. baca keliling lingkaran. A* 

2. baca diameter lingkaran, d 
3- hitung n-K/d 

Yang jelas, proses tersebut harus berhenti dengan memberikan basil yang 
didefinisikan. 

Contoh objek lain yang diperoleh (lari suatu proses adnlah faktorial. 
Faktorial dari bilangan bulat tak-negatif n didefinisikan sebagai berikut: 

|H Jl .«-0 

|lx 2 x-*-.x(n-|)x/i ,»>0 

Sebagai contoh, 
o! ■ i 
l! - 1 
2l ■ 1X2 
3! ■ 1X2X3 
4 !-lXaX 3 X 4 

Proses untuk menghitung faktorial dari bilangan bulat n tak-negatif 
dinyatakan dalam algoritma berikut ini: 

function Faktorial{input n 1 integer)-* Integer 
lirvngemtutlikMn nilai nlf 

DEKLMAS 1 

i « Integer 
V 1 Integer 

ALGORITMA! 

P ♦- 1 
l f- 1 

whllo i S n do 
P ♦- F • i 
i *- i ♦ 1 
endwhilo 
{ i > n ) 

return F 

Algoritma 18.1 Fungsi Faktorial (Itoratif) 
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Algoritma Faktorial seperti di atas dinamakan algoritma itcratif karena 
ia mcngerjakan pengulangan sekumpulan aksi sampai kondisi berhentinya 
tercapai fTEN86j. Fungsi Faktorial mengcmbalikan nilai faktorial dari n. 

Algoritma iteratif adalah algoritma yang mcngerjakan pengulangan aksi 
seinma kondisi pengulangan masih dipcnuhi (true). Secant umuni, skema 
algoritma itenitif sebagai berikut: 

procedure Iccrntlf Unput x t xType) 

( proaodur yang menanipulasi nilai x 
K.Aw.tl i x terdetinisi nilatnya 

K.Akhir: nekuvpulan aksi yang tr^oanipulaai nilai x telah dilakukan 

1 

niiKlJ\PASl 

[ knmue data lokal, jika ada ) 

AliGOK 1TMA i 

Inislalisaai 

while KCJtJDISHx) do 

AKSI (x) { kumpulan aksi yang vxrnanlpulasi nilai x } 

Fix) { aksi yang mengubalt nilai x ) 

ondwhilo 

( not KONSISKx) ) 

Tarminaui 

Algoritma 18.2 Skoma Algoritma Iteralil 


Sekarang coba perhatikan bnhwa faktorial dari n dapat didefmisikan dalam 
terminoiogi faktorial juga: 
o! - i 
l! - o! x i 
a! ■ l! x 2 
3! * 2! x 3 
4! ■ 3! * 4 

Nyatalalt. bahwa untuk u > o kita mclihnt bahwa 
n! ■ l x 2 x... x (n -1) x n - (n -1)! x «. 


Dengan menggunnkan notasi matematika, maka n! didefmisikan dalam 
luibungan rekursif sebagai berikut: 


Jt 1 

(wx(n-l)! 


.n = 0 
.//> 0 


Kita dapat melihat bahwa dalam proses perhitungan faktorial terdapat 
definisi faktorial itu sendiri. Cara pendeftnisian seperti itu, yang 
ntcndcfmisknn sebuah objek dalam terminoiogi dirinya sendiri dinamakan 
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definisi rekursif [TEN86]. Proses yang melibatkan rekursifitas disebut 
dengan proses rekursif. 


18.2 Definisi Rekursif 

Definisi rekursif diturunkan secaro matematik. Definisi yang lidak formal 
mcnyntakan bahwa sehuab objek dikatakan rekursif jika ia didefinisiknn 
inenjadi lebili sederhnna dalam terminologi dirinya sendirinya. Nicklaus 
Wirth mcndefinisikan rekursif sebagai berikut: 

An object is said be recursive if it /Hirtia/ly consist or is dcjincs in terms 
of itself [WIK76I 

Dalam kehidupan sclinri-hari banyak terdapat objek yang rekursif. Taltukah 
Anda bahwa, kalau diamati dengan saksama, daun pakis (Gambar 18.1) 
dibentuk oleh ranting-rnnting daun yang mcmpunyal pola yang mirip 
dengan daun pakis itu sendiri. Set in p ranting daun disusun lagi oleh ranting 
daun dengan pola yang mirip. Hal yang sama juga tampak pada pohon 
cemara. Objek rekursif yang khas ini disebut fruktul. Dalam bidang grafik 
dan seni, fraktal dimanfnatkan untuk memhangkitkan gambar-gambnr yang 
indah dan menawan. 



Mp 



Gambar 18.1 Fraktal lanaman pakis 


Taufik Ismail, seorang penvair sufistik, pemah membuat puisi yang 
menyiratkan rekursifitas sebagai berikut: 
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Fariduddin Attar bangunlah pada malam hari 1 
Dan dia memikirkan tentang dunia ini 

Temyata dunia ini 
Adalah sebuah peti 

Sebuah peti yang besar dan tertutup di atasnya 
Dan kita manusia berputar-putar di dalamnya 

Dunia sebuah peti yang besar 
Dan tertutup di atasnya 

Dan kita terkurung di dalamnya 
Dan kita berjalan-jalan di dalamnya 
Dan kita bermenung di dalamnya 
Dan kita beranak di dalamnya 
Dan kita membuat peti di dalamnya 

Dan kita membuat peti 
di dalam peti ini 


Temukan bagian syair mana yang mcnyiralkan rekursifitas itu! 

Daya guna rekursif terlctak pada kcmampuannya mendefinisikan sekumpulan 
objck yang tidak terbatas dengan sebuah pemyataan terbatas [WIR76]. 
Sejumlah perhitungan yang tidak berhingga misalnya, dapat digambarkan 
dengan algoritma rekursif (teks algoritma adalah terbatas), seolah-olah 
algoritma tereebut mengandung pengulangan yang tidak "tampak" secara 
eksplisit. 

Seperti yang sudah dinyatakan pada bagian awal Bab 18 ini, rekursif 
merupakan kakas yang sangat penting di dalam matematika dan 
pemrograman. Dalam matematika, banyak ditemukan fungsi yang rekursif, 
misalnya polinom Chebysev berikut: 

(I. ws *o 

T(n,x)Ax, 

'[2x7(11 — l,x) - T(n - 2 ,x), lainnya 
Berikut ini diberikan contoh-contoh fungsi rekursif yang lain: 

1. Sembarang fungsi rekursif: 

(a) F{x) = o ,x = o 

(b) ftx) = 2F (x -1) + X2 , x * o 


•Taufiq Ismail Membaca Puisi, Taman Ismail Marruki, 30 * 3 1 Januari 1980, him. 23 
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2. Turunan fungsi: 

(a) ^2-2,. ^> = 
dx dx 


(hj </(*’+Sx) d(x ! ) | d( 5 x) 
dx dx dx 


3. Bilangan asli: 

(a) 1 adalah bilangan asli 

(b) suksesor bilangan asli adalah bilangan asli 


4. Polinom interpolasi Newton p*(x) yang melalui titik-titik (x 0 ,y 0 ), (*„y,), 
.... (*« ,y„) didefinisikan scbagai berikut: 

(a) po(x) = y Q 

(b) p„(x) ■ Pn-.(x) ♦ adx ■ *o)(x - xj...(x - x»-.) 


5. Dalam pemrograman, salah satu struktur data yang pendng adalah pohon 
biner (binary tree). Sebuah pohon biner didefinisikan sebagai berikut: 

(a) kosong adalah pohon (disebut juga pohon kosong) 


(b) Jika f, dan t 2 pohon, maka 



adalah pohon 


Jika diperhatikan dari contoh-contoh di atas adalah maka deflnisi rckursif 
disusun oleh dua bagian: 

(i) Basis 

Bagian yang berisi kasus yang terdefinisi secara eksplisit. Bagian ini juga 
sekaligus menghentikan rekursif (dan memberikan sebuah nilai yang 
terdefinisi pada fungsi rekursif). 

(ii) Rekurens 

Bagian ini mendefinisikan objek dalam terminologi dirinya sendiri. 

Bagian (b) menyatakan bahwa definisi rekursif memungkinkan komputasi 
yang tidak berhenti. Pada setiap kali pendefinisian, akan dihasilkan “bentuk" 
yang makin sederhana, sehingga pada suatu saat pendefinisian itu akan 
berhenti. Bagian (a) berisi kasus yang menghentikan pendefinian rekursif. 

Tinjau kembali perhitungan n! secara rekursif. Dengan mengingat kembali 
definisi rekursif dari faktorial: 

(i) n! -1 .jika n = o (basis) 

(ii) nl = nx(n-i)! ,jikan>o (rekurens) 


Ui 


Algofllma dan Pamrograman 


http://www.pakteguh.com 


maka 5! dihitung dengan langkah berikut: 


(1) 5! 

= 5x4! 

(rekurens) 

( 2 ) 

4 l = 4 X 3 ! 


( 3 ) 

3! = 3 X 2 ! 


( 4 ) 

2! = 

2x1! 

( 5 ) 


1! * 1 x 0! 

( 6 ) 


0! = 1 


Pada bans (6) kita mempcroleh nilai yang terdefinisi secara langsung dan 
bukan faktorial dari bilangan lainnya. Dengan melakukan ninut-balik 
( backtrack ) dari baris (6) ke baris (1), kita mendapatkan nilai pada setiap 
baris untuk menghitung hasil pada baris sebclumnya: 

(6') o!-i 

( 5 ’) l! - 1x0! - 1x1 - 1 
(4’) 2! - 2Xl! - 2X1-2 
(30 31-3X2I-3X2-6 
(2 1 ) 41-4x31-4x6-24 
(»*) 51-5x41-5x24-120 

Jadi, 5! - 120. 

Algoritma rekursif untuk menghitung n! sebagai berikut: 

function Fak {Input n: integer) -*lntoger 
( m engembalikan nilai nl. Algoritma rckuroit. 
baoia 1 Jika n • 0 . maka 01 • 1 
rekurenex Jika n > 0. naka nl • n x (n-l)l 

I 

DEKLARASI 


I baoia ) 

( rakurana J 


Perhatikanlah bahwa dal am bagian re ku re ns terkandung pengulangan yang 
implisit Pengulangan itu ditunjukkan oleh pemanggilan kembali fungsi Fak 
dengan parameter yang nilainya terns berkurang, (n -1). Bagaimana pemanggilan 
rekursif dilakukan adalah tanggung jawab compiler. Pemrogram hanya periu 
memikirkan bagaimana skema algoritma rekursifnya. Fungsi Fak di atas 
memberikan kita contoh skema algoritma rekursif yang paling sederhana, yaitu 
rekursif lanjar (tinier recursion ), karena hanya ada satu pemanggilan rekursif. 


Dab 18-Algoritma Rekureif 


ALGORITMA: 

If n - 0 than 
return 1 

•lee 

return n« FaktorialIn - 1) 
•ndlf 

Algoritma 18.3 Fungsi Faktorial ( Rekursif) 
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18.3 Skema Umum Prosedur dan Fungsi 
Rekursif 

AJgoritma rekursif adalah algoritma yang memanggil dirinya sendiri. Oleh 
karena itu, algoritma rekursif harus dinyatakan dalam prosedur atau fungsi, 
karena hanya prosedur dan fungsi yang dapat dipanggil dalam sebuah 
program. Ingatlah kembali bahwa fungsi mengembalikan sebuah nilai 
sedangkan prosedur menghasilkan efek netto. 

Fungsi foktorial Pak di atas memperlihatkan skema fungsi rekursif yang 
paling dasar. Secara umum, skema dasar fungsi rekursif sebagai berikut: 

function f ( Input x i x_typ«) -♦ function_typ«; 

( acngombaHkan nllal P } 

DKXLAXA8X 

y • y_typ« 

ALOOXXINki 
If T(x) then 

return N(x) ( boolo J 

•lffi 
Rllx) 

return P(g(x>) ( rekuren* ) 

R 2 (x) 

endlf 

Aipoitbwa 18.4 Skema Fungsi Rekursif__ _ _ 


Peubah x adalah parameter pemanggilan prosedur (dapat berupa parameter 
by value atau parameter by reference), ri dan R2 masing-masing adalah 
prosedur (atau sekumpulan instruksi) yang dipanggil sebelum dan sesudah 
pemanggilan rekursif, g adalah fungsi yang mengubah nilai parameter x, dan 
T adalah fungsi untuk kasus basis, dan N adalah fungsi jika kasus basis 
tercapai. Perhatikanlah bahwa ri dan R2 tidak selalu harus ada. 

Skema prosedur rekursif ditulis dengan cara yang sama seperti pendefinisian 
fungsi rekursif, yaitu: 

Procedure C( Input x « x_typa) 

[ prooadur yang mamanipulual nllal x 
K.Awal i x tcrdafint&i nllalnya 

K.Akhlr: aakumpulan akal yang a*manlpulaal nilai x dllakukan 


DBKliARAfi X 

( kamua lokal, jlka ada J 

AIGORITMA: 

11 P(x) then 

M(x) ( baal3 ) 

else 
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SKx) 

C(P<x)) { rekurena } 

S2(x) 
end if 

Algorit ma 18.5 Ske ma Prosedur Rekursif _ _ 

Untuk memahami bagaimana algoritma rekursif dilaksanakan {execute), 
tinjau kembali fungsi Fak di atas. Gambar 18.3 dapat membantu menjelaskan 
bagaimana rekursifitas pada pemanggilan Fak ( 3 ). Setiap kali Fak dipanggil, 
sebuah "kotak" dibangun. "Kotak" berisi salinan {copy) fungsi Fak itu sendiri 
tetapi dengan nilai n yang telah berkurang satu. Angka yang terletak di sebelah 
kanan tiap kotak menyatakan nilai kembalian (return value) setiap kali fungsi 
rekursif selesai dilaksanakan (mencapai kasus basis). 

Dalam merancang algoritma rekursif. langkah pertama yang harus dilakukan 
adalah menyatakan persoalan secant rekursif, lalu menentukan kasus yang 
menyebabkan pemanggilan rekursif berhenti (basis) dan kasus untuk 
rekurens-nya. Contoh-contoh di bawah ini diharapkan memberi pemahaman 
cara merancang algoritma rekursif untuk berbagai persoalan. 


FAK( 3 ) 



Gambar 18.2 llustrasi eksekusi fungsi FAK 
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Contoh i8.i. Pcrpangkalan a n (a bilangan bulat dan n > o) 

(i) Nyatakan a" dalam ungkapan rckursif 

a n = ax ax ax ...xa ( sebanyak n kali) 

= a x a n •' (rekurens) 

(ii) Tentukan kasus eksplisit yang tidak memerlukan pemanggilan rekursif 
lagi (basis) 

a n = l jika n = o 

Jadi, secant matematis, fungsi rckursif untuk pcrpangkalan adalali: 

a" = 

(i) I .jika n so {basis} 

(ii) a x a"-‘ , jika n > o { rekurens} 

Algoritmanya: 

fu nct ion Pangkat(Input a. n : Integer) -♦ integer 
I mengembalikan nllai a , n > 0 
baaia ; *»“ - 1 Jika n • 0 
rekurono t a° • a * a"* ‘ 

) 

DRKLARASI 


ALOORXTMA: 

If n • 0 then 
roturn 1 
elee ~ 

return o • Pangkatla. n - 1) 
end i f 

Algorltma 18.6 Fungsi Monghitung a' 


Contoh (8.2. Fungsi Clwbyscv 

Hn t x)m 

(i) I . jikn n = o { bonis } 

X . ilka n * l { bams } 

(ii) 2x7Xn - l. x) - 7 \n - 2, x) . jlko n > 1 {rokurons } 

function T < Hi [Hit n Int.-j-:. inj.-ut X . trail . : »• «1 
I T^ngombnl ikan rnl.Ji 
banie 1 Tfn.xf • 1 Jika n - 0 
Tln.x) • x jika n • 1 

rekurens r Tln.x) • a*x»T/n-l,x) - Tfn-J.x) untuk n » J 

) 

DEKLARASI 


ALGORITKAi 

if n - 0 then 

retur n 1 { baaia J 
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return x / basis ) 

else 

return 2 • x • T(n - X. x) - T(n - 2. x) / rekurens ) 
endlf 
endif 

Algoritma IB .7 Fungsi Citebysev 


Contoh 18.3. Menghitung ci x b untuk a dan b bilangan bulat positif 

uxh =a + a + ... + a (sebanyak b kali) 

* a + (a x(6 - 1)) 

Dengan dcmikian. 

(ix6« 

(i) a ,jikab»i {basis} 

(ii) a + (a x (6 - i)) , jika b > i { rekurens} 

t un ction Kell ( Input a, b : Integer)-♦ integer 
( mongemb.il lken nll.%1 «i*b , s den b > 0 
basis : a • b • a Jika b - 1 

rekurens t a • b * a • a • lb-ll jika b > J 

DBKLARASI 


ALGORITMA: 

l_f b • 1 then 
return a 
eleo 

re turn a ♦ Kalita, b - 1); 
endlf 

Algoritma 18.8 Fungal Monghitung a * b 


( basis I 
( rekurens ) 


Con toll 18.4. Mcmbalikkan urutan angka-angka di dalam bilangan bulat n. 
Misalya 4567 dibalikkan menjadi 7654- Gagasan algoritma untuk pcrsoalan 
ini adalab (sccara iteratif): 

• Harus dicctak nilai satuan (7) tcrlcbih dahulu. Ini diperoleh dengan card 
membagi n dengan to dan mengambfl sisanva. Jadi. 4567 10 ■ 456 

dan 4567 mod 10 ■ 7. 

Cetak 7. 


Bagi 456 dengan 10 dan cetak sisanva. .ladi, 456 djv 10 
mod 10 ■ 6. 

Cetak 6. 


45 dan 456 
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Bagi 45 dengan 10 dan cctak sisanya. Jadi, 45 djv 10 = 4 dan 45 mod 10 = 5. 
Cetak 5. 

Cctak 4 


Hasil cetakan: 7654 

Algoritma iteratif untuk porsoalan ini sebagai berikut: 

procedure BalikAngka( Inp ut n j I nteg er) 

/ amnbal Ikkan urutan bilangan tuj.it n 
K.Awal 1 ni lal n audah ter dotinim 
K.Akhir: urutan angka bilangan n dicecak cerballk 

I 

DEKLARASX 

• 

ALGORITMA: 

while 1 >■ 10 do 
write In mod 10) 
n n dlv 10 
endwhlle 

TTTTo ) 

ni 

Aloorllma 18.9 Mombaiikkon Urutan Angka Bilangan Bulat (lleratrf) 


Dengan uraion yang sama seporti di alas, kita juga dapnt membuat vend 
algoritma rckursifnya, ynitu: 

BalikAngka (;i): 

(i) jika n < 10, cctak (n) { basis } 

(ii) jika n > 10 maka j rekurens > 

- cctak (n mod 10) 

- BalikAngkn(n diy10) 

Algoritma rckuraif untuk pcrsoalan ini sebagai berikut: 

proce dure UnilkAngkntinput n«I nteg er) 

( rnemtaJ ikkan urutan bilangan bulat n 
K.Awal 1 nJJaJ n audah lerdoflnlat 
K.Akhir: urutan angka bilangan n dlcetak terballk 

bamn: Jika n * 10 . cetakln) 
rekurena: Jika n > 10 maJca 

- cetakIn mod 101 

- BalikAngka In div 101 

) 

DEKLARASI 

ALGORITMA: 

If n « 10 then 
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write (n) { basis ) 

elnc / rekurens } 

write(n racd 10); 

BalikAngkaln div 10); 
end if 

Algorttma 18.10 Membahkkan Urulan Angka Bilangan Bulal ( Rekurs»f) 


Contoh 18.5. Membalikkan urulan huruf di dalam scbuah kata. Misalnya, 
kata ’BAKU* dibalikkan mcnjadi 'URAB*. Algoritma ini mirip dengan Contoh 
18.4. 


BalikkanKata(s): 

(i) jika panjang(s) - 1, celak(s) {basis > 

(ii) jika panjang(s) >1, { rckurens} 

- ambil huruf pertama s 
• BalikkanKata(sisa s) 

- sambungkan dengan huruf yang diambil tadi 


procedure BalikkanKata(input ■ 1 at ri ng) 

( membalikkan k.ir.i 0 
K.Awal 1 string o tetdsfiniai nilainy .» 
K.Akhir r /firing a dicetak terbalik 


basist Jika panjangfsl •!. cetaktsl 
r akurenoi Jika panjang(s) » 1 

- ambil buruf pent a nvi 0 

- BjJ ikKatalsisa a) 

- sambungkan dengan huruf yang dtambil tadi 


DKKLAFASI 

t 1 chnr 


AI»OOR ITMA: 

if longthle) - i then 
' write Id) 

•la? 

( rokurens J 
t »- Huruf Pertama (o) 

a SiiiA (a) 


( basis I 


I anbil satu huruf pertama dari a, 
simp.tn huruf itu di t J 
I 0inpan sioa huruf lainnya di • ) 


D/il ikkanKata In) ( balikkan Siam katanya ) 
write It) f sambungkan dengan t J 

«nd 


Algor limn 18.11 Mombaltkkan Urutnn Huruf di Datum Kata 


Gambar 18.3 dapat membantu menjelaskan bagaiinana rckursifitus pada 
pemanggilan Bal ikkanKata l • baru* 1. 
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BalikkanKataCBARlT 


if length( BARU) = 1 then 
•••• 
filSfi 
t4-’B’ 

Sf-'ARIT 

BalikkanKata (‘ARIT) 


if length('ARir) = 1 then 

else 

14- 'A' 
s 4- *RIT 

BalikkanKata('RU') 


if length(’RlT) - 1 then 


ti-’R* 

84-’ir 

BalikkanKataOT) 



minno 

endif 


wnlclA) 


Gam bar 18.3 llustrasi eksekusJ 



http://www.pakteguh.com 









Contoli 18.6. Mencari pembagi bersama terbesar (greatest common 
divisor - gcd), x dan y(x> y). 

Conloh: gcd( 4. o) = 4 

gcd(36, 24) = 12 
gcd(20, 10) = 10. 

Algoritma Kudidean untuk mcncmukan gcd(x, y): 

(a) apakah y = o? Jika y = o, algoritma selesai; x adalah jawabannya, tetapi 
jika tidak, lanjutkan kc langkah (b) 

(b) bagilah x dengan y, misalkan r adalah sisanya 

(a) ganti nilai x dengan y, nilai y dengan nilai r, ulangi langkah (a) 

Versi iteratif algoritma Euclidean adalah: 

function gcd(input x. y : integer) -* integer 
( nongcmk.il 1 kan gcdfx.yI. der.gxn ayar.iT * ? y J 

DKKLARASI 

r t integer 

ALGORITMA; 

while y / 0 do 
r ♦- x mod y 
x •- y 
y •- r 
ondwhllo 
(y - 0 ) 

return x 

Algoritma 18.12 Menghilung pombogi bersama lorbetor (llorolrf) 


Algoritma Euclidean lebih alami apabila dinyatakan sccara rekursif, karenn 
hanya memlnituhkan satu kali evaluasi x mod y. 

gcd (.v, y) - 

(i) x .jiknyo {basis} 

(ii) gcd(y, x mod y) , jika y > O { rekurens } 

Scbagni contoli. gcd( 24 .9) * gcd( 9 , 6 ) * gcd( 6 ,3) ■ gcd(3. o) - 3 

Versi rekursif algoritma Kudidean adalah: 

function gcd(»nput x. y 1 integor) -• integer 
{ mongcmbJtUkxn gcdlx.yl 
baoltt gedix. y) • .1 Jika y - 0 
^ r okuxenoi gedtx, y) • gcdly. x mod y) jlk» y * 0 

OBKLARASX 

AI.OORITHA: 

if y • 0 then 
retura x 


Bab 18 - Algonlmn Rekursif 


http://www.pakteguh.com 



else 

return gcd(y, x trod yj (rekurens} 
end If 

Algorttma 18.13 Menghitung pembagi bersama terbesar (Rekursif) 


Con toll 18.7. Mcngevaluasi polinom dengan earn perkalian bcisarang 
(metode Horner ): 

P„(X) = a„ + OvX + a^X 3 + ... + OnX* 

- a„ + *(a, + x(a 2 + x(a 3 +... + *(a„., + a^r))...))) 

p(a, x, i, n)« 

(i) a„ ,jikai»n {basis} 

(ii) a, + x * p(a, x, i+l, n) , jika 1V n { rekurens} 

f unction p( Input a : koef_poli, input x, i. n : Integer) -* real 
/ mngembalikan nilal ptxf • a ; * a,x • ape*’ ♦ ... * apt" 
bauiu: Jika i • n. maka pla.x.i.nj • a In] 

rekurontirjika 1 <* n, maka pfa.x,i,nj - a, * x*p/a,x, i«J,11) 

} 

DKKLARASI 


MGORITMA: 

i_f 1 • n then 

return o(n| f baala ) 

el no 

return a(i) • x • p(a, x, i • 1, n) f tokuronn ) 
end If 

Algorllmo 18.14 Mongovokjaei nilai polinom 


Contoh pcnmnggilan fungsi p (mlsalkan untuk polinom derajat n = 100 ): 
read(x) 

wrlto(p(a,x, 0 . 100 )) 

I’erhatikanlah bahwn pada fungsi p di alas, lank koefisicn polinom a, nilai x, 
dan n tidak pemah berubah selama pemanggilan. Kita dapat menghemot 
jumlah parameter dengan mcnghilangkan parameter yang tidak berubah 
tersebut, menjadi: 

P( 0 - 

(i) a* ,jikai«n {basis} 

(ii) tf*p(i+l) ,jika 1 *n {rekurens} 

yang dalam bal ini, larik u dan n bersifat sebagai pcuhah (variable) global. 

Catalan: 

semakin banyak jumlah parameter pada fimgsi/prosedur rckursif, 
semakin besar memori yang dibutuhkan pada setiap kali pcmanggilannya. 
Hal ini akan dijclaskan pada bagian lain. 
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function p(input i : integer ) —• real 

/ mengtrmbalikan nilai p(x) - a$ * a,x * a,xr * ... * ape* 
basin: jlka 1 • n. maka pla.x.i.n) - a In] 

rekurone: j ika i «> n, saka pla.x.i.n) - a, * x»p (a.x. i*l.n) 

) 

DSKLARASX 

• 

ALGORITMAt 

If 1 - n then 

return a In] { basis j 

el ae 

return a(l) • x • pi 1 - 1 ) ,* / rekurens ) 

end If 

Algorltma 18.15 Monci- nilai pofcnom dengan jumlah paramete r letoih aedildt 


Contoh pcmanggilan fungsi p (untuk polinom dcrajat n ■ too elemen): 

readlx) 
wrltelp(O)) 


Ainu, kalau kita tetap ingin mempertahankan a, x, dan n sebagai parameter 
fungsi, kita dapat membuat fungsi rekursif dua-tingkal sebagai berikut: 

function pi Input i i integer) -♦ real 

( mengrmba 11 knn nilai pfxi • a. . s,x . a,X i • • apf 

basis: jlka 1 * n, make pla.x.i.n) - aln] 

rtfkurenn: J ika I *» n. m aka pla.x.i.n) - a, • x»p la, x. i • 1 ,n) 

i 

D It KLARAS I 


ALGORITHAi 

if 1 • n then 

return a Ini ( baaio } 

olne 

return a(ll • x^pli^l) f rekurena ) 
end if 


function Poll(input a:koef_poli. Inpu t x. n : Integer) -• real 
I tungui tinglest pertanu ) 

DBKLARASI 

y « roal 

function p( input it integer) -»real 

( mcngembal Ikan nilai ptx) - a, * a,x * ap? * ... * ape 
ALGORITMA: 

y ♦- p(0) 
write (y) 

Algorltma 18.16 Fungsi rokursrf dua tm gkat _ 
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Contoh pemanggilan fungsi (misalkan untuk polinom deraj at n = 100 clemen): 
read (x) 

write (Poll(a. x. 0, 100)) 


Contoh 18.8. Mencari indeks larik yang elemennya = a. Pencarian 
dilakukan dengan metode pencarian beruntun (sequential search). 

Can (A, n, x,j) = 

(i) j , jika A[j) = a {x ditemukan } { basis } 

-l Jika j> n {*tidakditemukan} {basis} 

(ii) Cari (A, n, x, j + l) Jika j £ n {rekurens } 

func tion Carl( In put A : Lariklnt, Input n, x, j : intogor)-«integQr 
f j beriei indeka elemen larik yang dtcarl / atau j -0 Jika x tidak 
ditemukan 

b.iaia: carl • J, Jika AljJ*x 

cari • 0, Jika J > n 

rckurenn: Jika J<*n. maka cari • carl lA.n,x,J*1) 

) 

DEKLARAS1 

ALGORITMA: 

if Atj) - X then 

retu rn j { baala ) 

alno 

if j * n then 

return -1 I banIn ) 

elae 

return carl(A, n, x, j*l) ( reAurene ) 
e nd If 

endif 

Algorltma 18.17 Pencanan d) dalam lank Integer 


Contoh pemanggilan fungsi cari (misalkan untuk larik /\ yang berukuran 
too elemen): 

rend(x) 

write (Carl (A. 100, x. D) 

Sepcrti pada Contoh 18.7, parameter A, n, dan a* tidak berubah selama 
pemanggilan. Oleh karena itu. kita dapat membuat fungsi rekursifnya 
menjndi lebih mangkus sebngai berikut: 

Cari (J) * 

(I) j , jika /%[yi » a 

-1 , jika j > n 

(ii) CariO'+i) .jka jin 



{ a ditemukan} ( basis } 

{ a tidak ditemukan } { basis } 

< rekurens} 
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fu nctio n cari(j : i nteger ) —* integer 

T3 berisi indeks elemen larik yang dicari; j -0 jika x tidak 
ditemukan. 

basis: cari - j. jika A[jJ - x 
carl - - 1 . jika j > n 

rekurensi jika j <• n, maka cari - cari (A, n. x, j»l) 

DEKLARASI 


ALGORITHA: 

1f A[j| - x then 

return j ( basis } 

,, n then 

return 0 { basis ) 

else 

return Cari(j*l) ( rekurens ) 
endH 
ondlf 

Algorltma 18.18 Pencorlon di dalam lor* Integer (jumloh pnromotor loblh sodlkit) 


Cobalnh Anda ubah fungsi cari di alas menjadi fungsi rekursif dua-tingkat. 


Contoh 18.9. Mcncari nilai maksiinum dalam larik integer A[i..n] 
Maks(/l, n) ■ 

(0 A[\] Jika n -1 { basis} 

/lfnl , jika A(nJ > Maks(A, ft - 1)] { basis > 

(ii) Maks(A, n - 1) Jika Maks(A, n - 1) > A(nj { rekurens } 

function Moke(input A 1 Larik, input n : integer) -• integer 

/ mengvmbalikan nilai makoimum larik All..nJ 

basis: jika n - 1, maka nakslA.n) - A/1J 
rekurens: jika n > J maka 

jika A/n] > maks/A.n-U maka makaA(n) -A In] 
kalau tidak. oaks fA.nl-maka(A. n-1/ 


DEKLARAS1 


ALGORITMA: 

if n ■ 1 then 

retur n A(l] {basis/ 

else 

if Afnl > Maks(A.n-l) then 

return A(n] {basis} 

else 

r eturn Mak8(A,n-l) {rekurens) 
end if 
endif 

Algorltma 18.19 Mencan nilai maksimum di dalam larik 
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Di sini, parameter a tidak pemah berubah selama pemanggilan. Modifikasilah 
fungsi make tadi dengan menghilangan parameter yang tidak berubah tersebuL 

Contoh 18.10. Menara Hanoi (Tower of Hanoi). Contoh ini merupakan 
legenda klasik pendeta Budha. Dikisahkan bahwa di kota Hanoi, Vietnam, 
terdapat tiga buah tiang tegak setinggi 5 meter dan 64 buah piringan {disk) 
dari berbagai ukuran (Gambar 184). Tiap piringan mempunyai lubang di 
tengahnya yang memungkinkannya untuk dimasukkan ke dalam tiang. Pada 
mulanya piringan tersebut tersusun pada sebuah tiang sedemikian rupa 
sehingga piringan yang di bawah mempunyai ukuran lebih besar daripada 
ukuran piringan di atasnya. Pendeta Budha memberi pertanyaan kepada 
muridnya: bagaimana memindahkan seluruh piringan tersebut ke sebuah 
tiang yang lain; setiap kali hanya satu piringan yang boleh dipindahkan, 
tetapi tidak boleh ada piringan besar di atas piringan kecil. Tiang yang satu 
lagi dapat dipakai sebagai tempat peralihan dengan tetap memegang aturan 
yang telah disebutkan. Menurut legenda pendeta Budha, bila pemindahan 
seluruh piringan itu berhasil dilakukan, maka dunia akan kiamat! 



B (tujuan) A (sul) C (perantara) 


Gambar 10.4 Menara Hanoi 


Berdasarkan aturan yang ditetapkan oleh pendeta Budha, maka kita harus 
memindahkan piringan paling bawah teriebih dahulu ke tiang B sebagai alas bagi 
piringan yang lain. Untuk mencapai maksud demildan, berpikirlah secara 
rekursif: andaikan kita mengangkat 63 piringan teratas dari A ke C, lalu 

angkat 63 piringan dari A keC 
pindahkan 1 piringan terbawah dari AkeB 
angkat 63 piringan dari CkeB 

Selanjutnya dengan tetap berpikir rekursif-pekerjaan mengangkat 63 
piringan dari sebuah tiang ke tiang lain dapat dibayangkan sebagai 
mengangkat 62 piringan antara kedua bang tersebut, lalu memindahkan 
piringan terbawah dari sebuah tiang ke tiang lain, begitu setemsnya. 
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Prosedur rekursif untuk memindahkan n buah piringan dari A ke 11 adalah: 
Hanoi(n,A. C) 

(a) basis: 

jika n = i, pindahkan piringan dari A ke B 

(b) rckurens: 

jika n > i, 

- Hanoi(ft - l, A. C, B) 

- pindahkan i piringan dari A ke B 

- Manoi(n - 1, C, B, A) 


rocedure Hanoi( Inpu t n, A, B, C i Integer) 
mtmindahkan n buah piringan dari A ke 0 

K.Awal : ti adalah Jumlah piringan. haiganya eurfeJi terdetinloi 
Pada mulanya aeluruh piringan berada di timng A. 
piringan terbeaar berada paling Itawah. 

K.Akhiri Soluruh piringan Cel ah plndah ke tiang V, piringan 

paling beaar berada paling bawah. Pronen peipindahan 
pi ring dicecak ke layar 

bamiai 

Jika n • 1, pindahkan piringan dari A ke B 

rakurenmi 

Jika n > Z. 

- angkat n-I buah piringan dari A ke C 

- pindahkan I piringan dari A ke B 

• angkat n-1 buah piringan dari C ke o 


OBKLAKASI 

ALOORITKA: 

if n i l then 

write (* pindahkan piringan dari *,A.* ko D) 
el bo 

Hanoi(N-l.A. C, Bl 

write('Pindahkan piringan dari ’.A.* ke B) 
Hanoi(N-X. C. B, A) 
ondif 

Algorltma 18.20 Monara Hanoi _ 


Contoh ilustrasi eksekusi prosedur Hanoi unluk N = 3 piringan 
diperlihatkan pada Gambar 18.5 
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if 3 = i then 


Hanoi (2, A, C, B) 


if 2 - 1 then 


Hanoi (i,A,B,C) 




if 1 * 1 then 

Pindahkan piringan dan A ke D 

dac ... 


Pindahkan piringan dari A ke C 
Hanoi (1 ,B,C,A) 


if l ■ 1 then 

Pindahkan piringan dari B ke C 


Pindahkan piringan dari A ke B 
Hanoi (2 ,C,B,A) 


if 2 ■ 1 then 


Hanoi (1, C,A, B) 
if l ■ l then 

Pindahkan piringan dari CVeA 

die ... 

Pindahkan piringan dari Cke B 

Hanoi ( 1 M. B,C ) 
if 1 - 1 then 

Pindahkan piringan dari A ke B 
else ... 
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TEOREMA i8.i. Untuk n = 64, procedure Hanoi dipanggil sebanyak 2^-1 kali. 


Bukti: 

Berdasarkan prosedur Hanoi di atas, perhatikanlah bahwa untuk n > 1 akan ada 
2 buah pemanggilan prosedur Hanoi. Pada pemangilan Hanoi(64,A,B,c), 
nilai n semula = 64. Setiap kali terjadi pemanggilan rekursif, nilai n 
berkurang 1. Pemanggilan rekursif akan berakhir bila n = 1. 

Pemanggilan rekursif ini dapat dinyatakan sebagai pohon pemanggilan 
(Gambar 18.6). Setiap simpul (digambarkan dengan lingkaran) menyatakan 
pemanggilan prosedur Hanoi. Setiap simpul akan memanggil dua kali 
prosedur Hanoi. 

Aras (level) 



63 • •••••••• 

Hanoi(i,,) Hanoi(i,,)... Hanoi(i,,) Hanoi(i,,) 


Jumlah seluruh simpul di pohon adalah 
Sol + 2 + 4 + 8 + « + 2*3 

yang merupakan deret geometri dengan jumlahnya adalah 


Bab IS - AJgorttma Rekursif 


http://www.pakteguh.com 






Jadi, untuk n = 64, prosedur Hanoi dipanggil scbanvak 2^ - 1 kali. Setinp 
kali pemanggilan procedure Hanoi, hanya salu buah piringan yang 
dipindahkan. Ini bcrarti lerdapat 2‘** - 1 buah pemindahan piringan. Jika 
orang dapat memindahkan scluruh priringan itu dan sctiap kali pemindahan 
piringan mcmbutulikan waktu satu detik, juga dcngan nndaian ia tidak 
pemah melakukan kcsalahan. maka w«ktu yang dibutuhkan untuk 
memindahkan seluruh piringan adalob 2** - 1 detik atau setarn dengan 
600.000.000.000 tahun! Karena itu, legenda yang menyatnkan bahwa 
dunia akan kiainnt biln orang berhasil memindahkan 64 piringan di menara 
Hanoi ada juga benarnya, karena 600.000 000.000 tahun adalah waktu 
yangsangat lama, dunia semakin tun, dan akhimya hancur. Wallahualam\. 

Prosedur Hanoi di atas dapat dibuat menjadi lebih elegan dcngan menuliskan 
pemyataan "pindahkan satu piring" cukup seko/i saja di dalam teks algoritmanya: 

Hanoi(n, A, B, C ): 

• (i) Jika n ■ o, maka (tidak melakukan apn-npa) { basis } 

(ii) Jika /1 > 0. { rckurens > 

- HanoRn - i,/\,C, B) 

- pindahkan 1 piringan dari sumher k oA ke B 

* Hinoi(/t - 1. C, B.A) 


proetdur* Hanoi(input n, A, B. C 1 int e ger ) 

I namindahknn n buah piringan d.iri A ke B 
K.Awal : n adalah jimlah piringan, Iwryanya audah tardotinlol 
Pada mul.inya aeluruh piringan berada di Hang A, 
piringan torbeaar herada paling bavah. 

K Akhir: Scluruh piringan tolnli pindah ke clang B. piringan 

paling bonai berada paling bavah. Proooo perpindahan 
piring dlcetak ke layar 

ban la: 

Jika n • l, 

fCXdak fiwl.1Atuk.1n apj-ap.i) 

rekurenai 

Jika n * l, 

angkat n J liuaft piringan dari A ke C 

- pindahkan 1 piringan dari A ka B 

- angkat n - I buah piringan dari C ka B 

DEK1ARASI 

ALGORITMA: 

if n > 0 then 

Hanoitn-i, a, c, bi 

vrriCe (* Pindahkan piringan dari ’.A. • ke ' , B| 

Hanoi(n-1, c, B, A) 

Endif 

Algoritma 18.21 Monnra Hanoi (worsi 2) 


M2 
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18.4 Rekursif dengan /vs/Berkait 

List berkait ( linked list ) adalah struktur data yang penting dalam 
pcmrograman. List berkait adalah sckumpulan clemen (boleh kosong) yang 
setiap elemennya terdiri alas dua bagian: bagian data {info) dan bagian 
alamat (next). Bagian data berisi nilai yang akan dimanipulasi, sedangkan 
bagian alamat berisi alamat eleraen list berikutnya. Sebuah list berkait 
dikenali dari alamat elemen pertamanya. 

Gambar 18.7(a) adalah gambaran lojik elemen list. Anak panah menyatakan 
elemen berikutnya yang diacu oleh alamat yang disimpan di dalam bagian 
next. Gambar 18.8(b) adalah sebuah list berkait yang terdiri atas 3 buab 
elemen, masing-masing berisi info 'Amir', 'Badu', dan 'Sand'. Elemen 
terakhir tidak mengacu ke elemen manapun, sehingga bagian next diisi 
dengan konstanta Nil (Nil adalah satu-satunya konstanta yang terdefinisi 
jika alamat tidak mengacu ke elemen manapun). Nil digambarkan dengan 
kotak yang diberi garis diagonal. Gambar 18.8(c) adalah penggambran list 
kosong. List kosong adalah list yang tidak mempunyai sebuah elemen pun. 
Pembahasan lebih jelas mengenai list berkait dapat anda baca di dalam 
buku-buku tentang struktur data. Buku ini hanya akan membahas aspek 
rekursif pada list berkait. 



Info n««l 




wu 1 -H Stau f\ 


s 

(C) 

Gambar 1 S .7 (a) Gambaran lojik demon Rat berkait; (b) Sebuab list berkait dengan 3 buah 
demen; (e^Ust kosong 


Notasi algoritmik untuk pendeklarasian list terstruktur sederhana sebagai 
berikut: 
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type Liot • TLifltElmc 
type LintKlmt : record « 

Info i inCo^typi-, 
Next » Lint~ 

> 

Algoritma 18.22 Pendofimsian Usl tec ara rokureil 


Pcrhatikanlah bahwa pendefinisan tipe list di atas sudah bcrsifat rekursif. 
Hal ini ditunjukkan oleh tipe dan field Next, yaitu List. Dcflnisi rekursif 
dari list bcrkait adalah: 

List dengan tipe S adalah salah satu dari: 

(i) kosong (Nil) {basis} 

(ii) pengkaitan S dengan barisan elemen hertipe S { rekurcns > 

Dengan demikian, pcmrosesan list dapat juga dikerjakan sucara rekursif 
(selain secaru bcruntun/sekucnsial. 


Contoh i8.ii. Mengunjungi (mencetak) Mluruh elemen Hit berkait. 

Cara bcrpikir rekursifnya adalah sebagai berikut: jika list kosong. maka tidak 
ada elemen list yang dikunjungi; sebaliknya, jika list tidak kosong, maka 
cetak elemen pertama list, kemudian dengan tetap berpikir secara rekursif- 
cetak list yang alamatnya ditunjuk oleh elemen pertama tadi. 

CetakUst(/.): 

(i) jika I. = MiJ. tidak melakukan apa-apa {basis } 

(ii) jika L * Nil { rckurens } 

- write dnfo(L)) 

- CetakList(Nexta)) 

proce dure CotakLiat(input L i Liut) 
l mencetak aetiap into elemen Hat yang dikunjungi 
K.Awal s L be rial alama c elemen pertama Hat 
K.Akhir: ootlap into elemen Hat dicetak ke layer 
ban la t 

Jika L • Nil, tidak melakukan apa-apa 
rekurena: 

Jika l r Nil 

- write(Info(LJ l 

- Cetaktioc(Next(LI 1 / 

DEKLARASI 


ALGORITHA: 

if L ■ Nil then 

l tidak melakukan apa-.ipa -> barhenti } 
else 
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write (Info(L)) 

CetakLiot(Next(LJ) 
endlg 

Algoritma 18.23 Moncotak seluruh etomen List 


Misalkan Info dan Next adalah dua buah fungsi yang memberikan nilai field 
Info dan field Next dari elemcn list yang alanint elemen pertamanya adalah L: 

function Into( input L i List) -♦ Into^iypc 
( mangemballkan nilai tf.lnto } 

UKKLARAS I 
• 

ALGORITMA: 

return Lt.Jnfo 


function Next(input L i Llot)>» Liol 
l mengemb.il ikan nilai L^.Wexe ) 

DRKLARASX 

ALGORITMA; 

return Lt.Noxt 

Algoritma 18.24 Fungal Into dan No.f 


Prosodur cetakLiat di alas dapal disederhanaknn sohiugga menjadi lebih 
clegan knrena pada kasus basis tidak aksi yang dilakukan, yaitu: 

f roceduto CetakLiot (Input L ; Mat) 

iMnceCak notlap into aioman liat yang dikunjungt 
K.Awal: L barlai alanat eleman paitama liat 
K.Akhlri net lap info alanan lint dicetak ko layar 

baa la i Jlka L • Nil, Cldak melakukan apa-apa 
rakuranai )lka L a Nil 

- cotak(IntolLIt 
- CatakLiat (Next (L> f 

I 

DKKLARASI 


ALGORITMA: 

if L * Nil then 
write !Info(LJ J 
CetakLlot(Next<L)J 
endif 


Algoritma 18.25 Moncotak seluruh ektmon Usl (versi 2) 
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Contoh i8.!2. Menghitung panjang list. Yang dimaksud dengan panjang 
list adalah banyak elemen yang lerdapal pada list L. 

Panjang(L) = 

(i) o ,jika/. = NU {basis} 

(ii) l + Panjang(Next(L)) , jika 1 . * Nil { rekurcns } 


function Panjang<input L : List) -> integer 
/ mongembalikan p.tnjang iist S 

twain: Jika L • Nil, naka PanJangfLJ - 0 Jika L - Nil 
rekurena: Jika L * Nil, traka Panjang (L) - J . Panjang (Next (Lf) 


DKKLARASI 

ALGORITMA: 

if_L - Nil then 
I.*111111 o 
else 

roturn 1 » Panjang(Next(L)) 
ondlf 

Algorllma 18.20 Monghitung panjang Ust 


( ban la ) 
l rekurena } 


Contoh 18.13. Menghapus semua clcmcn list. 

Hapusl.ist(/.): 

(i) jika /. « Nil. tidak melakukan apa-apa { basis} 

(ii) jika /. / Nil { rokmvns} 

- HapuaUsKNcxKD) 

• dealokasi(/.) 

Prosedur ini akan menghapus elemen terakhir lebih dabulii, lain elemen kedun 
dari akhir, elemen ketiga dari akhir, dan sotenisnya. sampai elemen pertamn. 

procoduro HnpuoLiot(input/output L 1 List); 
rmenghapue atnr.ua elemen liet 
K.Await L beriai alamat elemen pertamn liet 
K.Akhirt aetlap into eleren Use dihapum dan tremorinya 
dikembalikan ke Viacom; L • Nil 

bailie : Jika L - Nil, tidak melakukan apa-apa 
rokurone: Jika L * Nil 

- HapueHat (Next (L) I 

- dealokaoi(L) 

} 

DEKLARASI 


ALGORITKA: 

if L a Nil then 
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HapuaLint(Next(L)) 

dealokaoi(L) ( bebaakan mcnori yang dipakai L } 
endif 

Algoritma 18.27 Menghapus semua eleme n LM _ 


Contoh 18.14. Mcncari elemen tcrtcnlu di dalam list. 

Cari(L, x, ketemu): 

(i) jika L = Nil, maka ketemu *- false { basis } 

jika Info(/.) * at, maka ketemu *- true { basis > 

(ii) jika lnfo(L) * x, maka Cari(Next(L), x, ketemu) { rekurens } 

proc edure Carl(input L: Liot. input x : integer , output ketemu : 
bo olean ) 

7 mencari . 1 p. 1 k. 1 h x terdapat di dalan list L 

K.Awal: L bcrioi alamac elemen pertam.1 Hat, x adalaft elemen 
yang dicarl, harganya oudah terdellniel, 

K.Akhiri ketemu bemilal true Jika x ada, false Jika oobaliknya 

basis; 

Jika L - nil. maka ketenu*-falae 
Jika InlotLl - x. maka ketemut-tme 
rekureno: 

Jika InlotLl * x. maka CarltNext (L) ,x. ketemu) 

) 

DBKLARA 8 X 


ALGOR X TMA1 

If L > llil then 

ketemu *- false 

olee 

If Info(L) • x then 
ketemu ♦- true 

ole e 

Cerl(Next(L).x, kotomul 
•Jidlf 
endif 

Algoritma 18.28 Poncanan di dalam bit 


IVrsoalan penenrian ini lebih tepnt dinyatakan sebagai fungsi daripada 
prosedur. Dcngan fungsi, kita dapat menghemat jumlah parameter dengan 
menghilangkan parameter ketemu: 

function Carl(input L 1 Liot, Input x 1 integor) -♦ boolean 
( true jika x terdapat di dalam Hat S. ialne Jika tldak~]' 

basis: 

Jika L • nil, maka return false 
Jika Info(31 - x, maka return true 
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rekurena: 

Jika InfolS} * x. malcj return C*ri th’ext (SI .x.keteanil 

I 

DEKLARASI 


ALGORITMA: 

If L - Nil then 
return false 
el— 

If InfolL)«x then 
return true 
el— 

return Carl{Next(L),x) 
cndlf 
end i f 

Algorltma 18.29 Poncarian d< dalom Us( (sebagni fungs.) 


Modifikasilah fungsi Ceri di alas menjadi fungsi rckursif dua tingkat 
sehingga parameter x dnpat dibuang dari ftingsi can. 


Contoh 1H.15. Misalkan kita ingin membual salinan (copy) list l.i sehingga 
dipcrolch list yang tepat sama dengan list U. 

Salinl.isK/./, U): 

(i) jika l.i ■ Mil. maka /. 24 -Nil { basis } 

(ii) jika l.t * Nil maka { rekurens } 

- alokasimemori(/.2); Info(/.2) 4 - lnfo(/.i); Ncxt(/.2) «- Nil 

- Salinl.ist(Next(/.f), Next</.*)) 

f tocedure SallnLiet(Input LI t Llot, o utput L2 : Llet) 
mmnyalln llet LI km L2 

K.Aw.iJ 1 Jiet LI eudah terdefIntel elmnennya. LI mungkin koaong 
K.Akhlr: elemon llet L2 earns dengan demon llet LI 

beelei 

Jika LI ‘Nil , maka L2t-Nll 
rokuretwi 

Jika LI * Nil maka 

- alokaelmemorl (L3f t InfolUI f-lnlotLl I; Next (L2I *-Nl J 
- Sal l nLl at (Next (Lit, Next IU)I 

I 

DEKLARASI 


ALGOR I IMAI 

if LI - Nil then 
L2 «- Mil 
eloe 
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AloKMora (L2) ( alokasi tnemon unz.uk elemen fcaru ) 

Info(L 2 ) Info(Ll) 

Next ( 1 . 2 ) «- Nil 
SalinLiat (Next (LI), t<exc(L 2 )) 
end if 

Algoritma 18.30 MonyaltnLvsf 


Proscdur rekursif unluk SalinLiot merupakan conloh yang bogus untuk 
memperlihatkan kenyataan bahwa prosedur rekursif seringkali lebih mudah 
dibuat daripada versi prosedur itcratifnva. Pada versi itemtif, bila kata 
menyisipkan elemen baru setelah elemen terakhir (penyisipan di akhir - 
Insert Last), maka kila harus menyimpan alamat elemen terakhir. Persoalan 
akan muncul pada wnktu penyisipan elemen untuk pertama kalinya, karena 
alamat elemen terakhir belum ada. Karena itu, penyisipan elemen pertama 
hams diproses secara khusus. 

Versi iteratif dari algoritma menyalin list sebagai berikut: 

rocoduro SalinLiat(i nput LI: Liat, output L2:Liat) 
menyalin llat LI ke U; verai iteratif 

K.Awal : liat LI audah terdeflniai elemennya. mungkln koaong 
K.Akhir: elemen liat L3 oara dengan elemen liat LI 

I 

DKKLARAS1 
P « Liat 

loot i Lint { monyimpan JiarwC elemen terakhir ) 

ALGORI Ttih t 

if LI - Nil than I kaoua koaong } 

L2 *- Mil 

alia 

AlokMem(L2) 

2nfo(L2) ♦- Info(Ll) 

Next (L2) 4- Mil 
last «• L2 
LI ♦- Next(LI) 
while Li a Nil do 
AlokMem(P) 

Info(P) *- InfoILl) 

Next (P) ♦- NU 

{ oiaipkan P vet el ah elemen teiakhir / 

Next(last) •- P 
laot «- P 
LI •- Next (LI) 
ondwhilo 

7~L1 - Nil ) 

Algoritma 18.31 Menyalm Lisf (Iteratrf) 


I alamat elemen terakhir L2 / 
I ll naju / 
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Con toll 18.16. Misalkan kita ingin menyisipkan sebuah elemcn yang 
nilanya = x ke dalam list L yang telah terunit menibesar. Penyisipan elemcn 
yang baru hams telap mempertahankan keterurutan list. .Vika x sudah ada di 
dalam L, x tidak perlu disisipkan lagi. 

Sisip(L, x): 

(i) jika L - Nil, maka SisipElemenBaruf/., x, NU) 
jika L * fcOL maka 

jika Info(/.) = x (artinya x sudah ada dalam /.), maka 
{tidak melakukan apa-apa} 
kalau tidak. 

jika x < Info(/.), maka 

SisipElemenBaru(L, x, I.) 

(ii) jika x > Info(/.), maka Sisip(Next(/.), a:) 


proc edure Sie 1 p11 nput / output L x Hot. input x x Integ er) 

/ mcnyiaipkAn x ke dalam Hat L yang Cerurut m embeear 
K.Awal : Hat L mungkln koaong/ x audah tcidcfinini harganya 
K.Akhir: x dialalpkan pada poaiai yang 0 eau. 1 l; liat L telap 
teruruc membeaar 

baaia: 

Jika L - Nil , maka SialpBlemenBaru(L.x.Nll) 
jika 1. x Nil, maka 

Jika Intoll.) - x (artlnya x audah ada dalam L). maka 
(tidak melakukan apa-apa) 
kalau tidak. 

Jika x < Info(LI. naka 
SlaipBlemenDa ru (L. x, LI 

rokurena 1 , 

Jika x » Info(L), maka SlelplNext <L), x» 

) 

DKKLARASI 


ALOORITMA. 

If L - Nil then 

SlnipBlemenftaru (L,x, Nil) 
oloe 

if x • Info(L) then 

write(x.' audah tordapat di dalam liotl ') 

aloe 

if x < Xnfo(L) then 

SloipE)cironBani(L.x.L) 

eloe 

Sinlp(Next(L), x) 
endif 
end 1 f 
endif 

Algorltma 18.32 Ponylsipan olomon di dalam bit (orurut 
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Prosedur SisipElemenBaru sebagai berikut: 


procedure sisipBl 

( autnyimipkMn x km 

DEKLARASZ 
I temp i Liet 


(input/ output LI:List. Input x: integer . 
t/ output L2:List» 


deism list LI 


ALGORITMA: 

AlokMem(temp) 

Info(temp)*- x 
Next (t«rcp)«- L2 
LI*-temp 

Algorltma 18.33 PenyHsipen slsmen beru 


18.5 Bagaimanakah Program Rekursif Bekerja? 

Memahami cara compiler menangani program rekursif dapat membantu 
kita untuk: 

1. meminimumkan jumlah parameter yang dilewatkan pada waktu 
pemanggilan, 

2. mengubah algoritma rekursif menjadi program iteratif dengan cara 
meniru (simulasi) mekanisme pelaksanaan program rekursif. 

Pertama-tama kita haras mengetahul mekanisme pemanggilan prosedur/ 
fungsi yang ditangani oleh compiler. Ketika sebuah prosedur/fungsi 
dipanggil, area data di memori dialokasikan untuk pemanggilan tersebut. 
Area data ini akan menyimpan: 

1. parameter yang dilewatkan waktu pemanggilan. 

2. semua peubah lokal di dalam prosedur/fungsi. 

3. alamat kembali (return address), yaitu alamat instraksi berikutnya di 
dalam program pemanggil setelah prosedur/fungsi selesai dilaksanakan. 

Setelah mengisi data area, kendali program dipindahkan ke prosedur/fungsi. 
Semua acuan terhadap nilai parameter dan peubah lokal adalah nilai yang 
terdapat di dalam data area. Bila prosedur/fungsi selesai dilaksanakan, 
alamat kembalinya diambil dari area data, kendali program bercabang ke 
alamat tersebut, dan alokasi memori untuk area data dibebaskan. 

Tiap compiler berbeda-beda dalam mengimplemantasikan area data, tetapi 
pada umumnya area data diimplementasikan dalam bentuk tumpukan 
(stack). Tumpukan (stack) adalah sekumpulan elemen di mana semua 
penambahan ( insert) elemen atau penghapusan ( delete) elemen hanya dapat 
dilakukan pada sebuah sisi yang disebut top. Gambar 18.8 adalah contoh 
sebuah tumpukan yang berisi 6 buah elemen. Elemen yang paling atas 
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disebut ditunjuk oleh puncak (top). Penainbahan elemen baru hanya dapat 
dilakukan di alas top, dan elemen yang dihapus hanyalah elemen pada posisi 
top. 



Gambnr 1 8.0 Sobuah tumpukan dtngan 6 buah okwnon 


Struktur data tumpukan mcmpunyai dua buah operasi primilif, vaitu push 
dan pop. 

ftish(s.x) : menambalikan (insert) elemen x sebagai elemen puncak (top) 
dan tumpukan s 

Pop(s) : mengambil (delete) elemen puncak (top) dari tumpukan s 

Dongan menggunakan tumpukan, suatu prosedur/fungsi tidak kehilangan 
kendali ketika menianggil prosedur/fungsi lainnya. Pada setiap kali 
pemanggilan, akan dialokasikan meinori (area data) untuk elemen baru 
tumpukan, kemudian elemen ini di-push ke datum tumpukan. Ketika 
prosedur/fungsi selesai dilaksanakan. elemen di puncak tumpukan di-pop, 
alamat kembalinya diambil, dan alokasi memori untuk elemen tersebut 
dibebaskan (Gambar 18.9 dan 18.10). Angka heksadesimal 101H, 102H, 
305H, dan seterusnya menyatakan alamat setiap instmksi di dalain memori. 



(i) (ii) (iii) (iv) 
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Tumpukan {stuck): 


102 H | x 


06 H 

y 

102II 

X 


408H 

z 

306H 

y 

102H 

X 


Gambar 18.10 Stoma pemanggiian prosedur Angka 101h. 102h ( dan solerusnyn, monyalakan 
nlamnl Inslruksi dl dalam memon (dalam hoksadesimal). Anak panah monyalakan kendoll 
program Seliap kali pemanggiian. olemen baru dr-push ke dalam tumpukan 


I’erhatikanlah bohwa tumpukan ini tklak "terllhat" ilari sisi pengguna 
program, sehingga discbut juga tumpukan implicit. Pcngaloknsinn tumpukan 
beacrta pengoperasinnya ditnngani olch compiler, bukau Ingi umsan 
pemrogram. 

Mekanisme yang soma juga l*rlnku pada waktu pemanggiian prosedur/ 
fungal rekursif. Setiap kali prosedur rekursif dipanggil, alamat kembali, 
semua peubah lokal, dan semua parameter loknl dimasukkan {push) ke 
dalam tumpukan. Acuau terhadap parameter lokal atau peubali lokal adalali 
nilai yang terdapat pada elemen di puncak tumpukan. 

Apabiln prosedur rekursif yang "tcrdnlnin" selesai dilaksanakan, elemen di 
puncak tumpukan diambil (jxtp ), alokasi memorinya dlbcbaskun, dan 
elemen puncak sekarang dipakai sebagai acuan parameter loknl dan peubali 
lokal untuk pdaksanaan prosedur rekundf sebelah luarnya. 


program utama prosedur B prosedur C prosedur D 


101H • li{x) 

102H 

1 

mMS 


407H IX*) 
408H .... 

_ 


502H ... 

I 

(iv) 

(in) 

(ii) 

(0 
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Tumpukan (stack): 


BSBH 




30611 

,V 

102 II 

.V 


G*mbar 18.10 Solelah prosodur selesal dilnksnnokan. demon d< puncak lumpukan di-pop. 
kondnli program kemudlnn berpmdah ko (nstruksl yang ditunjukkan oleh alamat kombali 
Atokasi momon elemen yang di-pop dibeboskan. ___ 


Contoh 18.17. Kiln ingin mencetak setiap digit bilangun bulat n. Misalnya 
jika n - 375. maka dicctuk 3. 7,5 { kelunran di layar: 375 } 

TulisBiosa(n): 

(i) jika ;i < 10, cctnk(n) (basis ) 

(ii) jika n * 10, {rckurona} 

- TulisBiasa(n div 10) 

• cetak(n mod *<») 

procedure TullaBlaea( Input n: integer) 

( mencetak digit bilangan bulat darl depan ko belakang 
K.Awal 1 n terdefinloi 
K.Akhiri digit-digit n dicotak ko layar 
baalo: Jika n < 10 , m.ika cetakfn) 
rckurona: jika n • 10 maka 

- TuHaDianain div 10 ) 

- cet ikfn div 10) 

) 

DRKLARASI 

ALGOR1TMA: 

if n < 10 then 
write(n) 
else 

TulioBlaoa(n dliv 10) , 
write (n mod JO) ; 
endif 


Algoritma 18.34 Penulisan integer secara natural 


098N 


099H 
10011 
101H 
102 H 
103H 
10411 
10511 
106 H 
107H 
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Contoh pemanggilan dari program utama: 

200H- TuliaBlaBa(375) 

201H, . writein; , ; 

Ilustrasi isi tumpukan pada pemanggilan prosedur TulisBiasa ditunjukkan 
pada Gambar 18.11. Pada mulanya, tumpukan dalam keadaan kosong 
(Gambar 18.11(a)). Ketika instruksi 

TulisBiasa(379) ...... .. _... * j, ... 

dilaksanakan, alamat kembalinya, yaitu 201H dan parameter n - 375 
dimasukkan ke dalam tumpukan (Gambar 18.11(b)). 

Karena 375 > 10, maka 

TullaBldSd(375 dlv 10) 

dilaksanakan. Alamat kembalinya, yaitu 106H dan parameter n = 37 
dimasukkan ke dalam tumpukan (Gambar 18.11(c)). Sekali lagi, karena 37 > 10, 
maka 

TulisBiasa(37 dly 10) 

dilaksanakan. Alamat kembalinya, yaitu 106H dan parameter n - 3 
dimasukkantaruh ke dalam tumpukan (Gambar 18.11(d)). Karena 3 < 10, 
maka 

wrltt (n) 1. i 

dilaksanakan; nilai n ■ 3dicetak ke layar. Keluar dari prosedurTulloBiana, 
elemen puncak diambil (pop) dari tumpukan (Gambar 18.11(e)). Nilai n yang 
diacu sekarang adalah nilai n di puncak tumpukan (yaitu n ■ 37). Instruksi 
pada alamat kembali, 

Wlif tn mod 10 ) 

dilaksanakan, dan digit 7 dicetak ke layar. Keluar dari prosedur TulioBiasa, 
elemen puncak diambil (pop) dari tumpukan (Gambar 18.11(f))* Nilai n yang 
diacu sekarang adalah nilai n di puncak tumpukan (yaitu n ■ 375). Instruksi 
pada alamat kembali, 

wglta tn mod 10 ) 

dilaksanakan, dan digit 5 dicetak ke layar. Keluar dari prosedur TulisBiasa, 
elemen puncak diambil (pop ) dari tumpukan (Gambar 18.11(g). Instruksi 
pada alamat kembali (yaitu 201HJ, 

vxlttin 

dilaksanakan. Program selesai dilaksanakan. 
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nlnmnt n n 

(u) keadaan aw.il 




(b)Tul isBiana(375) 



t £i_I 

BMrraaa 


us 

l_ ,T’"v2 


alamal n 



a 

I 

mm 

(■1 

I !■ 

' 

i 


iiliimal n 


(d)Tulla»l«»a(3) (r)writ«• (j v nod »0) (0 writs 015 mod 10) 
wilto(n) {7 ilirclnk } (Sriicrlnk) 

{ 3 <llc«tak ) 


alnnuit n 
(g) wi itolnj 

Gambar 18-11 Is* lumpukan pado pomanggiian TullaBiasa 


Contoh i8.i8. Fungsi faktorial rckursif untuk menghitung faktonal. 


299H 

300K 

30111 

3021! 

30311 

3041! 

30511 


function Fak( input n : integer : 

/ mengembalikan nllai n! 

DEKLARASI 

y j integer 

ALGORITMA: 

If n • 0 then 
rocurn l 
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306H else 

307H y «- Fak(n-l) 

308H return n • y 

end if 

AJ fl o rltma 18.35 Fun g si taktortal 


Contoh pemangilan: 7 00H write(Fak(4)) 

Dustrasi isi tumpukan pada pemanggilan fungsi Fak< 4 ) ditunjukkan pada 
Gambar 18.12. 

Sckarang Anda dapat memahami harga apa yang hanis dibayar olch 
penggunaan teknik pemrograman rekursif. Program rekursif membutuhkan 
alokasi memori yang lebih banyak daripada program iteratifnya. Tiap kali 
terjadi pemanggilan rekursif, memori untuk elemen tumpukan yang baru 
dialokasikan untuk menyimpan alamat kembali, peubah lokal, dan 
parameter prosedur/fungsi. Jika kedalaman rekursif sangat bcsar, ruang 
memori yang dibutuhkan juga semakin besar. Pada umunya compiler 
membatasi alokasi memori untuk tumpukan. Apabila pemanggilan rekursif 
terns berlangsung sementara tumpukan sudah penuh, compiler biasanya 
akan memberi pesan 

stack overflow 

Harga lainnya yang harus dibayar adalah waktu. Program rekursif dapat 
berjalan lebih lambat daripada program iteratifnya. Ini disebabkan oleh dua 
kemungkinan. Pertama, compiler mungkin bunik dalam mengimplementasikan 
pemanggilan rekursif. Kebanyakan, jika tidak semua, compiler PASCAL 
menangani rekursif cukup baik sehingga biayanya kecil, kira-kira 5% sampai 
10%. Pada kasus terburuk, program rekursif berjalan pada setengah dari 
kecepatan program iteratifnya. Kedua, program rekursif yang ditulis mungkin 
tidak mangkus, dan ini harus dihindari [ROH84]. 
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nlamat n y 

alam.il n y 

alamat n 

(a) kcndoan nwal 

(b)Pak<4) 

(c) Fak (3) 



alamat it y 

alamat n y 

alanwl 

(d) Fak(2) 

(e) Pakdt 

(0 Fak(0) 



nlamat n y alanwl n y nlamat n y 


nlamal n y alanwl n y nlamat n y 

<*)y ♦- rakioi (b) y *- r«k(i) (j)y ♦- rakiai 

fturn 1 • y return 2 • y *«turn 3 • y 
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18.6 Kapan Tidak Menggunakan Rekursif? 

Secara intuitif, algoritma rekursif sangat tepat diterapkan unluk persoalan 
yang sifat alaminya ( natural) memang rekursif, misalnya persoalan yang 
menggunakan struktur data rekursif seperti list dan pohon, aplikasi games, 
dan lain-lain. Persoalan seperti itu didefinisikan dalam hubungan rekursif, 
dan di sini teknik pemrograman rekursif menunjukkan kedayagunaannya. 

Terdapat dua alasan mengapa kita harus mengubah algoritma rekursif 
menjadi algoritma iteratif. Pertama, bahasa pemrograman yang akan 
digunakan tidak mendukung pemanggilan rekursif. Hal ini terjadi pada 
bahasa FORTRAN yang tidak memungkinkan rekursifitas, sehingga 
menghalangi penyelesaian rekursif meskipun cara ini cocok untuk persoalan 
tertentu. Kedua, dapat teijadi bentuk rekursif tidak mangkus, memiliki 
kerumitan yang tidak perlu, atau terlalu lambat. 

Alasan kedua ditunjukkan pada persoalan menentukan deret Fibonacci 
berikut: 

0,1, l, 2,3.5.8,13, ... 

Sebagai konvensi, o adalah bilangan Fibonacci ke-o, l adalah bilangan 
Fibonacci ke-i, dan seterusnya. Fungsi rekursif untuk menentukan bilangan 
Fibonacci ke-n: 

Fib<n) ■ 

(i) n , jika n - o atau n ■ l { basis } 

(ii) Fib(n - l) + Fib(n - 2) , jika n > l { rekurens > 

function Plbl Input n i In teger ) -* Integer 
/ aenencukan bilangan Fibonacci ka-n 

baa la: jika n - 0 atau n • l, make Fib In) - n 
reJcurenei Jika n > 1 make Flbfn) - Flb(n-l) * Flbtn-2) 

} 

DBKLARASZ 


ALGORITMAi 

if (n ■ 0 ) or (n » 1 ) then 
return n 
else 

return PIB(n-l) ♦ PiB(n-2) 

•Pdit . 

Al gorltma 11,36 F ungsi Fb onecd (r* v „ rs n 
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Perhatikanlah bahwa setiap kali pemanggilan Fib(n) dengan n > l akan 
menghasilkan dua buah pemanggilan rekursif berikutnya, sehingga total 
jumlah pemanggilan meningkat secara eksponensial (pemanggilan rekursif 
dua kali seperti ini disebut dengan rekursif biner. Kita sudah melihat contoh 
rekursif biner lain pada persoalan menara Hanoi). Untuk n - 5, terdapat 15 
kali pemanggilan Fib (n). Di sini, algoritma rekursif menjadi tidak mangkus, 
sebab ada pengulangan perhitungan untuk n yang sama (Gambar 18.13). 



Gambar 18.13 Pohon pemangg<lan Ftbfn) untuk n ■ 5 


Dari Gambar 18.13 terlihat ada tiga kali pemanggilan rekursif untuk n ■ 2 dan 
dua kali untuk n - 3. Dengan prosedur iteratif, pengulangan perhitungan 
untuk n yang sama dapat dihindari dengan cara pemakaian peubah tambahan 
sedemikian rupa sehingga x - Fib, dan y ■ Fib,.,. 

Fungsi iteratif untuk menghitung deret Fibonacci sebagai berikut: 

function FIBONACCI ( input n 1 inf aer ) -♦ latww 
( varti ifratit untu* «ananeu*4ui btlmngmn Fibonacci km n ) 

DBXLARASI 

x. y. x. 1 . intagy. 

ALGORITMA1 

if n • 0 than 

return 0 



return 1 
elae 

x «- 0 { Fib, } 
y 1 . ( Fib, ) 
i «- 2 
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while i i n do 


2 ♦- x • y { Fib, ) 
x 4- y { Fib,. i aenjadl Fib,., f 

y 4- x f Fibi ateajadi Fib,., J 

i ♦- i ♦ 1 

TFttt) 


return x 
endlt 
endif 

Algori tma 16.37 F ung s! Fibonacci ( Iteralif) 



Contoh ini menunjukkan bahwa kita perlu menghindari penggunaan 
algoritma rekursif apabila penyelesaian iteratif lebih mudah dikeijakan 
[WIR76]. 


18.7 Menghilangkan Rekursifitas 

Tidak semua compiler bahasa pemrograman menycdiakan fasilitas rekursif, 
misalnya bahasa FORTRAN. Bahasa seperti PASCAL, ADA, C, dan C++ 
mendukung pemrograman rekursif. Untuk bahasa yang tidak menyediakan 
fasilitas pemrograman rekursif, kita hams menghilangkan rekursifitas dcngan 
cara mene 

rjemahkan program rekursif menjadi program iteratif. Sclain karena alusan 
compiler, menghilangkan rekursifitas juga dimaksudkan untuk mempcroleh 
algoritma iteratif yang lebih mangkus daripada algoritma rekursifnya. 

Alasan lain penghilangan rekursifitas adalah kendala memori. Compiler bahasa 
pemrograman membatasi besar tumpukan implisit (besar memori yang 
discdiakan untuk tumpukannya, dalam satuan byte). Apabila pemanggilan 
rekursif memakai tumpukan lebih dari batas yang didefinisikan, compiler 
tidak dapat lagi menanganinya (pesan kesalahan: stack overflow). 

Rekursif di Ekor 

Tingkat kesulitan menghilangkan rekursifitas bergantung pada berapa buah 
pemyataan (statement) pemanggilan rekursif di dalam kode prosedur/ 
fungsinya. Kasus yang paling sederhana adalah pemanggilan rekursif di ekor 
(tail recursion), yaitu apabila pemyataan pemanggilan rekursif terletak di 
akhir prosedur/fungsi (lihat skema prosedur/fungsi rekursif di upabab 9.3, 
yang dalam hal ini /?2(x) dan SaCr) tidak ada). Dengan kata lain, jika 
pemyataan terakhir di dalam prosedur/fungsi adalah pemanggilan rekursif, 
gantilah pemyataan terakhir itu dengan pemyataan rekursif sebagai berikut: 
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a. Kerjakan bagian tanpa-rekursif dengan nilai parameter sekarang dan 
nilai peubah lokal sekarang. 

b. Mutakhirkan parameter dan peubah lokal. dan lompat {jump ) ke 

pemyataun 3. 


Contoh 18.19. Sebagai contoh Qustrasi, tinjau kembali prosedur cetakLioi 
di bawah ini: 

inocodu io CatakLlstt Input L : Liot) 

l mencetak aetiap Info eleven Hot yang dikunjungi 
K.Await L berloi alamat eleven pertama liot 
K.Akhlr: net lap Info eleven liot dlcecak ke layer 

b. 10 In t 

jlka L - Nil, cld/ik melakukan npa-apa 
rekuronot 
Jlka L * Nil 
cetak (InfolL/) 

CctakLioc/NoxULH 

I 

DM LARAS! 


ALOORITMAi 

il I. * HU l H*n 
w» itr (InfolLlI 

CotnkMnclNoxf (LI) I rekuroit dl ekori I 
<ndlf 


Vond iteratifnyn adalah: 

piocod urp CotnkU»t(Input L « L:8t) 

/ mencaiak oat tap Info demon Hot yang dikunjungi 
K,Awal 1 I, berloi alam-tt eleven pertama Hot 
K.Akhlr: net tap info eleven Hot dlcecak ke layer 

bnola 1 

Jlka L • Nil, tldak aalakukan apa-.ipa 
rekurenoi 
jlka L 0 Nil 

cetakI Into(Li I 
- CatakUat (Next(L)i 

I 

DEKLARASI 
lnbol fl 

Al/JORITMAi 

Si It L a nil than 

wrH» Hnfo(U) 

L «- Next (L) 

UQto 5 

Algorltma 18.38 Mencotak Usl (tnnpa Rekixs»f) 
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Instruksi goto dapat dihilangkan untuk mcmhuat prosedur menjadi lebih 
terstruktur scbagai berikut: 

! ioceduce C etakLiat< input l : Line} 

r.encecak eat lap info eleocn list yang dikunjungl 
K.Avals L burial alaoat eleven percama Hat 
K.Akhiri set jap info eleven list dicetak ke layar 

basis i 

Jika L • Nil. c idak oolakukan apa-apa 

rokurenei 

jika L * Nil 

- cetakdnfofLU 
- CetakUBtlNext(:.n 

I 

DHKLARASI 

ALQOKITMA: 

while L * Nil do 
wtlt-o Untodl) 

L «- Moxt(L) 

■ltd while 

r *. nii / 

Algorltma 18.39 Moncelnk List (lloraUQ__ 


Aturan ini cukup umum dan dapat diterapkan tidak banya pada prosedur 
rekursif lanjar, tetapi jugn pada prosedur rekursif biner. Pada rekursif lanjar, 
rekursifitas dihilangkan sama sekali. sedangkan pada rekursif biner, banya 
salu pemyataan rekursif yang dapat dihilangkan (jika pemanggilan rekursifnya 
diekor). 

Sayangnya, aturan ini tidak dapat diterapkan untuk pemanggilan rekursif 
yang tidak di ekor, juga pada pemanggilan rekursif yang pnmmeternya by 
reference, misainyn pada prosedur SalinlJst (ROH84J. Karena itu, kita bnrus 
membuat aturan yang lebih umum, yaitu mensimulasikan pemanggilan 
rekursif dengan menggunakan tiimpukan eksplisit. 


Meuyimuln.sikiiii Pemanggilan Rekursif dengan Tumpukan Kk.splisit 

Yang dimaksud dengan tumpukan eksplisit (explicit stack) ndalah tumpukan 
yang dldeflnlsikan oleh pemrogram di dalam prograinnya. Tumpukan 
eksplisit menyimulasikan penanganan tumpukan implisit oleh compiler. 
Dengan menetjemahkan algoritma rekursif menjadi algoritinn iteratif yang 
menggunakan tumpukan eksplisit, kita masih dapat mempertahankan sifat 
"nlami" persoalan yang rekursif. 

Keuntungan lain penyimulosian ini adalah mengatasi kendala batasan 
memori yang telah ditentukan oleh compiler pada tumpukan implisit. Dengan 
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menggjunakan tumpukan eksplisit, kita dapat mendefinisikan besar tumpukan 
lokal yang diinginkan, atau, pengalokasian clemen tumpukan dapat dibuat 
dinamis (memakai list berkait dengan pointer). 

Dan akhimya, pengubahan algoritma rekursif menjadi itcratif dengan 
inenggunakan tumpukan eksplisit dapat meningkatkan pemahaman kita 
tentang mekanisme pelaksanaan procedure rekursif itu sendiri 

Pengubahan algoritma rekursif menjadi algoritma iteratif telah menjadi 
pokok penelitian besar sampai saat ini (ROH84]. Teknik pengubahan yang 
dibahas di bawah ini dikhususkan untuk rekursif lanjar saja. 


Prosedur rekursif 

procedure Ct irput x 1 xt ype) 

{ proacdur yang manunlpulmal nilai x 
K.Awal r x terdefxr.lol nllainya 

K.Akhlrr aekumpulan akai yang memanipulaal nilai x dllakukan 

I 

DKKLARAS1 

{ kamut lokal , Jika ada ) 

ALGORITMA) 
if r(x) then 

Mix) / baalo / 

• In* 

SXlxl 

Cir(x)) I rekurena ) 

92 (X) 

m u 

AlQoritmn 18.40 Skomo prosodur rokumf 


Prosedur itcratif 

Definisikan tumpukan eksplisit sebagai berikut. bergnntung pada jumlnh 
parameter, tipe parameter, dan |>cubah lokal. Klemen tumpukan menyimpan 
parameter prosedur dan peubah lokal. Alamat kembali tidak pcrlu disimpan 
kflrcna hanya ada satu pemanggilan rekursif (rekursif lanjar). Misalkan 
tumpukan diimplcmentnsikan menggunakan Inrik sebagai berikut: 


900111 fimako - 
tyP» xTypo - 
typw •tack 1 

...i I luodfh nakiSffUA gjvpon tuapukan ) 

record 

C 


(•leiron : array tl. .Urtk:i| of xTyp«* 
cop 1 Intogor 

% 

u 1 onnek 


Algoritma 18.41 P> m tumpukan 
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Tcrdapat dun versi penyimulasinn pcnianggilan rekursif. Versi pertama 
meniru persis mekanismc penangar.an pcnianggilan rekursif yang stxlah 
dijclaskan pnda bngian sebelum ini. Versi kedua adalah modifikasi versi 
pertama. 

Versi 1: 

procedure C( Input x s xTypel i 

{ prosedur yang memanipuJaal nilai x 
K.Atfal : x terdefiniai nilainya 

K.Akhir: aokumpulan afcsi yang memanipulami nil** x dllakukan 

) 

DKKLARA5I 
% i stack 

ALOOSITOAt 

liiislnlinaai (a) ( beraihkan tunyukan. TOPfal • Q) 

push Is. x) { maaukkan parameter pemanggilsn pertama kali 

ko dalam tumjni kan s ) 
while not P'fxl do 
SI (xl 
x ♦- Plxl 
push(o, xl 
ondwhile 
( P<x> i 

M(xl 

papls.xl 

while not ••mpryffil do 
x *- s.*tlomon(D.TOP| 

S2(x) 
pop(■| xl 
ondwhilo 

7 empty fa) ) 

AlgorltmA 18.42 Monyimulostksn pomanggilan Rokurstf (venl 1) 


Versi 2: 

Versi kedua ini sedikit berbeda dnripada versi 1 dan tidak persis same 
mengikuti mckanismc pemakainn tumpukan yang telnh dilerangkan 
sebelumnyn, nnmun versi kedua ini lebih singkat dan lebih mudah dipahami. 
Perbedaannya adalah, bahwa pnda pcnianggilan prosedur rekursif yang 
pertama kali (dnri luar prosedur). parameter x tidak langsung dimasukkan 
(push) ke dalnm tumpukan. Bcgitu juga setelah satu pcnianggilan rekursif 
selesai dilaksanakan. elemen puncak tumpukan diainbil (pop) dan 
parameter x yang dincu untuk S2 (x) adalah nilai parameter pada elemen 
diambil itu, bukan nilai parameter di puncak tumpukan sekarang. 

procedure C(Input x . xTypa); 

( proaedur yang mam-tnipulaai nilai x 
K.A*a1 ; x tardetiniai nilainya 

K.Akhir 1 nokumpulan akai yang m emanlpuUat nilai x dllakukan 
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DKKLARASI 
s s stack 

ALGORITHA: 

iniolaXisasi (s) ( berelhkan cuzpukan. topla) • 0 } 

while not P<xJ do 
51 (X) 
punhls.x) 
x ♦- F(x) 
endwhllo 

{ PUT] 

M(X) 

pop(o.x) 

wlillo not otr.pty(n) do 

pop(B iX) 

32 (x) 
olKiwhlU 
f amply (b) } 

Algorltma 18.43 Menyimulasikan pomnnggilan Rokursif (verai 2) 


I’roscdur inisULiaasl,push,pop,dan koaong sebagaiberikut: 

T rocoduro inlnlallnanl( I nput / output ■ 1 0tackl 
m engintnlnllaaal timpukan a 
K.Awnl : 0 belu m teidotIniai havganya 
K.Akhici oeluruh elenen tumpukan dilei nol, a.top • 0 


DKKIARAS: 

1 « intogot 

At/JORITMA» 

for 1 *- 1 to Nnhikit do 

a.olomondl «- 0 
u.top ♦- 0 

ondToi 


f unction urpty(i nput a 1 ptAckl -♦ boolean 

J true Jtka tumpukan a koaong. talaa Jika acbaliknya ) 

UKKLARAJ. r 


AUlORlTMAi 

re turn u.top - 0 


procoduro puohi input / outp ut 0 1 atack. input x 1 xTyyu) 

(momaeukkan x ka da lam tuapukan n 
K.Aw.il 1 x terdefinlnl harganya, turpukan n bolusi ponuh 
K.AAhln a . eletnen (a. TOP] dlial x 
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DBKLARASI 

ALGCKITKA: 

a.top *- a.top • l 
a. i»Inren [n. top) x 

procedure pop( Input / output o i atack, output x : xTypo) 
( meagsnbil x darl tutspukan o 
K.Aval t t'urnpuk.m a tldak koaong 
K.Akhir: x burial oleaca puncak tumpukao 

) 

DEKLARABI 

ALOORITMAi 

x *- a.alemenfo.TOP) 

3.TOP «- a.TOP 1 

Algor limn 18.44 Prosodur dasar unluk tumpukar? 


Contoh 18.20. Tinjau kembnli prosodur TulisBiosa rekursif di bnwnh ini: 
(a) Rckursif 

procedure Tullnnlaoa 1 Input n « integer) 

f vencetak digit bilangan bula c dari depan ke belakang 
K.Aval / n ccrdefinlsi 
K.Akhir: digit -digit n dicetnk ko layat 

Itaoia: Jlka n • 10, m aka cotakln) 
rekurenm Jlka n 2 JO maka 

- TuliaBlaon In div 10) 

- catakfn div jol 


DBKLARASI 


ALGORITKAI 

il n < 10 then 

wrjte In) 
eln* 

TulieBinaA(n div io>; 

write (n mod ID); 

Algorttma 18.45 f’onulisan Integer secara natural 
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Pengubahannya menjadi algoritma iteratif: 

(b) Iteratif 
Vcrsi is 

procoduro luiIsB^aaat input n i lUlegaz ) 

( mencecak digit bilangan buJat dari depan Kr t>elakang 
K.Awal i n terdefiniol 
K.Akhirt digit-digit n dicetak ke layar 

baaini Jika n < 10. paJca cetakln) 
rekutena: Jika n >10 ir.iJca 

- TullaBuaaln div 10) 

- cetaklr. div 2 01 

I 

DEKLAAAQl 

o i utock 

ALGORITMA« 

liunlal leant to) 
puBh(o.n) 
whllo n i 10 do 
n •- rt div 10 
puuhlu, itl 

{ n < 10 ) 

VJ±tuin) 

popCi.nl 

whtlo not empty(■) do 

n «- u. ••I»(T"n la.TOP) 1 { in lax n yang dia cu / 

writ"(n mod 10) 
poplo.nl 
oncl wb 11 « > 
f empty (a) } 

Algoritma 18.46 Monyimulankan prosodur ponulisan Inlogor Rokui»lf dongan akomo voral 1 


Vcrsi 2: 

pr ocodu ro rul talliana l input r. lntrjor) 

{ mcncetak digit bilangan bulat dari depan ko belakang 
K.Awal i n terdellnial 
K.Akhlr: digit-digit n dicetak ke layai 

bauiot Jik.i n < 10, make cetakln) 
rekurenmt Jika n * 10 make 

- Tul ioPiaua (n div 10) 

- cetakln div 10 f 


DEKLAKAS1 
s ! ntack 
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ALGORITMA: 

inioialisasi(a) 

whilo n 2 10 i]o 

pujihU.nl 
n «- n dlv 10 
ondwhl 1 * 

l n < 10 ) 

wrlte (n) 

whllo not umpty(ul do 
pop(a.n) 
write (n ■'od 10) 
wndwh.il o 
I imptyla) J 

Algorlimn 18 47 -.in prosedur pomiUsan integerRekursif dorvgan skomn vorsl 2 


18.8 Rekursif dalam Bahasa PASCAL dan C 

Titluk ndn perbedaan unlnra pemanggilan prosedur rekursif dengan prosedur 
biasa (tanpa rekursiO dalam bahasa rascal dan bahasa C. Kudu a bahasa 
pemrograman ini mendukung rekursifitas. Di bawah ini diberikan beborapa 
contoh iranslasi notasi algoritmik fungsi/ prosedur rekursif ke dalam bahasa 
Pascal dan bahasa C. 


Contoh 18.21. Translasi fungsi faktorial (rekursiO dari notasi algoritmik ke 
notasi bahasa Pascal dan bahasa C. 

ALGORITMIK 

functi on Fak ( Input ii : Integer I -* i nteg er 

I mangembalikan nllai n!. Algoritma rekurmll. 
basis i JJk/t n • 0 . maka Ot - J 
reJcuronw j jika n * 0, maka nl • d x tn-l/l 

J 

DBKLARASI 


ALGORITMA: 

if t» - 0 thon 

cotutn 1 ( basis ) 

qVmp 

retain n * F«k(n l) / rekurons } 
end 1 f 
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PASCAL 


function Fak(r. : integer : integer; 

( mer.gembal xkan nilai nJ. Algoritxa rekursif. 
basis ; jik. i n - 0, aaka 01 - 2 
rekurens: jika n > 0, naka n.' - n x fn-2> t 

I 

begin 

if n - 0 then 

Pak j- 1 ( basic ) 

else 

Pak n • Fak(n • 1)t { rekurena } 
(endif} 

end ; 


c 


int Pak tint n) 


/• mengenbalikan nilai nl. Algoritma rekuroif. 

baaia : flka n • 0 , make 

or • j 

rekurena: jika n * 0 , maka 

•/ 

nl • nx in-lH 

if (u •• 0) 

return I; 

else 

( basis ) 

return n • Pak (n - 1 )i 
/•endif/ 

1 

( rekurena ) 


Contoh 18.22. Trnnslnsi proscdur mcnara Hanoi (rekursif) dari notasi 
algoritmik ke notasi bnhasa Pascal dan bahnsa C. 

ALGORITMIK 

procr xluro Hanoi (Input n. A. It, C i int«yj et) 

( memindalikan W buah ptringan dari A ko H 

K.Av/tl i n adal ah fumlah ptringan, harganya audah terdetininl 
t’ada muinnya aoluruh ptringan ber.ida dt tiang A, 
piringan terbonar berada paling bawah. 

K.Akhir: Bmluruh piring/tn telah pindah ke tinng P. piringan 

paling Iwoar berada paJing bawah. Proaeo perpindahan 
pi ring dicetak ke layor 

baaiai 

Jika n • 1, pindahkan piringan dart A ke p 

rekurenai 

Jika n > I, 

- angkat n-1 buah piringan dari A ke C 

- pindahkan 1 piringan dari A ko B 

j - angkat n-1 buah piringan dari C ke B 

DEKLARA8X 
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ALGORITKA: 

if n - 1 then 

wr 1 to I'plndahkan plringan darl ', A, * ko B) 
elBQ 

Hanoi(Nl.A. C. B) 

*r1 t o('Plndahkan plringan darl *,A,* ko ", B) 
Hanoi(N-l, C, B. A) 
end j f 


PASCAL 

procedure Hanoi(n. A. 3. C : intogor) j 
( nemindahkan n bush plringan d.iri A ke B 

K.Awa J t N adalah Junlah plringan, harganya sudah tordeflnlal 
Pada mulanya neluruh plringan berada di tiang A, 
plringan eerbeoar berada paling bawah. 

K.Akhir: Soluruh plringan telnh plndah ke dang B, plringan 

paling beta r berada paling Lawah. Proaee perplndahan 
pi ring diceCak ke layer 

bauiai 

Jlka n • 1. plndahkan plringan darl A ke D 
rokureno: 

Jlka n » J, 

- ar.gk.u n-l buah plringan darl A ko C 

- plndahkan 1 plringan darl A ke B 

- angk.it n-l buah plringan darl C ke B 

) 

bagin 

if n • 1 thon 

wrltoln |’piiviihl »n plringan darl .A,' ko B) 

alia 

begin 

Hanoi(n l.A. C. B> j 

writelnC Plndahkan plringan d«ri .A,’ k.- *, B) j 
Hanoi In-:, C, B, A); 

end; 

end | 


c 

void Hanoi (int n.int A, int n.int CJ 
/• nemindahkan n buah plringan darl A kc B 

K.Awa1 j n udalah Jumlab plringan, harganya oudah terdetIniot 
Pada mulanya oolL'ruh plringan berada di tiang A, 
plringan torbcoar berada paling bawah. 

X.Akhir: Selutuh plringan telah plndah ke dang B. plringan 

paling beoar oernda paling bawah. Prooen perplndahan 
piring dieetak ke layar 

baa la: 

Jlka n-l. plndahkan plringan darl A ke 11 
rokureno: 

jlka n > 1 , 
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- angkat N-l bush piringan dari A ke C 

- pindahkan 1 piringan dari A ke B 

- ar.gkat N-l buafa piringan dari C ke 3 

•/ 

I 

if (n -- 11 

printf[-pindahkan plxin«jin dan \d k«* id \r.". A. D), 

else 

I 

Hanoi(n*i.A. C. B)j 

printf (“Pindahkan plrinsjnn dari %d ko td \n",A, B) j 
Hanoi(n i. c. B, AW 

I 

I 


Soul Latihnn Bab 18 

i. Tulislah prosedur/fungsi rekursif untuk persoalan berikut: 

(a) Mcnghilung S(n) ■ is + 2*4 3* ♦... + (n - i)J * n* 

(b) Mcnghitung a ♦ b, yang dalam hal ini a clan b adalah bilangan bulnt 
(gunakan tcrminologi successor). 

(c) Mcnghitung pecahan berikut: 

a. + —i— 
a, +_i_ 

ci, ♦ 1 


(In 

yang dalam hal ini nilai-nilai u«. a„.... ci„ bcrtipc riil. 

(d) McnghapiLs elemcn list l. yang kundnvn x (x mungkin tidak ada di 
dalam list). 

(e) Mcnentukan demon terkecil dari larik integer A[ 1..11J. 

(0 Mcnggabung dun buah list. Salah satu alnu kedua list mungkin 
kosong. 

(g) Mcnentukan elemcn terbesar dari list I. 

2. Ubnhlah prosedur iteratif ini menjadi prosedur rekursif: 

ptocotluzo i»Uuntinpm n i lii Unjet) 

DEKLARASI 

i : inneggr 

At/}OR;TVA: 
i •- n 

whllo l * 0 do 
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3 - Fungsi npakah di bawah ini ? 

function X< Input / output a. b : Lariklnt. input n: integer ) -* real 
DBKLARA8J 


ALOORXTMAr 

if n • 0 tlwn 

return *[0|*b(0) 

Si"T 

fturn X«a. b. n l) • «|n| • bln] 


4. Fungsi npakah di bawah ini ? 

function ing! input n t integer ) -♦ integer 
DEKLAHASl 


At/JOlUTMAi 


if n - 0 tlieg 



return n • Cuncln lli 
»nUU 


5. Modifikasilah fung*i c/cc/ (pcmbagi bersama tcrbesar) sehingga ia juga 
dapn! digunnkan iiiituk menghitung gcd(x,y) unluk x < y. 

6. Misnlkan panit(n.k) mcnyatakan jumlah panilia yang terdiri dari k orang 
yang dnpal dibenluk dari n orang. Sebagai contoh. panit( 4 . 3 ) « 4 , karena 
diberikan cmpal orang A. B. C, dan D, maka tcrdapat empat 
kcmungkinan panilia, yaitu ABC, ABD, ACD, dan BCD. Buktikan 
kesamnan berikut: 

panit(n,k) ■ panit(n - lA:) ♦ panit(n - 1 ,k - l) 

Buntluh fungsi rckursifnya untuk n, k 21. 

7 . Fungsi Ackerman A didcfimsikan untuk semua argunien biiangan buhit 
m dan n sebagai berikut: 

A(o n) = n + l 

/i(m, o) * A(m - i.i), (m>o) 

Mm, n) = Mm - l, A(m, n - l)) (m, n > o) 

Tulislah fungsi rekursif untuk menghitung A(/n,n). 
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8 . Transformasikan algorithm rekursif yang sudah ditulis di dtlnni buku 
ini, yaitu 

(a) function Fak 

(b) procedure BalikAngka 

(c) procedure Hanoi 

(d) procedure CetakList 

(e) procedure SalinLlst 

menjadi algoritma iteratif dengan: 

(i) skema penghilangan rekursif di ckor 

(ii) menggunakan tumpukan eksplisit. 
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Contoh-contoh 
Pemecahan Masalah III 


Bab 19 ini menyajikan contoh-contoh masalah dan penyelesaiannya, dengan 
topik masalah yang beragam. Contoh masalah yang disajikan mencakup 
masalah pencarian, pengurutan, matriks, arsip beruntun, dan algoritma 
rekursif. Belajar melalui contoh adalah salah satu cam terbaik belajar 
algoritma dan pemrograman. Melalui contoh kasus, diharapakan anda 
menemukan pola-pola yang dapat digunakan untuk memecahkan masalah 
yang sejenis. 



Misalkan sebuah larik integer yang berisi n buah elemen berisi nilai-nilai 
integer yang sudah terurut menaik. Tuliskan sebuah algoritma untuk 
menyisipkan elemen baru, x, ke dalam larik tersebut pada posisi yang tepat 
sehingga larik tetap terurut menaik. Diasumsikan ukuran larik setelah 
penambahan elemen baru tidak melebihi ukuran maksimum larik ( Nmaks ). 


Contoh: 

I B | 10 | 21 I 25 I 27 | 76~l 
1 2 3 4 5 6 


Sisipkan x - 24: 

I 8 I 10 | 21 | 25 | 24 1 27 | 76 1 

1 2 3 4 5 6 7 
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Penyelcsainn 

Ada dua earn yang dapat digunakan unluk inenyisipknn elemen barn. Cara 
pcrtama: can tcrlebih dabulu posisi yang tepat untuk x, m’isalkan padn posisi 

ke-i, kcmudian gcser olemen-clomen ke-i. i ♦ i, i + 2.n *atu posisi kc 

kanan. lalu tcmpatknn x pads elemen ke-i. 

Algoritma penyisipan sclengkapnya scbngai berikut: 

procedur e SiaipX_llinput/output L : Uriklnt, input n 1 integer, 
input x t integer) 

[ Hanylelpkaa * ke dal.m lank L11../I] yang oudnh terurut vcnaik 
sedcnikian aehlngga nctelah panyialpan larik L tot.tp terurut menatk. 
Aaumaii n » 1 s Nauka. Hmaka adalah ukuran oakBimim larik. I 
{ K • Awa 1 : Blematr-rrlvmon larik L twdnh l erurut nenaik; x mid ah 
tordaflnisl nilalnya. / 

I K.fikhlr : Bltaeii-aloir.cn larik L tctap zarvrut. ) 

DBKLARAS: 

1 1 integer l indeka larik I 

kotonu 1 boolean ( untuk -trnyarakan pcBlmt ponyluip.tr> cfXtenukan ) 

ALOORITKA: 

( earl poaiat yang tap*t untuk x di dalam Lfl .nJ. y.»icu alamo 
HI] a»damkl.tn aehingga x < 1(1] f 
1 •- i 

Keceeu •- gal at 

while USD) and (not kete.wi) do 
' if x < Lfil ywj 
ketenu *- true 

• 1 «> 

i ♦— 1 ♦ 1 
endif 
endwhile 

( 1 » n or ketamu / 
if ketemu then 

{ gcaer elomcn hill. Lll t 1], Lfn/ »«CU pooiai kc kasuiu ) 
for J •- n down to 1 do 
M) • 1| LUJ 
endfgr 

( alaipkan x ke da Jan LIU } 

L[iJ *- x 

I sialpkan x pad* paaiai Lin ■ 1] ) 

Lin * ll •- x 
endif 

Algoritma 19.1 Penyisipan eiemen x ko dntflm lank yang sudah terurut menaik (cara 1) 


Cara kedua lebih tnatigkus dan pa da cara pertains, yang dalani hsl ini kita 
melakukan pergeseran ketika niencari posisi yang tepat untuk x. Cara kedua 
ini diilhami oJeh metodc pengurutan sisip. Proses pembandingan dilakukan 
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secara raundur, dimulai dari demen terakhir sampai posisi penyisipan 
ditemukan. 

Algoritma penyisipan selengkapnya untuk cara kedua sebagai berikut: 

procedure SioipX_2(input/output L s Lariklnt, input/output n i integer, 
input x : integer) 

( Menyioipkan x ke dalam I.irik Lll..nJ yang nudah Cerurut menaik 
tiodemikian aehingga aetelah penyisipan larik L tetap terurut nen.uk. 

Ami win: n * I S Nmaka. N.’xaka adalah ukuran maksinum Jarik. } 

( K.Awal : Elemen-e lenten larik L sudah terurut n onaik/ x sudah 
terdefiniux nilainya. ( 

{ K.Akhlc : E letter.-eleven larik L tetap terurut. ) 

DBKLARASX 

1 i integer ( indeka Jarik } 

kotemu : boolean f untuk menyatakan postal penyioipnn ditemukan ) 
ALGORITMA: 

( east postal yang tepat untuk x dl dslam 1(1..oj ttambil 
monggeoer ) 

1 «- n 

kotomu *- tal«c 

while fi 2 1 ) and (not keteaul do 
If x < LtII than 

” L[1 ♦ 1] *- LID ( gesei } 

i •— i - 1 

e l on 

ketemu •- true 
end if 
endwhlle 

{ t < l or ketemu I 

l.|i • lj v- x / sisipkan x pada tor^ae yang aesuai ) 

Alflorltma 19.2 Penyisipan elemon * ke dalam lank yang audoh loruiut mon.nk (earn 2) 



Gunnkan Algoritma 19 2 dl alas untuk membuat program utama yang 
mcngurtitknn n buah data inlct/er yang di-enfry dari papan ketik. Dalam bal 
ini, setiap kali data dibaia, data tersebut dicarikun posisinya yang tepat di 
dalam larik sehingga larik tetap terurut menaik. I’roses pembacaan data 
bonikhir bila data yang dimasukkan adalah 9999 - 


Pcnycleaaian 

Untuk menggunakan Algoritma 19.2, larik hams berisi minimal 1 eleincn 
karena proses penyisipan mcnterlukan pembandingan dengan elemen yang 
sudah terdapat di dalam larik. 
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PROGRAM Bac*»_d-in_Urut 

I Matabdcd data dari papan ketlk dan itenyi bI pk&nnya ke dalam larik L 
sedenlklan aehingga larik L terurut xanaik. } 

DBKLARASZ 

const Nrnaka a 1000 { jumlah makaimum elaman larik J 

type Lariklnt o array [ 1 ..KmaXs) of Integer 


L : Lariklnt 
i, n, x r unteger 


it/ output L i Lariklnt. 

■/output n : integer , input x i Integer ) 

{ Maayialpkan x ke dalam larik Hi. .nj yang audah terurut nvnalk 
aedemlklan aahingga aaCaleb panyiaipan larik L tatap terurut oenaiA. 
Aflumai: n * 1 S Nmaka. Nrnaka a dal ah ukuran mako inrun larik. } 


ALGORITHMj 

l(n) ( baca ukuran larik; n i Nmaka J 
|CX) I beca data parteda ) 

L(l) •- X 

for 1 »- 2 to n do 
read (x) 

3iaipX_2 (L, i - 1, x) { elelpkan x di dalam L/l..i-2/ I 
endfor 

Algoritma 19.3 Program penyhlpan terunit 



Arsip dapat menyimpan data yang lebih banyak daripada disimpan di dalam 
memori utama. Mengumtkan arsip. beruntun memerlukan tcknik khusus. 
Agar proses pengurutan berlangsung cepat, maka pengurutan data tidak 
dilakukan langsung di dalam berkas, tetapi isi arsip dibaca ke dalam 
bebcrapa buah larik. Selanjutnya larik diunit dan hasil pengurutan disimpan 
kembali ke dalam arsip. 


Misalkan arsip beruntun F berisi data mahasiswa yang deklarasi arsipnya 
sebagai berikut: 

DEKLARASI 

type DataMho i record <NIM i integer . Mama i string . IP i real > 
type ArsipMhs i File of DeteKho 

F i ArsipMhs 

Algoritma 19.4 Deklarasi snip date mahas.swa 


Larik M digunakan untuk menyimpan data dari arsip dan dideklarasikan 
sebagai berikut: 
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DEKLARASI 

conac Nmako • 1000 

type TabMho : arraytl..Ksuko] of DataMhe 
M i TabMho 

Algorltm.il 9.5 Deklarasi lank yang bortipo data mahasiswa 


Buatlah algoritma yang membaca isi arsip ke dalam larik M, mengurutkan 
lank berdasarkan NIM yang lent nit menaik dengan metode pengumtan 
seleksi-maksimum, dan menyimpan basil pengumtan ke dalam arsip semula. 

Penyelesaian: 

Mula-mula, baca arsip dan simpan selunih datanva ke dalam larik M: 

procedure SnllnArelpMhn(Input P i AroipHho, output M i TabMho, 

output n i Integer) 

I Monyalln aoluruh lei aralp F ke dalam larik M. ) 
l K.Awal i iifimb.ir.mg ) 

{ K.Akhir: M burial aalinan aoluruh rokaman dari aralp F; 
n berlai Jumlah aoluruh data dl dalam aralp (n monjadl ukuran larik 
ofektlf I 

DEKLARASI 

RekMho i DatnMhn 

ALOORlTMAi 
Open(P, 1) 

n •- 0 

while not KOPtF) do 

Frond (F, RekMho) f baca RokHha dan aralp F ) 
n n • 1 

Mtn) •- RekMho ( maaukkan RokHha ke dalam H/nJ } 
endwhiIn 
I SOP (FI ) 

Clone IP) 

Algorltmn 19.G Monynhn isi arsip F ke dalam lank M 


Setclnh isi arsip disalin ke dalam larik A/, selanjutnya larik diurut menaik 
berdasarkan NIM dengan metode |>engurutan seleksi-maksimum: 

proc edure Sort Dot nMho(Input/output M i TabMho, in put n s in teger ) 

{ Mengurutkan elemen larik achingga terauaun menaik 

bcrdaaarkan HIM dengan metode pengurutan aelekai-makoimum. ) 

{ K.Awal : Elenen-elemen larik M sudah terdeliniai. } 

{ K.Akhir: Klemen larik H terurut menaik eedemikian uehlngga 
Hfll i M[2J S _ S H[nf ) 

DEKLARASI 

i « integer { pencacah paaa ) 

j : Integer { pencacah untuk mencari nilai makaimum ) 
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imaks s integer ( indcks yang berisl nilai maksinum aemenc.ira ) 

proc edure Tukar ( Inpu t/output a ; Kahasisva, 

Input / output b : Mahasisva) 

{ Meapertukarkan eleaen a dan b ) 

ALGORITMA: 

for 1 ♦- n down to 2 do ( Jualah pans sebanyak n - I ) 

Imaks 4- 1 

for j «- 2 to i do 

if H tj J.HIM > MllmaksI.NIM then 
imaks *- J 
endl l 
endfor 

(pertukarkan N! imaks] dengan MliJJ 
Tukar <M[imaknl , MUM 

ondfor 

Algoritma 19.7 Ponguruton lorik dong an melode pengurutan soleksl-mokainuim 


Catntan: 

Scbelum mcngurutkan larik, prriksa a pa kali larik berisi minimal satu buab 
elemen. Jika arsip kosong, maka pcmbacaan anip hanya menghasilkan 
larik yang tidak terdefinisi ehmen-elemennya (alau larik "kosong"). 
Kondisi larik kosong dapat diperiksa melalui nilai n yang diluisilkan dari 
prosedur BacaArsipMhs di alas: 

Sal inAroipMhit (P, M. nl 
if n - 0 then 

write t * Larik kosong*1 
else 

SortDataMhs(M, n) 
end if 

Sctelah larik terurul, sclanjutnya arsip F dibuka untuk penulisan, dan 
seluruh isi larik disalin kcmhali ke dalam arsip: 

procedure SallnLarlkMhs« input H : TabMhn. inpu t n i Inte ger. 

output F : ArsipHho J 

I Menyalin aeluruh elemen larik M ke dalam arsip F. } 

( K.Awal : Larik Nil.. it] oudah berisi elomen-olemen yang oudah terUrut 
berdasarkan NIH; ) 

( K.Akhir: F bcrlol o.ilinan seluruh rekaman dan larik N. } 

DEKLARASI 

i : integer 

ALGORITMA: 

Open(F, 2} 

for i <- 1 to n Jo 

FwritelF, MlilJ f salln Hill ke dalam arsip F ) 
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endfor 
Close(P) 

AJgoritm a 19.8 M eny alin larik M ke dalam arsip F 


Keseluruhan proses pengumtan arsip da pat dinyatakan dengan pemanggilan 
prosedur-prosedur di atas sebagai berikut: 

Open (P, 1) { buka araip F untuJc dibaca ) 

SalinAreipKhs(P, M, n) 

Close(P) { tutup arsip F } 

If n - 0 then 

write{'Larik koeong') 

elM 

SortDetoMhs(H, n) 
endif 

Open (P, 2) ( buk a araip F untuJc panullaan ) 

SalinLarikMhe(M, n, P) 

Close (F) { tutup araip F } 



Contoh Masalah 19.3 di atas dikembangkan sedemikian sehingga isi arsip 
dibagi menjadi dua bagian, masing-masing bagian disimpan ke dalam dua 
buah larik. Setiap larik diunit menaik berdasarkan NIM, kemudian hasil 
pengunitan kedua larik tersebut digabung dengan metode penggabungan 
larik terurut yang sudah pemah diberikan di dalam bab 16. Hasil 
penggabungan disimpan ke dalam arsip semula. Sebagai contoh, misalkan 
arsip berisi 2000 data. Teknik pengurutannya sebagai berikut: Baca 1000 
buah data arsip pertama ke dalam larik pertama, 1000 data kedua ke dalam 
larik kedua. Urutkan larik ini. lalu gabungkan hasil pengumtan ke dalam ke 
arsip semula. 


Buatlah algoritma pengumtan arsip dengan teknik ini. Asumsikan arsip 
tidak kosong dan jumlah rekaman (data) di dalam arsip di atas lebih dari 
1000 buah dan tidak melebihi 2000. 


Penyelesaian: 

Mula-mula, baca arsip dengan ke dalam larik Afi[i..m) dan M2(i..n2] 
sebagai berikut: 

procedure 8allnArelpHhea( Input P 1 ArslpMhe. output Ml, M2 » TebMhe, 

output di, n2 1 integer ) 

{ Manyalln aeluruh iai araip F km dalam larik Kltl..nll dan 
{ K.Awal 1 Beabarang ) 

( K.Akhiri Ml dan M2 bmriai aalioan aeluruh ntkanon dari araip Ft 

nl bariai Jumlah data di dalam Ml dan n2 bmriai Jumlah data di dalam 
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M2 J 

I'll KLARAS I 

RftkMba : DntaMho 

ALGORITMA: 

Open(F, 1) 
nl ♦— 0 

While (not BOF(Fl) andjnl *> 1000) do 
Frcad(P, RekMhn) ( baca RokMlw dari aroip F ) 
nl ♦- nl ♦ 1 

Mini] <- RekMhn { masukkan RekMhn ke dalam Ml [nl! ) 

endw hile , 

7 EOF(F! } 

it not EOf(F) then f isi aroip belum habto dibaca ) 

n2 *- 0 

while not EOF(F)do 

Freed (P, RekMhef ( baca RokMho datl aroip F ) 
n2 «- n2 ♦ 1 

M(n2] *- RekMho / imioukltrtn RekMho ke dalam M[n2j ) 

endwhile 
T ROF(F) 1 
endi f 

Algoritma 19.9 Monyalin isi arsip F ko dalam lorlk Ml dan M2 


Setelah isi arsip disalin ke dalam lank Mi dan A/ 2 , selanjutnya setiap larik 
diunit menaik berdasarkan NIM dengan include pengurulan seleksi- 
maksimum (panggil prosedur SorDataMhs yang sudah didefinisikan di 
dalam Algoritma 19.7): 

SortDetaMha(Ml, nl) 

SortDetnMhn(M2, n2) 


Bagian akbirdari proses pengunitan ini adalah menggabungkan kedun buah 
larik tcrurul ini ke dalam arsip sehingga data di dalam arsip terurut menaik: 

procedure OebungArelp2( Input Ml, M2 1 TabMho, input nl, n2 1 Integer, 

output K « ArnipMhe) 

I Menggabungkan due bueh larik. Ml dnn M2, yang eudah terurut menaik 
ke dalam oebuah areip. F. yang berlal data terurut. ) 

{ K.Aval : Larik Mill..nil dan N2[l..n2j audab terurut menaik. ) 

I K.Akhir: aroip F beriai haail penggabungan larik Ml dan M2. } 

DEKLARASI 

i, j 1 I nteger 

ALGORITMAi 

1 *- 1 { mulai dan elemen pertama lank Ml f 
J 4 - 1 / mulai dari elemen pertama larik M2 ) 
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while <i S nl) and (1 S d 2I do 

if (Ml[i].NZM S M2[j].NZM) Chen 

Fwricetr, Mi[i| 

i «- i ♦ 1 { larlk Ml a aju aatu rakaman J 

aloe 

PwriCe (F, M2[j] 

j ♦- j ♦ 1 ( larlk M2 maj u sotu rekaman f 

end if 



( aalln rakaman yang taralaa, darl larlk Nl atau M2 J 


while (i S nl) do ( Jlka yang taralaa adalah larlk Ml j 
Fvrlte(P, Ml(i) 

i •- i ♦ 1 ( larlk Ml maj u aatu rakaman ) 


( aimpan haall pengurvtun ko da lam aralp 7 ) 

Open(P, 2) { buka aralp 7 unCuJc panullaan J 

while (j S n2) do [ jlka yang taralaa adalah larlk M2 ) 
PwriCe(P, M2(J 1 

j ♦- j ♦ 1 ( larlk M2 maju aatu rakaman ) 

endwh^le 

( J > o2 ) 


Close(P) 

AJgorltma 19.10 Peopgsbunfon duo lank leruoit menjsdl aatu o/*lp lenjrul 



Di dalam bidang pengolahan citra digital ( image processing), titra digital 
yang berukuran m x n pixel (tinggi m pixel dan lebar m pixel) 
direpresentasikan dengan matrik yang berukuran m x n (m buah bans dan n 
buah kolom). Setiap elemen matriks berisi nilai keabuan (grey level) pixel. 
Nilai keabuan ini rentangnya adalah dari o sampai x. Pada citra hitam-putih, 
nilai o menyatakan pixel tcreebut bcrwama hitam, nilai x menyatakan putih, 
sedangkan antara o dan x menyatakan pergeseran waraa dari hitam menuju 
putih. Salah satu proses penting dalam pengolahan citra digital adalah 
menghitung frekuensi kemunculan nilai-nilai keabuan di dalam citra. 

Sebagai contoh, misalkan matriks di bawah ini menyatakan citra digital yang 
berukuran 8x8 pixel dengan nilai keabuan dari o sampai 15 (ada 16 buah 
derajat keabuan): 
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Tabulasi perhitungan frekuensi kemunculan nilai-nilai keabuan pixel 
ditunjukan pada tabel berikut: 


i 

f< 

o 

8 

l 

4 

2 

5 

3 

2 

4 

2 

5 

3 

6 

1 

7 

3 

8 

6 

9 

3 

10 

7 

11 

4 

12 

5 

>3 

3 

14 

4 

_ 15 _ 

_2_ 


Sctelah frekuensi kemunculan nilai keabuan dihitung, langkah selanjutnya 
a dal ah membuat histogramnya, yaitu grafik yang menggambarkan penyebaran 
nilai-nilai keabuan di dalam ritra, seperd contoh di bawah ini (satu karakter 
asterik menyatakan satu unit): 
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Pcrsoulun: 

Misalkan diberikan sebuali cilra C yang henikumn m x n dan mempunyoi 
256 derajat keabuan (dan o sampni 255). Huatlnh program (nyatakan 
sebagai prosedur saja) dalam haliasa Pascal dan bahasa C untuk membual 
histogram citra. 

Pcnyelesaion: 

PASCAL! 

Dcklnrasi matriks citra sebagai herikut: 

conot 

NbrttloKflkn • 1000/ ( Junlah barla makalmutn I 

NkolomMnkn - 1000/ / Jumi.Wi kolom makalmum I 

typ. 

citra - array \ 1 ..NbaricMaka, 1 ..KKoloreHaknl of byta/ 

I nlcir.cn matrlka bertlpe byte karena rantang niluny a hnnya 0 - 355 

I 

AlQorllma6.11 PoMaran malnkr citra IffUMl)_ 


• ••• 
••••• 
••• 


Prosedur untuk menghitung frekuensi kcmunculan nilai-nilni keabuan dan 
menggambarkan histogram sebagai berikut: 

procadura HuatHletogramfC i citra; m, n 1 lntogar); 

I Nembu.it hiatogram untuk citra C yang borukuran m x n. 

K. Awal: C ntidah terdefi/liai oicmon-ejononnya. 

K. Akhlri Camber Matogram torcotak dl layer. 

I 

var 

1. 1 : lntogor; 

trek 1 array[0..2551 of lntogar/ 
bogin 

( IntBi.illnaai frek(0. .2551 dengan 0 ) 
for l 0 to 255 do 
frcklil 0/ 

(endtor) 

l hltung tvekuenol kcmunculan act lap nilai keabuan J 
tor l:- 1 to re do 
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Cor j :» 0 to n do 

CrektCti.jl] freklCd.jl] ♦ 1; 

(er.d for} 

{endfor} 

{ gambarkan hiotogramnya } 
for i :• 0 to 255 do 
bag in 

write d. • 

for j )■ 1 to frekd) do 
writ*(*•')i 
(endfor) 

vriteln; ( pindah ke baria ba ru } 
end; 

{ endfor} 
end; 

Algoritma 6.12 Membu.il histogram dan sctouah crtra yang mempunyal 256 nlai ko.ibu.in (Pascal) 


C: 

Deklarasi matriLs citra scbagai bcrikut: 

ndefine fJb.ir iuMaku 1000 /• jumlah baria makaiiRum •/ 

Ndefine NkolcxnMako 1000 /• jumlah kolom makalmuen •/ 

typndaf unsigned char citra(HbnriuHako • lj (NkolomMakn • 1|; 

/• elemen matriku bertipe unoignod char karena rentang nllalnya hanya 
0 - 255 •/ 

Algoritma 6.13 Doklamsi mntriks crtra (bahaso C) 


Proiedur untuk mcnghitung frckucnsi kcmunculan nilai-nilai kcnbtinn dan 
menggambnrkan histogram scbagai borikut: 

void BuatHiotogramlcitra C. lnt m, int nl 

/• Wembuac histogram untuk citra C yang berukuran m x n. 

K. Awali C audah terdefinloi elenen-aleaennya. 

K. Akhirt Oambar histogram tercetak di layar. 


lnt i, j; 

lnt frek (256); 

ford - 0; l <- 255; 1*0 

frektll - 0 ; 

/* endfor •/ 

ford - 1 ; 1 <- m; 1 «») 

for{j - 0; J <• n; J««) 

freklCdl [jll - f rek (C1 1 ) ljll ♦ 1» 
/•endfor*/ 

/•endfor*/ 

/• gambarkan histogramnya •/ 
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ford - 0/ i <= 255; 

I - 

prlntf("%d •, i)x 

for (j ■ 1/ J <• frek(l); j**) do 
prlntf{•••»; 

/•endfor*/ 

prlntf f/n•)» /• pindah ke barle berv •/ 

[endfor) 

) . 

Algorttm* 6.14 Mernbuat histogram dan sobuah «ra yang morrpunyal 256 r.llal keabuan (bahasa C) 



Misalkan Anda diminta menggambar tanda batang pada setiap sentimeter 
sebuah mistar (penggaris), sepcrti gambar berikut: 


lllllll 

III 

III! 

lllllll III 

III! 

lllllll lllllll 

lllllllllllllll 

1__ J 


Tanda batang pada titik tengah mistar paling panjang, lalu pada setiap Vfc 
selangnya lebih pendek, dan lebih pendek lagi pada i/8 selang, begitu 
setemsnya. Jika diinginkan resolusinya i/2", buatlah program dalam bahasa 
Pascal dan bahasa C untuk menggambar tanda-Unda batang pada mistar di 
atas dengan meletakkan tanda batang pada setiap titik antara o dan 2 ", titik 
ujung tidak termasuk. Disediakan prosedur mark (x, h) untuk menggambarkan 
tanda batang setinggi h pada posisi x. Tanda batang di tengah mistar 
tingginya n satuan, tanda batang di kiri dan kanannya tingginya n - l satuan, 
begitu seterusnya. 

Penyeleaadan: 

Persoalan ini lebih alami diselesaikan secara rekursif. Ujung kiri mistar 
adalah o dan ujung kanan mistar adalah 2 " (n sembarang). Mula-mula tanda 
batang dibikis di tengah mistar, lalu selang mistar dibagi menjadi 2 bagian 
yang berukuran sama. Lukislah tanda batang yang lebih pendek pada tiap 
bagian dengan menggunakan prosedur yang sama (rekursif). Kondisi 
berhenti rekursi adalah bila tinggi batang sama dengan nol! 

Prosedur penggambaran tanda batang dalam bahasa Pascal dan bahasa C 
sebagai berikut: 
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procedure LukisBatang(ki. ka. h : integer); 

{ Melukia tanda batang pada aietar darJ ujung kiri sampai ujung kanan. 
K. Aval: ki adalah posiai ujung kiri niatar. ka adalah posiai ujung 
kanan miocar; kedua nilai ini sudah terdefiniai. 

K. Akhic: Gambar tanda-tanda batang tercetak di Jayar. 

} 

v«r 

x : integer; 
begin 

if h > 0 then 
begin 

x (ki ♦ ka) div 2 ; 

marklx, h); /• Prosed ur untuk mengganbar gario aednggi h } 

LukisBatang (kiri. x. h - 1) j 
LukisBatang(x, kanan, h - 1); 

end; 

end; 

Algoritma 19.15 Melukis landa balang pada mistar secara rekursil ( Pascal) 


void LukiaBatang(int ki, int ka. int h) 

/• Melukia tanda batang pada motor dari ujung kiri oan^ai ujung kanan. 

K. Aval: ki adalah poaiai ujung *Jri miaear, ka adaJab poo ini ujung 
kanan miocar; keduj nilai ini sudah c erdefiniai. 

K. Akhirt Gambar tanda-tanda batang tercetak di layer. 

•/ 

( 

int xr 

if (h > 0) 

{ 

x - (ki . ka)/ 2 ; 
mark(x, h); 

LukiaBatang(kiri, x. h - 1>; 

LukisBatang(x, kanan, h - 1); 

) 

Algorilma 19.16 Mulukis landa balang pada mistar %v > s*(Q _ 


Contoh pcmanggilnn prosedur 

LukioBntanglO. «4. 6) 

Artinya melukis tanda-tanda batang dari posiai o sainpai 64 dengan tinggi 
batang di tengnh mistar adalah 6 satuan. 


Contoh Masalah 19 


it porn 


n buah 


Buatlnh algoritma rekursif dalam notasi babasa Pascal untuk membuat 
pemiutasi (susunan berbeda dari pengaturan elemen-elcmen objek) dari 
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string yang terdiri dari n buah bumf. Misalkan untuk string ‘ABC’, semua 
permutasinya adalah: 

ABC 

ACB 

BAC 

BCA 

CAB 

CBA 

Penyelesaian: 

Misalkan string yang panjangya n karakter dinyatakan sebagai larik 
karakter. Persoalan ini lebih alami diselesaikan secara rekursif. Dapat lata 
lihat bahwa permutasi dari n buah huruf adalah sebuah huruf disambung 
dengan permutasi n - 1 buah huruf sisanya. Dalam membuat permutasi ini, 
kita memcrlukan pertukaran huruf agar susunan huruf-huruf dalam sctiap 
permutasi tersebut selalu berbeda. 

Deklarasi larik karakter dan algoritma pembangkitan permutasi sebagai 
berikut: 

oonat n - 

typo LorikXar - array (1 . .n) of char/ 

proooduro BangkltkanPcnnutaal (C i LarlkKar, 1 i lntogar) 

( Membangkltkan avmua parmutaal dari huruf-huruf dl dalam larik 

era..ii. 

K. Awah C audah Cerda flnlal alaman-alamannya. 

K. Akhlri aamua parmutaal dlcatak ka layar. 

) 

rax 

i, j l intagor; 


bag In 

if i - n than ( baala / 

bog in 

tor J ia 1 to n do 
write(C[)l)i 
(andfor) 
writoln/ 
and 

oloo f rakuraoa J 

bogln 

Cor j :■ i to n do 
bogln 

Tuknr(C(J 1, CUJ), 

BangkltkanPoniutuel(C, i ♦ 1); 
and; 

oad> 

Algoritma 19.17 Mombangkltkan semua permutasi dart n buah huruf 
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Pemanggilan prosedur pertama kali: 

BangkitkanPermutani (C, X) 

Isi prosedur Tukar sebagai berikut: 

procnduro Tukar (var a, b : integerl 
I Mempercukarkan nilai a dan b . 

K. Aval: a dan b audah t ezdefinial nllainya. 

K. Akhir: a beriai nil.ti b, b bcriai nilai a eemula. 

i 

var 

temp : char; 

begin 

tomp «- a; 
a j- b/ 
b !• tempj 

and | 

Aloorllma 19.18 Prosodur Tukar_ 
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